急急急急急急急急！简单的多媒体编程！先到先给分！

Question

控件有Command1    MMControl1    CommonDialog1     Label1各一个！
原代码：
Private Sub Command1_Click()
CommonDialog1.Filter = "Midi File|*.Mid"
CommonDialog1.ShowOpen
MMControl1.Command = "close"
If CommonDialog1.FileName = "" Then Exit Sub
MMControl1.FileName = CommonDialog1.FileName
MMControl1.Command = "open"
End SubPrivate Sub MMControl1_PlayClick(Cancel As Integer)MMControl1.Command = "close"
MMControl1.Command = "open"
End Sub
Private Sub MMControl1_StatusUpdate()
Dim strmode As String
strmode = ""
Select Case MMControl1.Mode
 Case mciModeReady
     strmode = "Ready."Case mciModeStop
     strmode = "stopped."
     
Case mciModeSeek
     strmode = "seeking."
     
Case mciModePlay
     strmode = "playing."
     
Case mciModeRecord
     strmode = "recording."
     
Case mciModePause
     strmode = "paused."
End Select
  Label1.Caption = "当前状态是：" + strmodeEnd Sub
为什有些按扭不好使 比如下一段或上一段？
有时连声音也没有！？
为什么？
谁能该一下？下面这段程序的作用是什么？
Private Sub MMControl1_PlayClick(Cancel As Integer)
MMControl1.Command = "close"
MMControl1.Command = "open"
End Sub

Answer 1

Private Sub MMControl1_PlayClick(Cancel As Integer)
MMControl1.Command = "close"'关闭播放器
MMControl1.Command = "open"'打开播放器
End Sub

Answer 2

MMControl1.Command = "close" '关闭以释放资源

Answer 3

MMControl1_PlayClick 这是什么意思?

Answer 4

MMControl1_PlayClick  就是MMControl1这个控件的Play被按下的时候发生的事件啊, 你可以在这里编程序,在Play被按下的时候, 开始让程序播放媒体

Answer 5

只要用两个API就可以呵呵：
mcisendstring 
和…………一时忘了，发短信给我啊13358208129