7,763
社区成员
发帖
与我相关
我的任务
分享帮我看看代码,就是显示一个打开对话框。
Private Sub Command1_Click()
On Error GoTo errhandler
CommonDialog1.FilterIndex = "all files(*.*)|*.*|text files(*.txt)|*.txt|batch files(*.bat)|*.bat"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowOpen
openfile (CommonDialog1.FileName)
Exit Sub
errhandler:
Exit Sub
End Sub
报错句是openfile(CommonDialon1.FileName)请问怎么改
On Error GoTo errhandler
CommonDialog1.FilterIndex = "all files(*.*)|*.*|text files(*.txt)|*.txt|batch files(*.bat)|*.bat"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowOpen
openfile (CommonDialog1.FileName)
Exit Sub
errhandler:
Exit Sub
End Sub
报错句是openfile(CommonDialon1.FileName)请问怎么改
...全文
请发表友善的回复…
发表回复
northwolves 2003-10-31
- 打赏
- 举报
可以用SHELL打开
qjqmoney 2003-10-31
- 打赏
- 举报
你的openfile是什么？你自己定义的函数？
可这样写：
open CommonDialon1.FileName for Input as #1
可这样写：
open CommonDialon1.FileName for Input as #1
