Hallo ich habe ein kleines Vba-spiel und wollte im hintergrund einen video datei laufen lassen, ich habe nun das windowsmedia player element in die userform eingebaut, nun kann ich im eigenschaftsfenster ja die video datei (bzw den pfad zu dieser) eingeben die gestpielt werden soll, nun dachte ich das es auch gut wäre wenn der benutzer selbst ein video- oder eine sounddatei wählen könnte.
>Also nach dem öffnen der userform sollte das Öffnen-Fenster von windows kommen wo ich das video auswählen kann, oder eine Msgbox wo man den Pfad zum datei eigeben könnte.
Würde mich über hilfe sehr freuen
Hi Askawa,
prinzipiell so:
Option Explicit
Sub tt()
Dim b As String, öffne As Double
ChDrive "C"
ChDir "C:\test"
b = Application.GetOpenFilename("Text Files (\*.txt), \*.txt")
öffne = Shell("c:\windows\notepad.exe " & b)
End Sub
Gruß
Reinhard
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
WMP wird geladen aber, nicht der in der userform
Danke mit deinem Code kann ich die datei schon mal mit öffnen dialog und dem wmp wiedergeben, aber leider net mit dem mediaplayer im fenster 
habe schon mit allen exe-datein in Verzeichniss vom Wmp probiert
hat das eventuel irgendwas mit der steuerelement dll zu tun?
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Danke mit deinem Code kann ich die datei schon mal mit öffnen
dialog und dem wmp wiedergeben, aber leider net mit dem
mediaplayer im fenster
habe schon mit allen exe-datein in Verzeichniss vom Wmp
probiert
hat das eventuell irgendwas mit der steuerelement dll zu tun?
Hi Asakawa,
nö, nix mit dll.
Private Sub UserForm_Initialize()
Dim b As String
ChDrive „C“
ChDir „C:\Dokumente und Einstellungen\All Users\Dokumente\Eigene Musik\Beispielmusik“
b = Application.GetOpenFilename(„Musik Files (*.wma), *.wma“)
MediaPlayer1.Filename = b
MediaPlayer1.Play
End Sub
Gruß
Reinhard