1个回答
展开全部
在工具栏,拖一个OpenFileDialog放在窗体上。
在工具栏拖一个button按钮放在窗体上。
双击按钮,创建按钮的_click过程。
在click过程中
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
OpenFileDialog1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim 打开的文件名 As String = OpenFileDialog1.FileName
MsgBox(打开的文件名)
End If
End Sub
在工具栏拖一个button按钮放在窗体上。
双击按钮,创建按钮的_click过程。
在click过程中
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
OpenFileDialog1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim 打开的文件名 As String = OpenFileDialog1.FileName
MsgBox(打开的文件名)
End If
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询