[求助]两句代码有问题
这是一个MP3播放器.其中有两句代码有错
,我已经标出,希望得到指点!
Private Sub CmdExit_Click(Index As Integer)
End
End Sub
Private Sub CmdOpen_Click(Index As Integer)
Dim stFileName As String
CdlGetFile.Filter = "MP3 Files|*.mp3"
CdlGetFile.Flags = cdlOFNHideReadOnly '打开文件属性
CdlGetFile.InitDir = "E:\娱乐地带\流行音乐\" '打开文件初始目录
CdlGetFile.ShowOpen
stFileName = CdlGetFile.FileName
Player.Open stFileName
End Sub
Private Sub CmdPlay_Click(Index As Integer)
Player.play
End Sub
Private Sub CmdStop_Click(Index As Integer)
Player.Close
End Sub