- Private Sub Dir_Change()
- File.Path = Dir.Path
- File.Pattern = "*.avi"
- End Sub
-
- Private Sub Drive_Change()
- Dir.Path = Left$(Drive.Drive, 2) + "\"
- File.Path = Dir.Path
- File.Pattern = "*.avi"
- End Sub
-
- Private Sub Form_Load()
- Dir.Path = "c:\"
- File.Path = "c:\"
- File.Pattern = "*.avi"
- MMControl1.Notify = False
- MMControl1.Wait = False
- MMControl1.Shareable = False
- MMControl1.DeviceType = "AVIVideo"
- End Sub
-
- Private Sub Jouer_Click()
- MMControl1.Command = "Close"
- If Right$(Dir.Path, 1) = "\" Then
- nom = Dir.Path + File.FileName
- Else
- nom = Dir.Path + "\" + File.FileName
- End If
- MMControl1.FileName = nom
- MMControl1.Command = "Open"
- MMControl1.Notify = False
- MMControl1.Wait = False
- MMControl1.Command = "Play"
- End Sub
-
- Private Sub Stop_Click()
- MMControl1.Notify = False
- MMControl1.Wait = True
- MMControl1.Command = "Stop"
- End Sub
-
- Private Sub Quitter_Click()
- MMControl1.Notify = False
- MMControl1.Wait = True
- MMControl1.Command = "Close"
- End
- End Sub
-
Private Sub Dir_Change()
File.Path = Dir.Path
File.Pattern = "*.avi"
End Sub
Private Sub Drive_Change()
Dir.Path = Left$(Drive.Drive, 2) + "\"
File.Path = Dir.Path
File.Pattern = "*.avi"
End Sub
Private Sub Form_Load()
Dir.Path = "c:\"
File.Path = "c:\"
File.Pattern = "*.avi"
MMControl1.Notify = False
MMControl1.Wait = False
MMControl1.Shareable = False
MMControl1.DeviceType = "AVIVideo"
End Sub
Private Sub Jouer_Click()
MMControl1.Command = "Close"
If Right$(Dir.Path, 1) = "\" Then
nom = Dir.Path + File.FileName
Else
nom = Dir.Path + "\" + File.FileName
End If
MMControl1.FileName = nom
MMControl1.Command = "Open"
MMControl1.Notify = False
MMControl1.Wait = False
MMControl1.Command = "Play"
End Sub
Private Sub Stop_Click()
MMControl1.Notify = False
MMControl1.Wait = True
MMControl1.Command = "Stop"
End Sub
Private Sub Quitter_Click()
MMControl1.Notify = False
MMControl1.Wait = True
MMControl1.Command = "Close"
End
End Sub