运用Ｐicture控件和MMControl制作播放器问题？？

Question

我编写了一个程序。可是MMControl 控年件是灰化的。不能用。我也加了语句：MMControl.Command = "open "请问是大概还可能是什么原因。

Answer 1

MMControl.hWndDisplay = Picture1.hWnd 这句也加进去了。可Picture中没有反映。
CommonDialog1.Filter = "(*.avi)|*.avi|(*.wave)|*.wav|(vcd *.dat)|*.dat|(midi *.mid)|*.mid"
 MMControl.DeviceType = "avividio"
      '设置时间格式为帧
      MMControl.TimeFormat = 3
      '设置播放的文件为通用对话框中选择的文件
      MMControl.FileName = CommonDialog1.FileName
      '打开文件
      MMControl.Command = "open "
MMControl.hWndDisplay = Picture1.hWnd 
但是没有反映。MMControl还是不能操作。

Answer 2

代码如下所示，但是有错误。我不知道错在哪里面。
　请大家帮看一看。这也是我从网上找的代码。
Private Sub mnuopen_Click() ’当点击菜单中的打开时执行　'在未选择文件时,文件名为空字符,播放菜单不可用　mnuplay.Enabled =False
　CommonDialog1.FileName = ""　'下面语句设置文件过滤方式,可显示扩展名为avi,dat,wav和mid文件　CommonDialog1.Filter = "(*.avi)|*.avi|(*.wave)|*.wav|(vcd *.dat)|*.dat|(midi *.mid)|*.mid"　'初始化文件过滤方式为*.avi
CommonDialog1.FilterIndex = 1　'建立打开方式的通用对话框,也可使用commondialog1.showopen　CommonDialog1.Action = 1　'打开一个文件前先关闭前一次被打开的多媒体设备　MMControl1.Command = "close"　Select CommonDialog1.FilterIndex
　　Case 1 '选择*.avi　　　'设置多媒体设备类型为avividio
　　　MMControl1.DeviceType = "avividio"
　　　'设置时间格式为帧
　　　MMControl1.TimeFormat = 3
　　　'设置播放的文件为通用对话框中选择的文件
　　　MMControl1.FileName = CommonDialog1.FileName
　　　'打开文件
　　　MMControl1.Command = "open "
　　Case 2 '选择*.wav
　　　'设置多媒体设备类型为waveaudio
　　　MMControl1.DeviceType = "waveaudio"
　　　'设置时间格式为帧
　　　MMControl1.TimeFormat = 3
　　　'设置播放的文件为通用对话框中选择的文件
　　　MMControl1.FileName = CommonDialog1.FileName
　　　'打开文件
　　　MMControl1.Command = "open "
　　Case 3 '选择*.dat
　　　'设置多媒体设备类型为Mpegvidio
　　　MMControl1.DeviceType = "Mpegvidio"
　　　'设置时间格式为帧
　　　MMControl1.TimeFormat = 3
　　　'设置播放的文件为通用对话框中选择的文件
　　　MMControl1.FileName = CommonDialog1.FileName
　　　'打开文件
　　　MMControl1.Command = "open "
　　Case 4 '选择*.mid
　　　'设置多媒体设备类型为waveaudio
　　　MMControl1.DeviceType = "waveaudio"
　　　'设置时间格式为帧
　　　MMControl1.TimeFormat = 3
　'设置播放的文件为通用对话框中选择的文件
　　　MMControl1.FileName = CommonDialog1.FileName
　　　'打开文件
　　　MMControl1.Command = "open "
　　End Select
　　'设置hwnddisplay的值,使媒体文件能够在picture控件中播放
　　MMControl1.hWndDisplay = Picture1.hWnd
End Sub

Answer 3

MMControl1.DeviceType = "MpegVideo"
试试
还有是"AviVideo"

Answer 4

另外MMControl1.Command = "Play"是播放命令，这个要多看看MSDN，我做的播放器能在picturebox中播放图像，但是有个问题是现在需要用mmconrtol控件或用binary文件方法检测出图像的宽度和高度，我在delphi中很容易实现了在另外一个窗体的client区域播放，而图像始终是根据窗口大小变化的，在VB中可能需要自己检测出图像大小，再定picturebox大小