Introduction - If you have any usage issues, please Google them yourself
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