Hallo, ich bräuchte mal einen Tipp für folgendes Problem:
Ich habe mir eine Filmdatenbank gemacht, bei der ich zu jedem Film einen kleinen Video-Trailer
abspielen lassen möchte.
Im Formular habe ich ein AktiveX Steuerelement für den VLC Media Player eingebaut.
Wenn ich nun drauf klicke, sollte sich ein Videotrailer öffnen und abgespielt werden.
Den Pfad zum Trailer habe ich in einem separaten Feld (Trailerpfad) gespeichert.
Ich bin schon soweit, das sich der Player öffnet. Jetzt fehlt mir eigentlich nur noch
die richtige Übergabe des Pfades und Name des Trailers.
Kann mir jemand einen Tipp geben, wie der Code dazu aussehen muß?
Office - Word, Excel und Co. 9.753 Themen, 41.598 Beiträge
Hallo zusammen, ich habe das Problem selbst lösen können:
1. Befehlsschaltfläche erstellen
2. Bei den Eigenschaften unter "Beim Klicken" folgendes eintragen:
Private Sub Trailer_Click()
On Error GoTo Err_Trailer_Click
Dim stStarten As String
Dim stPfad As String
Dim varAusgabe As String
stPfad = CurrentProject.path & [Trailerpfad]
stStarten = "c:\Program files\VideoLAN\VLC\vlc.exe " & stPfad
varAusgabe = Shell(stStarten, vbNormalFocus)
Exit_Trailer_Click:
Exit Sub
Err_Trailer_Click:
MsgBox Err.Description
Resume Exit_Trailer_Click
End Sub