C 1 lecteur AVI tout simple mais efficace!
Il n'y a rien de compliqué dedans.
Source / Exemple :
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
Conclusion :
Voila! Si vous trouvez un bug merci de m en faire part.
Laissez moi vos commantaires.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.