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...
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
Izvini, moja greška, pogrešno sam upisao jednu promenljivu.Zato treba koristiti Option Explicit :).Evo, prepravio sam kod.Probaj sad.
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?
Ne znam, meni strečuje normalno.Jel tako sa svakim AVI fajlom ili samo sa tim određenim ?
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.
vBulletin® v3.8.7, Copyright ©2000-2024, vBulletin Solutions, Inc.