小鸟得问题
大家好!我是一个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