Private Sub Form_Load() Dim Response As Integer MMControl1.DeviceType = "MPEGVideo" CommonDialog1.ShowOpen '通过对话框选择不同的VCD文件 MMControl1.filename = CommonDialog1.filename '选定要播放的文件 MMControl1.Command = "Open" MMControl1.Command = "Play"
End Sub
Private Sub Form_Unload(Cancel As Integer) MMControl1.Command = "close" End Sub
Private Sub MMControl1_BackClick(Cancel As Integer) '对Back按钮的功能改进 Dim i As Integer i = MMControl1.Position - 100 '数值100为后退量,可适当调整 If i < 0 Then MMControl1.From = 0 Else MMControl1.From = i End If MMControl1.Command = "Play"
End Sub
Private Sub MMControl1_StepClick(Cancel As Integer) '对Step按钮的功能改进 Dim j As Integer j = MMControl1.Position + 100 '数值100为前进量,可适当调整 If j > MMControl1.Length Then MMControl1.From = MMControl1.Length Else MMControl1.From = j End If MMControl1.Command = "Play" End Sub
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！） 