Soyez le premier à donner votre avis sur cette source.
Vue 94 767 fois - Téléchargée 3 538 fois
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
http://www.dlldll.com/exdll/3410.html
// un lien pour le telechargement directe
http://www.dlldll.com/mmdtc.dll_download.html
si le premier fonctionne pas
Jaouad Laaribi
A+
J'aimerais avoir plus dinformation pour savoir comment lire un avi sans trop me casser la tete! J'ai encore un peux de difficulter a comprendre!!
Merci
Sneezy..
merci de bien vouloir me répondre .
Remarques, c vrai que tu n'a jamais dit qu'il était de toi....
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.