Mostrar un fichero AVI a pantalla completa
Truco 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
Más trucos de Trucos de Visual Basic 6.0
Trucos más leídos
Los trucos Trucos de Visual Basic 6.0 más vistos