play avi file u vb

play avi file u vb

offline
  • Pridružio: 11 Feb 2006
  • Poruke: 166
  • Gde živiš: Loznica

ovaj kod sam skinuo na
support.microsoft.com/kb/171981
      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      Sub Command1_Click()         '// --- Modify FILE_TO_OPEN constant as appropriate ---     '    Const FILE_TO_OPEN = "C:\winnt\clock.avi"          Const FILE_TO_OPEN = "D:\Filmovi\MrBeen\been1.avi"                 Dim strCmdStr As String         Dim lngReturnVal As Long         strCmdStr = "play " & FILE_TO_OPEN & " fullscreen "         lngReturnVal = mciSendString(strCmdStr, 0&, 0, 0&)       End Sub


winmm.dll postoji ali se nista ne desava ne izbacuje ni gresku
sta je problem



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Ko je trenutno na forumu
 

Ukupno su 623 korisnika na forumu :: 58 registrovanih, 3 sakrivenih i 562 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 1567 - dana 15 Jul 2016 20:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: amaterSRB, amstel, Atomski čoban, Bane san, bato, bigbear2, bojank, borko_marjanovic, BSD, calvi, darionis, Default, Dejan84, dekao, delrey, DJmonosaurus, dobri covek, dozorni, dragonserbia, dskrlec33, Dzoni Stek, eighty-one, flash12, kolateralnasteta, krkalon, Libertas, licvara, Lieutenant, mandicdamir245, Marko Marković, Mercury, messerschmitt, mile09, milenko crazy north, mushroom, NenadG, ostoja2, powSrb, Recce, sakota79, Shtex, Snorks, softwaremaniac, Srki94, stipica1, T-72, USSVoyager, vasa.93, vasaw, vddutina, VJ, vladaa012, vladom6, voja64, Warhawk, zeksina, zgoljo, 119