Přehrání videa přes tlačítko – Visual Basic – Fórum – Programujte.com

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.

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")