Trucos de Visual Basic 6.0 Mostrar un fichero AVI a pantalla completa
Crear un formulario y escribir:
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 Form_Load()
CmdStr$ = "play e:\media\avi\nombre.avi fullscreen"
ReturnVal& = mciSendString(CmdStr$, 0&, 0, 0&)
End Sub
Pon el truco en tus favoritos
Trucos relacionados de Mostrar un fichero AVI a pantalla completa
-
Truco de Visual Basic 6.0, 5 funciones de fechas
Gracias a este truco de visual basic 6.0 podrás: Saber la cantidad de días de un año determinado
Calcular la cantidad de días de un mes específico
Averiguar si un día corresponde a un fin de semana
Averiguar el último día de un Mes determinado
Ave