Question

VBcommondialog控件

VBcommondialog控件的保存和打开.....具体怎么用,怎么把文本框内容作TXT文件保存和打开??????
能不能举例说明一下,谢谢.
请问怎么样判断用户是否选中了"取消",在保存与打开的时后?

Answer 1

我来
写文本

===========================================保存
CommonDialog1.InitDir = 〈你需要定位的文件夹如："C:\Documents and Settings\Administrator\My Documents\My Pictures"〉
CommonDialog1.Filter = "文本文件(*.txt) | *.txt"

Open CommonDialog1.FileName For Output As #1
Print #1, Text1.Text
Close #1

这样也可以
Private Sub Command1_Click()
CommonDialog1.ShowOpen
Dim fso As New FileSystemObject
Dim readstream As TextStream
Set readstream = fso.OpenTextFile(CommonDialog1.FileName)
Dim strresult As String
While readstream.AtEndOfStream = False
strresult = strresult + readstream.ReadLine
Wend
'MsgBox strresult
Text1.Text = strresult

End Sub

问题补充：请问怎么样判断用户是否选中了"取消",在保存与打开的时后?
答：如果点了取消CommonDialog1.FileName是空的。
你可以判断CommonDialog1.FileName<>""来判断是否点了取消。