PDA

Prikaži potpunu verziju : VB -> full screen AVI!?


WAKAWAKI
16.11.2005, 22:52
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
16.11.2005, 23:53
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
17.11.2005, 22:48
probao u vb6 ...ne radi

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

Marko_L
17.11.2005, 23:18
Izvini, moja greška, pogrešno sam upisao jednu promenljivu.Zato treba koristiti Option Explicit :).Evo, prepravio sam kod.Probaj sad.

WAKAWAKI
21.11.2005, 0:28
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
21.11.2005, 0:38
Ne znam, meni strečuje normalno.Jel tako sa svakim AVI fajlom ili samo sa tim određenim ?

CodeName
3.7.2008, 11:38
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


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.