打开问题
我照着写打开程序怎么还是 不行啊?帮忙看下:
Private Sub Openfile_Click()
On Error GoTo errhander '已将commondialog1的属性cancelerror选为True
CommonDialog1.Filter = "all files(*.*)|*.*|textfiles( *.txt)|*.txt|batch file(*.bat)|*.bat|"
CommonDialog1.FilterIndex = 2 '指定默认文件类型
CommonDialog1.ShowOpen
myopenfilesub (CommonDialog1.FileName)
Exit Sub
errhandler: '用户单击[取消]按钮
Exit Sub
End Sub
另外,另存为怎么写啊?就将comondialog1.showopen改为commondialog1.showsave吗?
谢谢了!
