查人人中国名人网重庆市仲裁委员会官网:vb中的控件属性保存
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/29 02:40:41
比如我要把text1.text保存到一个文件
要求弹出对话框显示保存路径和文件名
下面是我写的 条用commondialog
Cdl.DialogTitle = "保存文件"
Cdl.FileName = Fname
cd1.Filter = "文本文件(*.txt)|*.txt"
cd1.Flags = cdlOFNCreatePrompt + cdlOFNHideReadOnly
cd1.ShowSave
If Err = cdlCancel Then Exit Sub
怎么指定 保存text1.text的内容 ？
要求弹出对话框显示保存路径和文件名
下面是我写的 条用commondialog
Cdl.DialogTitle = "保存文件"
Cdl.FileName = Fname
cd1.Filter = "文本文件(*.txt)|*.txt"
cd1.Flags = cdlOFNCreatePrompt + cdlOFNHideReadOnly
cd1.ShowSave
If Err = cdlCancel Then Exit Sub
怎么指定 保存text1.text的内容 ？
你要自己写代码来实现，在你的程序后面添加：
Dim fs As Object
Set fs = CreateObject("scripting.filesystemobject")
If Not fs.fileexists(cd1.filename) Then
Set filenum = fs.CREATETEXTFILE(cd1.filename)
filenum.Close
End If
filenum = FreeFile
Open cd1.filename For Binary As #filenum
Put #filenum, 1, text1.text
Close #filenum
类似下面的语句：
Open cd1.filename for output as #1
print #1,text1.text;
close #1