vb 播放器 问题 回答满意追加分数 谢谢 o(∩_∩)o...

来源：百度知道 编辑：UC知道 时间：2024/05/20 15:58:13
是期末作业
照书上编了一段代码
还没生成 exe
试运行是 出现窗口
但是点击打开文件就需要调试
是这一行代码要调试 CommonDialog1.Filter = "AVI 电影文件| *.avi| VCD 电影文件 | *.DAT"

窗口布局图连接
http://hi.baidu.com/%E5%DE%B8%D6%C7%D9/album/item/579eec097dedbfba2fddd406.html

请高手帮忙解决下
https://gss0.baidu.com/7LsWdDW5_xN3otqbppnN2DJv/%E5%DE%B8%D6%C7%D9/pic/item/579eec097dedbfba2fddd406.jpg

是这个连接

倒塌
你就是把书上的代码给我搞上来了
晕
根本没用
我的代码就是这个
要调试的 啊
呼叫高手

Private Sub Command1_Click()
CommonDialog1.Filter = "AVI 电影文件| *.avi| VCD 电影文件 | *.DAT"
CommonDialog1.Dialogtitle = "指定要播放的电影文件"
CommonDialog1.ShowOpen
MMControl1.Command = "Close"
If CommonDialog1.FileName = "" Then Exit Sub
'If CommonDialog1.FilterName = "" Then Exit Sub
If CommonDialog1.FilterIndex = 1 Then
MMControl1.DeviceType = "AVIVideo"
Else
Exit Sub
End If
MMControl1.TimeFormat = mciFormatHms
MMControl1.FileName = CommonDialog1.FileName
MMControl1.Command = "Open"
Slider1.Min = 0
'Slider1 = Max = MMControl1.Length
Slider1.Max = MMControl1.Length
Timer1.Enabled = True
Timer1.Interval = 200
MMControl1.Command = "Play"
End Sub

Private Sub Form_Load()
MMControl1.hWndDisplay = Picture1.hWnd
End Sub

Private Sub Form_Unload(Cancel As Integer)
MMCon