Ahoj. mam takovy problem. Potreboval bych poradit jak naprogramovat abych kdyz zmacknu tlacitko tak se mi spustilo video. Ne v okne VB ale proste jak kdyby jste si ho otevreli sami v jakemkoliv prohlizeci ktery mate pro to video vybrany. (Neco jako kdyz zapinate jinou aplikaci pres VB ale tohle bude video externe). Dekuji za odpovedi.
Fórum › Visual Basic
Přehrání videa přes tlačítko
![](img/forum_vlakno_help_vyreseno.png)
Předpokládám, že víte, které konkrétní video má být spuštěno. Potom bych využil možnost spustit program asociovaný s příponou souboru :
Dim strFile As String, ret As Long, Soubor as String, U as String
strFile = Space(260)
ret = FindExecutable(Soubor, "", strFile)
U = Trim(Left(strFile, InStr(1, strFile, Chr(0)) - 1))
U = LCase(Mid(U, InStrRev(U, "\") + 1)) 'v U je uložen program, který bude spuštěn
If Trim(U) = "" Then Exit Sub 'není asociován žádný program
ShellExecute Me.hwnd, "open", Soubor, vbNullString, vbNullString, SW_MAXIMIZE
Tímto způsobem se spustí cokoliv - např. když je koncovka DOC, spustí Word, když je AVI, spustí přehrávač apod.
ještě dodatek - v proměnné Soubor je jméno toho, co se má spustit (např. Soubor = "C:\....\Film.avi")
![](img/forum_nove_psp_new.png)
Přidej příspěvek
Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku
×Vložení zdrojáku
×Vložení obrázku
×Vložení videa
![](/img/smile/1.gif)
![](/img/smile/2.gif)
![](/img/smile/3.gif)
![](/img/smile/4.gif)
![](/img/smile/5.gif)
![](/img/smile/6.gif)
![](/img/smile/7.gif)
![](/img/smile/8.gif)
![](/img/smile/9.gif)
![](/img/smile/10.gif)
![](/img/smile/11.gif)
![](/img/smile/12.gif)
![](/img/smile/13.gif)
![](/img/smile/14.gif)
![](/img/smile/15.gif)
![](/img/smile/16.gif)
![](/img/smile/17.gif)
![](/img/smile/18.gif)
![](/img/smile/19.gif)
![](/img/smile/20.gif)
![](/img/smile/21.gif)
![](/img/smile/22.gif)
![](/img/smile/23.gif)
![](/img/smile/24.gif)
![](/img/smile/25.gif)
![](/img/smile/26.gif)
![](/img/smile/27.gif)
![](/img/smile/28.gif)
![](/img/smile/29.gif)
![](/img/smile/30.gif)
![](/img/smile/31.gif)
![](/img/smile/32.gif)
Uživatelé prohlížející si toto vlákno
Podobná vlákna
Přehrání videa — založil pawlik
Odeslani dat pres tlacitko na seriovku — založil Jirka
Kliknutí pravým tlačítkem myši přes tlačítko na panelu — založil RadimK
Přehrání zvuku z resourců — založil Anonymní uživatel
Přehrání druhé scény — založil Vucek
Moderátoři diskuze