VB -> full screen AVI!?

[WAKAWAKI]

Kako da pustim avi fajl u full screen modu u visual basicu?!
Moze li nekako preko APIja?Ne trebaju mi nikakvi ocx fajlovi (jedino mozda neki free,bez reklama i td...)ali najradije bih da ja to znam kako ja rucno da odradim...

[Marko_L]

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()
Dim CmdStr As String
Dim RetVal As Long
CmdStr = "play " & "C:\nesto.avi" & " fullscreen "
RetVal = mciSendString(CmdStr, 0&, 0, 0&)
End Sub

[WAKAWAKI]

probao u vb6 ...ne radi

cak ne izbacuje ni gresku..jednostavno nista se ne desava

[Marko_L]

Izvini, moja greška, pogrešno sam upisao jednu promenljivu.Zato treba koristiti Option Explicit .Evo, prepravio sam kod.Probaj sad.

[WAKAWAKI]

Hey...sve je ovo ql..ali nije bas full screen...tj nije stretchovan avi preko ekrana..vec je sve okolo zacrnjeno a avi je pusten u toj velicini u kojoj je...ima li shanse da se avi stretch-uje?

[Marko_L]

Ne znam, meni strečuje normalno.Jel tako sa svakim AVI fajlom ili samo sa tim određenim ?

[CodeName]

Marko_L kaže:

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()
Dim CmdStr As String
Dim RetVal As Long
CmdStr = "play " & "C:\nesto.avi" & " fullscreen "
RetVal = mciSendString(CmdStr, 0&, 0, 0&)
End Sub

WAKAWAKI kaže:

Kako da pustim avi fajl u full screen modu u visual basicu?!
Moze li nekako preko APIja?Ne trebaju mi nikakvi ocx fajlovi (jedino mozda neki free,bez reklama i td...)ali najradije bih da ja to znam kako ja rucno da odradim...

Kod mene ovaj kod radi u punom ekranu. Ne može kod tebe da ne radi.