Hit-Parade .VB Research Center . Compteur
Accueil ~  Code ~  Programmes ~  Api ~  Forum ~  Cours ~  Livres ~  Quiz ~  Annuaire
~ 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 ~
 Rechercher un site :
  

~ Partenaires ~

Procédure : JouerFichierAvi
Permet de jouer un fichier au format AVI dans une fenêtre ou en plein écran.
(Consulté 19523 fois.)

Private Declare Function mciSendString Lib "winmm.dll" Alias _
        "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

Visual Basic Research Center - (c) 2000/2002 -  Webmaster : docvb (chez) free (point) fr