Visual Basic 6, WMP Control

Computer: Software & Programmierung .NET & C#
#1

Hallo Leutz,
brauch Unterstützung, kurz vorab. Stelle hier keine Fragen die ich nicht schon selber gegoogelt habe.
Bin auch kein billiger Anfänger und hab selber schon alles mögliche ausprobiert, find aber keine Lösung.

Folgendes Problem. Wie kann ich das WMP Control in VB so disablen dass das Kontektmenü komplett ausgeschaltet ist? Sprich ESC, Rechtsklick, Mausrad (Volume) ??
Zusätzlich lass ich dass Video über app.path in Vollbild über die Form laufen, aber wenn ich ESC drücke haut er ihn wieder in Normalmodus.

Wie mach ich das aus. VIELEN DANK FÜR EURE HILFEN!!
Bitte keine unnötigen Kommentare.

#2

Es tut mir leid, aber da kann ich nicht weiterhelfen

#3

Hallo Thunderclap66,
tut mir leid aber ich kenne mich mit dem WMP Control nicht aus. Ich denke aber, dass sicher jmd. anderes eine Antwort darauf weiß.

#4

Servus,

das selbe Prob. hatte ich auch schon gehabt. Leider habe ich bis heute keine Lösung Dafür gefunden.

Da ich VB6 nicht mehr auf meinem Rechner habe, sondern alles auf unter VB 2008 schreibe ( unter dem .NET Framework ) habe ich da auch nicht mehr weiter nachgeguckt.

Aber eine seeeeehr gute Anlauf Adresse für solche Probs ist immer http://www.vbarchiv.net

Frage da doch mal nach. Dort finde ich auch immer die Antworten auf die Fragen, welch ich nicht googlen kann :smile:

Sorry, das ich dir nich weiter helfen kann.

Mfg
Mario

www.pixcore.de
Artworks .:. Software .:. more

#5

Hallo Thunderclap666

Die einfachste Lösung ist das WMP-Control in einen Container zu legen (Frame oder Picture).
Beispiel unten mit Picture

Private Sub Form_Load()
'Vollbild 19 ZollBildschirm mit 1280 x 1024

Picture1.Move 0, 0, 19200, 15360

'Vollbild WMP - Control
WindowsMediaPlayer1.Move 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight

'Laden Video hier mit dem Namen Video.mpg
WindowsMediaPlayer1.URL = App.Path & „\Video.mpg“

'Vollbild Videoanzeige
WindowsMediaPlayer1.stretchToFit = True

'Durch enablen des Picture Controls keinZugriff mehr auf das WMP Control
Picture1.Enabled = False
End Sub

Jetzt läuft das Video ab, ohne dass der Nutzer dass eine Taste reagiert.

Ende des Videos abfangen

Private Sub WindowsMediaPlayer1_StatusChange()
If WindowsMediaPlayer1.Status = „Beendet“ Then Picture1.Enabled = False
End Sub

Jetzt kann man z.B. Picture1 visible auf False setzen um die normale Form anzuzeigen

Ich hoffe, ich konnte weiterhelfen.

MfG

#6

Hallo Willi,

auf die Idee das in eine Picturebox zu packen und diese zu disablen wäre ich gar nicht gekommen. danke.
werde es heute abend gleich ausprobieren und mitteilen obs funktioniert hat.

#7

Picture1.Enabled = False

Jetzt läuft das Video ab, ohne dass der Nutzer dass eine Taste

reagiert.

( Hat nicht funktioniert ? Noch ne andere idee ?

#8

Hallo

Hier noch mal der Code für das gesamte Projekt

Kopiere ihn und füge ihn in ein neues Projekt ein.
Lege auf die Form ein Picture Steuerelement, und in das Picture ein WMP Control. Speicher das Projekt an irgendeinem Ort ab. lege in das gleiche Verzeichnis das Video und ersetzte im Code den Text Hier das eigene Video eintragen.wmv dann starte das Projekt.
Bei mir funktioniert es einwandfrei.

Code zu Kopieren

Option Explicit

Private Sub Form_Load()
Me.Move 0, 0, 19200, 15360
Picture1.Move 0, 0, 19200, 15360
WindowsMediaPlayer1.Move 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight
WindowsMediaPlayer1.URL = App.Path & „\Hier das eigene Video eintragen.wmv“
WindowsMediaPlayer1.stretchToFit = True

Picture1.Enabled = False
End Sub

Private Sub WindowsMediaPlayer1_StatusChange()
If WindowsMediaPlayer1.Status = „Beendet“ Then
Picture1.Enabled = False
Picture1.Visible = False
DoEvents
End If
End Sub

#9

Vielen Dank hat perfekt funktioniert !