小鸟得问题
											大家好!我是一个VB初学者,前几天看书上有这么一个例子,就想自己试一试,可是怎么都不成功。大家帮忙看看谢谢~
Private Sub cmdExit_Click()
    End
End Sub
Private Sub cmdOpen_Click()
    Dim stFileName As String
    
    cdlGetFile.Filter = "MP3 Files|*.MP3"
    cdlGetFile.Flags = cdlOFNHideReadOnly
    cdlGetFile.InitDir = "C:\Windows\Desktop\"
    cdlGetFile.ShowOpen
    
    stFileName = cdlGetFile.FileName
    
    Player.Open stFileName
End Sub
Private Sub cmdPlay_Click()
    Player.Play
End Sub
Private Sub cmdStop_Click()
    Player.Stop
End Sub



											
	    

	
										
					
	