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 738 korisnika na forumu :: 53 registrovanih, 8 sakrivenih i 677 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: _ivKe, Arhiv, At - Pui, babaroga2, Bahuss, Belac91, Bogoslov, cicus91, Crvena Petokraka, d.arsenal321, darkangel, Dicus, Djokkinen, DucicM, Dusko Nikolin, Dzoni Stek, FOX, h8propaganda, haralampije2, helen1, Igor Antonic, ikan, indja, Irbis, Kaplar, Kliker na baterije, lusstrissimuss, MarKhan, MB120mm, Megapurpletv, Mixelotti, nenad81, NenadG, powSrb, purke62, Ray1973, S-lash, shmele, Skywhaler, slonic_tonic, Smajsa011, SOVO515, Srki94, StepskiVuk, suton2, Trpe Grozni, vathra, virked, Vlada1389, Vojkan Petrovic, W123, Warhawk, zola92