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 525 korisnika na forumu :: 67 registrovanih, 7 sakrivenih i 451 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

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

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: angelas, apritajenitigar, aramis s, Bane san, Belimarković, calvi, Cigi, CUCLA70, dejanbenkovic, Denaya, dexyblueworld, djboj, dondolan, dr.fromberg, Dragan Milosevic, Drug pukovnik, dule70, dule_pacov, EOD, FOX, Gabriel18, GreenMan, haris-74, hazmaju, iv_an, Joja, Jovo93, Koca Popovic, komkom, Kosa, lažni đoko, Ljilja Hnovi, Logic005, lovac12, magna86, Mercury, Mikulino, nemanja034, Nemsy_29, nfific, nikoli_ca, ninareflex, nizam, novator, pein, Profica2, radoznao2, RJ, rovac, S-lash, sakota79, shaja1, simpaticus1, SlobaBgd, Sr.Stat., Srki94, StefanNBG90, stringer bell, Trpe Grozni, Viceroy, Vlad000, Vlada78, vuk_82, zeljko.zoric, Zerajic, zixo, zlaya011