孤岛危机3和孤岛惊魂4:vb视频程序问题,哪里出了问题了?

来源：百度文库 编辑：高校问答 时间：2024/04/27 23:26:24
Private Sub Command1_Click()
MMControl1.Command = "play"
End Sub

Private Sub Command2_Click()
MMControl1.Command = "stop"
MMControl1.Command = "close"
End
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
MMControl1.Enabled = False '将mci控件mmcontrol1设置成无效
MMControl1.Visible = False '将mci控件mmcontrol1设置成不可视
Command1.Caption = "播放"
Command2.Caption = "退出"
MMControl1.DeviceType = "avivideo"
'设置mmcontrol1的设备类型为avivideo
MMControl1.FileName = "D:\movie\boy\boy1.mpeg"
'MMControl1.hWndDisplay = Form1.hWnd
'指定文件在form1窗口上播放
MMControl1.Command = "open" '打开多媒体设备
End Sub

没什么问题呀

vb视频程序问题,哪里出了问题了? 请教VB高手：这段代码哪里出了问题！！ UC视频出了问题 我自编了一个VB小程序，出了点问题。 我家的VB出什么问题了``？？ 有些视频突然看不了？哪里出了问题？ 请问哪里出了问题 口苦是哪里出了问题 求助！哪里出了问题？ 我是哪里出了问题？