VB中增加对话框支持，如文件打开、保存、打印、颜色选择、字体选择等，不需要VB中的文件框控件，直接采用API实现，很精简。

如选择音乐文件的调用方便如下：

Private Sub cmdSelectMusic_Click()

Dim cDialog As New CCommonDialogs

Dim picFile As String, Filter As String



cDialog.FileExtension = "*.bmp *.jpg"

Filter = "Wave files(*.wav)" + Chr$(0) + "*.wav" + Chr$(0)



picFile = cDialog.ShowOpen1(Me.hwnd, Filter, "Select Music File", "*.wav")



If picFile <> "" Then

txtRestPlayMusic = picFile

End If



End Sub

-VB to increase the support of the dialog box, such as file open, save, print, color selection, font selection, etc., do not need to file box control in VB, direct API implementation, very streamlined. Call convenient to select the music file is as follows: the Private Sub cmdSelectMusic_Click () Dim cDialog As New CCommonDialogs Dim picFile As String, Filter As String ' cDialog.FileExtension = " *. Bmp　the* jpg Filter ="　Wave files (*. Wav ) " + Chr $ (0)+" *. wav " + Chr $ (0) picFile = cDialog.ShowOpen1 (Me.hwnd, Filter,"　Select Music File " ," *. wav " ) If picFile < > "　"　Then txtRestPlayMusic = picFile End If End Sub