Question

vb6.0的mmcontrol控件怎么用来播放视频

就是按网上搜到的放了一个mmc控件，Private Sub Command1_Click() '退出程序
MMControl1.Command = "close" '关闭播放器设备
MMControl1.Shareable = True '允许别人使用播放器
End
End Sub

Private Sub Form_DblClick()'双击退出
MMControl1.Command = "close" '关闭播放器
MMControl1.Shareable = True
End
End Sub

Private Sub Form_Load()
MMControl1.Notify = False '不返回播放信息
MMControl1.Wait = True '播放时其他人稍等
End Sub

Private Sub Form_Unload(Cancel As Integer) '关闭窗口
MMControl1.Command = "close" '关闭播放器
MMControl1.Shareable = True
End Sub

Private Sub Option1_Click()
MMControl1.Command = "close" '先关闭播放器
MMControl1.DeviceType = "Waveaudio" 'Wav音频格式
MMControl1.FileName = "d:\music\one.wav" '文件夹中的文件
MMControl1.Command = "open" '打开设备
MMControl1.Command = "play" '播放文件

End Sub

Private Sub Option2_Click()
MMControl1.Command = "close" '先关闭播放器
MMControl1.DeviceType = "" '其他类型
MMControl1.FileName = "d:\music\two.mp3" '当前文件夹中的文件
MMControl1.Command = "open" '打开设备
MMControl1.Command = "play" '也可以点击播放按钮
End Sub

Private Sub Option3_Click()
MMControl1.Command = "close" '先关闭播放器
MMControl1.DeviceType = "AviVideo" 'Avi视频格式
MMControl1.hWndDisplay = Form1.hWnd '用背景窗体当屏幕
MMControl1.FileName ="d:\music\thr.avi" '文件夹中的文件
MMControl1.Command = "open" '打开设备
MMControl1.Command = "play" '也可以点击播放按钮
End Sub
然后死活弄不好，mmc控件的按钮总是灰的，按不动，视频也没有播放出来

Answer 1

1. MMControl控件的主要属性
　（1）AutoEnable属性
　　该属性用于决定系统是否具有自动检测MMControl控件各按钮的状态。当属性值为True（缺省值）时，系统见自动检测MMControl控件各按钮的状态，此时若有按钮为有效状态，则会以黑色显示，若无效，则以灰色显示；当属性值为False时，系统不会检测MMControl控件的各按钮状态，所有按钮将以灰色显示。
　（2）PlayEnabled属性
　　该属性用于决定MMControl控件的各按钮是否处于有效状态。缺省值为False，即无效状态。当要使Play按钮、Pause按钮时，可以在空间所在窗体的Load事件中添加如下代码：
　　Private Sub Form_Load()
　　MMControl1.AutoEnable=False
　　MMControl1.PlayEnable=True
　　MMControl1.PauseEnable=True
　　End Sub
　（3）PlayVisible属性
　　该属性用于决定 MMControl控件各按钮是否可视。当Playvisible属性值为True时（缺省值），按钮可视；当Playvisible属性值为False时，按钮不可视。
　（4）Command属性
　　Command属性用于指定将要执行的MCI命令。可以控制执行14个控制命令。
　（5）DeviceType属性
　　用于指定多媒体设备的类型：AVI动画(AVIVideo)，CD音乐设备（CDAudio）,VCD文件（DAT），数字视频文件（DigitalVideo),WAV声音播放设备（WaveAudio),MIDI设备（Sequencer)和其它类型。
　（6）Length属性
　　返回所使用的多媒体文件长度。
　（7）Frames属性
　　指定Back或Step命令后退或前进的帧数。若Frames属性设置为3，则每次按Step按钮，前进3帧。
　（8）Notify属性
　　决定MMControl控件的下一条命令执行后，是否产生或回调事件（CallbackEvent)。为True则产生。
　（9）Mode属性
　　返回一个已打开的多媒体设备的状态。
2. MMControl控件的主要事件
　（1）Click事件
　（2）Done事件
　　当Notify属性设置为True后所遇到的第一个MCI命令结束时触发该事件，其格式为：
Private Sub MMControl_Done(Notify_Code As Integer)
每一次Notify属性仅对一条MCI控制命令有效，用户可在Done事件中决定如何进一步处理程序。
　（3）StatusUpdate事件
　　按UpdateInteval属性所给的时间间隔自动发生。该事件运行应用程序更新显示，以通知用户当前MCI设备的状态。应用程序可从Position,length 和 Mode等属性中获得状态信息。

Answer 2

用WINDOWS MEDIA PLAYER控件吧。

追问

能附详细的代码吗，我试过用这个控件但是不知道怎么设置属性

追答

关键的两句，其他的只要看下这控件的介绍就会的：
WindowsMediaPlayer1.URL = App.Path & "\I Kissed A Girl.mp3"（换成你想要的歌曲，并与程序同文件夹）
WindowsMediaPlayer1.Controls.play

追问

但是视频怎么办、、、

追答

也可以支持视频啊，建立个添加歌曲按扭，代码：
Private Sub cmdadd_Click()
On Error GoTo nofile
With Coldata.CommonDialog1
.InitDir = "c:\windows"
.Filter = "影音文件丨* .mp3丨* .wav丨* avi丨* .mpeg丨* .wmv丨* .wm"
.CancelError = True
.ShowOpen
WinMediaPlayer.URL = .FileName
Songname.Text = WinMediaPlayer.currentMedia.Name
lblmediatime.Caption = "总时间：" & WinMediaPlayer.currentMedia.durationString
Wmplist.AddItem .FileName
Wmplist.SetFocus
End With
Exit Sub
nofile:
If Err.Number = 32755 Then
MsgBox "放弃操作", vbInformation, "提示"
Else
MsgBox "其他错误", vbExclamation, "错误提示"
End If
End Sub

追问

可以用几个单选按钮控制播放哪一个文件吗

追答

没必要这样啊，可以建立一个歌曲库。

追问

额，但是用单选按钮要怎样实现呢、、、

追答

你可以建立一个单选按扭数组，然后在。。。代码见下：

Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 0
WindowsMediaPlayer1.URL = App.Path & "\I Kissed A Girl.mp3"
Case 1
。。。
Case 2
。。。
End Select
End Sub

追问

试了，但是只显示波形，没有视频画面、、
====================================
知道了原来是avi文件播放不了的原因，谢谢