Prova cosi, dovresti visualizzare i .avi
in un modulo BAS metti questo:
codice:
Public Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As String, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long
quindi crei questa routine sempre nel modulo:
codice:
Public Sub PlayAvi()
Dim CmdStr As String, ReturnVal As Long
'adatta il path del file Avi alle tue esigenze:
CmdStr = "play C:\tuo_file.AVI"
ReturnVal = mciSendString(CmdStr, 0&, 0, 0)
'per eseguire il file AVI in modalità Full Screen,adatta la stringa
'come segue:
'CmdStr = "play C:\tuo_file.AVI fullscreen"
End Sub
Ora in un qualsiasi form puoi richiamare la routine PlayAvi per eseguire gli .avi