简直要疯了，以前都是这么用的。不知是不是系统出问题了，为什么不播声音？
Private Sub Form_Load()
With MMControl1
.Notify = False
.Wait = True
.Shareable = False
.DeviceType = "Sequencer "
.FileName = "e:\1.mid "
.Command = "Open "
.Command = "Play "
End With
End Sub
[解决办法]
Private Sub Form_Unload(Cancel As Integer)
MMControl1.Command = "stop "
MMControl1.Command = "close "
End Sub
Private Sub Form_Click()
Dim Res As Integer, Ret As String * 1024
Res = mciSendString( "play " & App.Path & "\125.mp3 ", Ret, 1024, 0) '整首播放
Res = mciSendString( "play " & App.Path & "\goujiao.mp3 ", Ret, 1024, 0) '整首播放
End Sub
试一试这个和这个
MMControl1.Orientation = mciOrientHorz '添加音乐
MMControl1.DeviceType = "sequencer "
MMControl1.Notify = False
MMControl1.Shareable = False
MMControl1.Wait = True
MMControl1.FileName = App.Path & "\nyy.mid "
MMControl1.Command = "open "
MMControl1.Command = "play "
Form_Click
[解决办法]
学习……
[解决办法]
解决就好,恭喜楼主!
[解决办法]
恭喜楼主!
[解决办法]
解决就好,恭喜楼主!
