UC知道vb 打开文件对话框
来源：百度知道 编辑：UC知道 时间：2024/06/05 10:28:26
用commondialog1打不开文件啊？该怎么写，我写的是：
Private Sub Command5_Click()
CommonDialog1.Filter = "文本文件 (*.text)|*.txt"
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Output As #2
Print #2, Text1.Text
Close #2
End Sub
不说读取到文本框里去，像下面单打开文件也开不了，哪里有错？
Private Sub Command5_Click()
CommonDialog1.Filter = "文本文件 (*.text)|*.txt"
CommonDialog1.ShowOpen
End Sub
没任何错误提示，各位大侠，都没解决啊。谁帮我按你自己的思路写一个啊，我是想要在一个文本框中显示一个打开文件的内容
Private Sub Command5_Click()
CommonDialog1.Filter = "文本文件 (*.text)|*.txt"
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Output As #2
Print #2, Text1.Text
Close #2
End Sub
不说读取到文本框里去，像下面单打开文件也开不了，哪里有错？
Private Sub Command5_Click()
CommonDialog1.Filter = "文本文件 (*.text)|*.txt"
CommonDialog1.ShowOpen
End Sub
没任何错误提示，各位大侠，都没解决啊。谁帮我按你自己的思路写一个啊，我是想要在一个文本框中显示一个打开文件的内容
Output是打开一个文件为了写，也就是打开该文件再写入东西进去。
你似乎是想读文件内容到文本框里，那应该是用Input打开这个文件再进行读取。
把For Output As #2
改为For Input As #2
----------------------
无语，Print #2, Text1.Text这句也是错的，Print是写入，读到文本框应该用Input，这句改为
Input #2,str1
text1.text=text1.text & str1
工程-->部件-->Microsoft Common Dialog Control 6.0 这项打钩
有可能是返回的地址无效，你可以尝试
shell CommonDialog1.FileName
试试有无效！
CommonDialog1.Flags = cdlOFNHideReadOnly Or cdlOFNOverwritePrompt Or cdlOFNExplorer
有什么错误提示？
————————————————
去掉过滤条件试试行不
把text改成txt