VB中怎样弹出打开对话框

Question

在VB中总是用几个文件系统控件打开文件太麻烦且容易出错，听说VB中可以弹出一个打开对话框，不知如何使用？

Answer 1

Private Sub Button1_Click()
With CommonDialog1
.Filter = "支持的文件格式|*.txt;*.doc" ‘这个地方可以自己随便改，就是你想筛选出来大文件
.ShowOpen
If .FileName <> "" Then
........................
End With
End Sub

Answer 2

解压缩后看先看教程部件中找不到安装控件

代码：
Private Sub Form_Load()
Dim a As String
CommonDialog1.ShowOpen
a = CommonDialog1.FileName
MsgBox a
End Sub

Answer 3

使用API函数即可实现。