Option Explicit
界面上就一个 MMControl1控件,属性没修改,代码如下,为什么运行的时候一点反应都没有,而且控件上每个按钮都是灰的不可用,我把属性里的控件选上有效也只是在设计状态看见不是灰的,运行时候还是一样的没反应,这是为什么呀??
Private Sub Form_Load()
  MMControl1.Orientation = mciOrientHorz
  MMControl1.DeviceType = "AVIVedio"
  MMControl1.Notify = False
  MMControl1.Shareable = False
  MMControl1.Wait = True
  MMControl1.FileName = "D:\vb例子\Unload.avi"
  MMControl1.Command = "open"
End SubPrivate Sub Form_Unload(Cancel As Integer)
  MMControl1.Command = "close"
End Sub