Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
DiVX PLaYeR - frmMain.frm

frmMain.frm

Caricato da:
Scarica il programma completo

  1. Dim cur As Integer
  2. Dim min As Integer
  3. Dim sec As Integer
  4.  
  5. Private Sub Form_Load()
  6.     Dim result As String
  7.     Dim temp As String * 40
  8.     Dim winDir As String
  9.     result = GetWindowsDirectory(temp, Len(temp))
  10.     winDir = Left$(temp, result)
  11.     result = WritePrivateProfileString("MCI", "MPEGVideo", "mciqtz.drv", winDir & "\" & "system.ini")
  12.     lblCaption.Caption = "[No FiLe]"
  13.     ffSpeed = 5
  14. End Sub
  15.  
  16. Private Sub imgBack_Click()
  17.     Call Rewind
  18. End Sub
  19.  
  20. Private Sub imgClose_Click()
  21.     Call CloseMovie
  22.     Timer.Enabled = False
  23.     lblTime.Caption = "Total Time: 00:00"
  24.     lblFrame.Caption = "Total Frm: 00"
  25.     lbl.Caption = "FrM CoRreNTi: 00"
  26. End Sub
  27.  
  28. Private Sub imgExit_Click()
  29.     Call CloseAll
  30.     End
  31. End Sub
  32.  
  33. Private Sub imgMain_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  34.     If Button = vbLeftButton Then
  35.         Call DragForm(Me)
  36.     End If
  37. End Sub
  38.  
  39. Private Sub imgNext_Click()
  40.     Call FForward
  41. End Sub
  42.  
  43. Private Sub imgOpen_Click()
  44.     On Error GoTo erropen
  45.     If bPlaying Then
  46.         MsgBox "DiVx PLaYer è OCCuPaTo PRoVa + TaRDi", vbExclamation
  47.         Exit Sub
  48.     End If
  49.     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"
  50.     comDlg.CancelError = True
  51.     comDlg.ShowOpen
  52.    
  53.     If comDlg.FileName = "" Or comDlg.FileName = strFileToPlay Then
  54.            
  55.     Else
  56.         strFileToPlay = comDlg.FileName
  57.         strFileToPlay = """" & strFileToPlay & """"
  58.         Call OpenMovie
  59.         Call PlayMovie
  60.         Call TotalTime
  61.         Call TotalFrames
  62.    
  63.         Timer.Enabled = True
  64.     End If
  65. erropen:
  66. End Sub
  67.  
  68. Private Sub imgPause_Click()
  69.     Call PauseMovie
  70.     Timer.Enabled = False
  71. End Sub
  72.  
  73. Private Sub imgPlay_Click()
  74.     Call PlayMovie
  75.     Timer.Enabled = True
  76. End Sub
  77.  
  78. Private Sub imgStop_Click()
  79.     Call StopMovie
  80.     Timer.Enabled = False
  81. End Sub
  82.  
  83. Private Sub Timer_Timer()
  84.     Call UpdateScreen
  85. End Sub