|
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 'Per visualizzare il file '(che in questo esempio e' "C:\windows\weezer.avi") 'il codice e' il seguente: Dim Ret as Long Dim ReturnString As String ReturnString = Space(127) Ret = mciSendString("open C:\windows\weezer.avi type _ avivideo alias video", returnstring, 127, 0) Ret = mciSendString("set video time format ms", ReturnString, 127, 0) Ret = mciSendString("play video from 0 wait", ReturnString, 127, 0) 'Ricordarsi di chiuderlo! Ret = mciSendString("close video", ReturnString, 127, 0) Con VB si possono visualizzare i files AVI senza bisogno di OCX utilizzando la funzione API mciSendString. La sua dichiarazione e' la seguente: |