Private Sub Form_
Load() MMControl.DeviceType=″MPEGVideo″ MMControl.FileName=″E:\MPEGAV\MUSIC01.DAT″ MMControl.Command=″OPEN″ MMControl.Command=″PLAY″ End
Sub Sub Form_Unload(Cancel As
Integer) MMControl.Command=″close″ End Sub
笔者通过实践发现Step和Back按钮功能不明显,所以对以上两个按钮进行了一些改进。
Sub MMControl_ StepClick(Cancel As
Integer) j=MMControl.Position＋100 ′数值100为前进量,可适当调整 If
j>MMControl.Length
Then MMControl.From=MMControl.Length Else MMControl.From=j End
If MMControl.Command=″Play″ End Sub
Sub MMControl_
BackClick(Cancel As
Integer) I=MMControl.Position－100 ′数值100为后退量,可适当调整 If I<0
Then MMControl.From=0 Else MMControl.From=I End
If MMControl.Command=″Play″ End Sub
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
