msdn CDROM里找找,有的.
或是www.microsoft.com
下面是一段
Private Sub MNU_OPEN_Click()
With Dialog1
.DialogTitle = "Ñ¡ÔñÒª´ò¿ªµÄÎļþ"
.Filter = "mp3 Îļþ|*.mp3|wav Îļþ|*.wav|VCD Îļþ|*.dat"
.ShowOpen
End WithIf Dialog1.FileName <> "" Then
MPlayer.Open Dialog1.FileName
End IfEnd SubPrivate Sub mnu_playerCD_Click()
MPlayer.FileName = "cdaudio:" '<------注意这里
MPlayer.Play
End Sub
或是www.microsoft.com
下面是一段
Private Sub MNU_OPEN_Click()
With Dialog1
.DialogTitle = "Ñ¡ÔñÒª´ò¿ªµÄÎļþ"
.Filter = "mp3 Îļþ|*.mp3|wav Îļþ|*.wav|VCD Îļþ|*.dat"
.ShowOpen
End WithIf Dialog1.FileName <> "" Then
MPlayer.Open Dialog1.FileName
End IfEnd SubPrivate Sub mnu_playerCD_Click()
MPlayer.FileName = "cdaudio:" '<------注意这里
MPlayer.Play
End Sub
用到WIn32APi函数MciSendString 发送 mci 命令
"Close MyCdplayer"
"Open " & FileName & " Alisa MyCdplayer"
"play MyCdplayer"
具体的程序请看王国荣的《Vb 与 Windows32 Api 讲座》