Dim cur As Integer
Dim min As Integer
Dim sec As Integer
Private Sub Form_Load()
Dim result As String
Dim temp As String * 40
Dim winDir As String
result = GetWindowsDirectory(temp, Len(temp))
winDir = Left$(temp, result)
result = WritePrivateProfileString("MCI", "MPEGVideo", "mciqtz.drv", winDir & "\" & "system.ini")
lblCaption.Caption = "[No FiLe]"
ffSpeed = 5
End Sub
Private Sub imgBack_Click()
Call Rewind
End Sub
Private Sub imgClose_Click()
Call CloseMovie
Timer.Enabled = False
lblTime.Caption = "Total Time: 00:00"
lblFrame.Caption = "Total Frm: 00"
lbl.Caption = "FrM CoRreNTi: 00"
End Sub
Private Sub imgExit_Click()
Call CloseAll
End
End Sub
Private Sub imgMain_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
Call DragForm(Me)
End If
End Sub
Private Sub imgNext_Click()
Call FForward
End Sub
Private Sub imgOpen_Click()
On Error GoTo erropen
If bPlaying Then
MsgBox "DiVx PLaYer è OCCuPaTo PRoVa + TaRDi", vbExclamation
Exit Sub
End If
comDlg.Filter = "AVI(DivX) Files|*.avi|MPEG Files|*.mpeg|MPG File|*.mpg|ASF Files|*.asf|VCD DAT Files|*.dat|DVD VOB Files|*.vob|MP3 Files|*.mp3"
comDlg.CancelError = True
comDlg.ShowOpen
If comDlg.FileName = "" Or comDlg.FileName = strFileToPlay Then
Else
strFileToPlay = comDlg.FileName
strFileToPlay = """" & strFileToPlay & """"
Call OpenMovie
Call PlayMovie
Call TotalTime
Call TotalFrames
Timer.Enabled = True
End If
erropen:
End Sub
Private Sub imgPause_Click()
Call PauseMovie
Timer.Enabled = False
End Sub
Private Sub imgPlay_Click()
Call PlayMovie
Timer.Enabled = True
End Sub
Private Sub imgStop_Click()
Call StopMovie
Timer.Enabled = False
End Sub
Private Sub Timer_Timer()
Call UpdateScreen
End Sub