大家能否帮着写一段代码，是这样的打击都知道应用软件里的打开选项吧，点击“打开"后不是出来一个对话框嘛？那个对话框可以显示出后缀为bmp,wav等的文件，当然了点击该文件后，文件可以打开，大家费心看看

Question

自己查MSDN，源代码里面就有！！

Answer 1

是不是这个 ：
CommonDialog1.Flags = 
CommonDialog1.Filter = "(*.bmp)|*.bmp|(*.wav)|*.wav"
CommonDialog1.Open

Answer 2

本例使用 CommonDialog 控件和 ShowColor，ShowFont，ShowHelp，ShowOpen，ShowPrinter，和 ShowSav 等方法，显示公共对话框。要试用此例子，将代码粘贴到窗体的声明部分，该窗体带有 CommandButton，OptionButton（设置该选项按钮的 Index 属性为 0）、以及 CommonDialog 控件。按 F5 键，为所要的公共对话框选择选项按钮，再选取命令按钮。Private Sub Form_Paint ()
   Static FlagFormPainted As Integer
   ' 当第一次画窗体时，
   If FlagFormPainted <> True Then
      For i = 1 To 5
         Load Option1(i)   ' 给数组添加 5 个选项按钮。
         Option1(i).Top = Option1(i - 1).Top + 350
         Option1(i).Visible = True
      Next i
      Option1(0).Caption = "Open"   ' 在每个选项按钮上放置标题。
      Option1(1).Caption = "Save"
      Option1(2).Caption = "Color"
      Option1(3).Caption = "Font"
      Option1(4).Caption = "Printer"
      Option1(5).Caption = "Help"
      Command1.Caption = "Show Dlg"   ' 标签命令按钮。
      FlagFormPainted = True   ' 窗体已画完。
   End If
End SubPrivate Sub Command1_Click ()
   If Option1(0).Value Then   ' 如果选择打开选箱，
      CommonDialog1.ShowOpen   ' 显示打开公共对话框。
   ElseIf Option1(1).Value Then   ' 否则，
      CommonDialog1.ShowSave   ' 显示 Save 公共对话框。
   ElseIf Option1(2).Value Then   ' 否则，
      CommonDialog1.ShowColor   ' 显示 Color 公共对话框。
   ElseIf Option1(3).Value Then   ' 否则，
      CommonDialog1.Flags = cdlCFBoth   ' 在使用ShowFont 方法之前，
            '必须给 cdlCFBoth，                     ' cdlCFPrinterFonts, 
            '或 cdlCFScreenFonts             
   ' 置标识属性。
      CommonDialog1.ShowFont   ' 显示字体公共对话框。
   ElseIf Option1(4).Value Then   ' 或，
      CommonDialog1.ShowPrinter   ' 显示打印机公共对话框。
   ElseIf Option1(5).Value Then   ' 或
      CommonDialog1.HelpFile = "VB5.hlp"
      CommonDialog1.HelpCommand = cdlHelpContents
      CommonDialog1.ShowHelp' 显示 Visual Basic 帮助目录主题。
      End If
End Sub

Answer 3

楼上的 是 MSDN 的 代码 吧。我觉得 这个 代码不全。

Answer 4

没性格的就用 commondialog控件的showopen方法
有性格的就自己画一个资源浏览器出来！