VB小问题请教高手解答

来源：百度知道 编辑：UC知道 时间：2024/05/11 15:58:45
在VB界面上添加一个Textbox text1,设置成多行属性.
现在我有一个.NCD文件(注:.NCD文件为机器指令即G代码文件，如G 10 ，就是机器加工文件),通过CommonDialog1载入,我想把.NCD文件的内容显示在text1中,通过什么句执行，如果在text1中进行了修改，通过什么命令保存到.NCD文件中。希望高手解答

Dim NcdFileName$, NCDStr$

Private Sub Command1_Click()
' 设置“CancelError”为 True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' 设置标志
CommonDialog1.Flags = cdlOFNHideReadOnly
' 设置过滤器
CommonDialog1.Filter = "NCD 文件 (*.NCD)|*.NCD"
' 指定缺省的过滤器
CommonDialog1.FilterIndex = 2
' 显示“打开”对话框
CommonDialog1.ShowOpen
' 显示选定文件的名字
NcdFileName$ = CommonDialog1.FileName

Open NcdFileName For Input As #1
NCDStr = StrConv(InputB$(LOF(1), 1), vbUnicode)
Close #1
Text1 = NCDStr
Exit Sub
ErrHandler:
' 用户按了“取消”按钮
End Sub

Private Sub Command2_Click()
Open NcdFileName For Output As #1
Print #1, Text1
Close #1
End Sub

Private Sub Form_Load()
Command1.Caption = "打开"
Command2.Caption = "保存"
Text1 = ""
End Sub

'两个按钮Command1\Command2分别为 打开和保存