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 543 korisnika na forumu :: 54 registrovanih, 4 sakrivenih i 485 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 1383 - dana 19 Okt 2014 22:26

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: Aleksandar Mitrovic 2, annon, blackjack, boggy, BRATORIII, Brok, BSD2, cedaveljas, CheefCoach, crusher, deks, Djokislav, Djokkinen, Djordje Colovic, dozorni, Filip Marinković, foxy2, Georgius, gile960, GUARIN, helen1, ivica976, janbo2, JOntra2, klodovik, ljuba, madza2, Marko882, mijoveljovic, mikrimaus2, milank1, mirda80, mislimdaimamnesto, Oscar2, pilac, radoznao, raskoljnikov, ray ban11, Recce, robertino, slooba, stankovic, StefanopuloZ, suton, svr, TwinHeadedEagle, vasa.93, Veber Zoltan, Vladan22, zgoljo, zixo, zmajognjeniivan, zox-ni, 1107
Siguran hosting