~ Edito ~
12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période. Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes. ~ Rechercher ~
~ Annuaire VB ~
~ Partenaires ~
|
Procédure : JouerFichierAvi "mciSendStringA" (ByVal lpstrCommand As String, ByVal _ lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _ hwndCallback As Long) As Long Private Sub JouerFichierAvi(stFichier As String, blFenetre As Boolean) Dim lgRet As Long Dim stPlay As String If blFenetre Then ' Si on est en mode fenêtre simple stPlay = "play " & stFichier Else ' sinon, on est en plein écran stPlay = "play " & stFichier & " fullscreen " End If ' Execute la commande lgRet = mciSendString(stPlay, 0&, 0, 0&) End Sub |