Private Sub Form_Load()
With MMControl1
.Notify = False
.hWnd = Me.hWnd
.FileName = Path
.Command = "paly"
End WithEnd SubPrivate Sub MMControl1_Done(NotifyCode As Integer)
If MMControl1.Notify = True Then
MMControl1.Command = "play"
End Sub调整音量好像没有。只能通过api调整系统
With MMControl1
.Notify = False
.hWnd = Me.hWnd
.FileName = Path
.Command = "paly"
End WithEnd SubPrivate Sub MMControl1_Done(NotifyCode As Integer)
If MMControl1.Notify = True Then
MMControl1.Command = "play"
End Sub调整音量好像没有。只能通过api调整系统
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货