VB 用对话框打开一个文件进行读操作

2025-02-23 23:24:19

推荐回答（2个）

回答1：

1、添加模块，在模块中声明一个字符型变量，用来存储文件的路径及文件名。
2、一个打开文件窗体，添加打开文件对话框，在对话框打开后，将文件的路径及文件名存储在变量中。
3、其他窗体调用变量即可。
模块代码：
Public WJM As String 'WJM是变量
打开文件窗体代码：
Private Sub Command1_Click()
CommonDialog1.Filter = "pra(*.pra)|*.pra"
CommonDialog1.CancelError = True
CommonDialog1.ShowOpen
WJM = CommonDialog1.FileName
End Sub

回答2：

控件：Command1.代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
Shell "calc"
MsgBox "calc"
End Sub