Windows Media Player

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von crashy2002.

    Windows Media Player

    VB.NET-Quellcode

    1. Public Class Musik_Player
    3. Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
    4. OpenFileDialog1.ShowDialog()
    5. TextBox1.Text = OpenFileDialog1.FileName
    6. ListBox1.Items.Add(TextBox1.Text)
    8. End Sub
    10. Private Sub TrackBar1_Scroll(sender As System.Object, e As System.EventArgs) Handles TrackBar1.Scroll
    11. AxWindowsMediaPlayer1.settings.volume = TrackBar1.Value & "0"
    12. End Sub
    14. Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
    15. AxWindowsMediaPlayer1.Ctlcontrols.stop()
    16. Button1.Enabled = True
    17. Button2.Enabled = False
    18. Button3.Enabled = False
    19. End Sub
    21. Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    22. Button1.Enabled = True
    23. Button2.Enabled = False
    24. Button3.Enabled = True
    25. AxWindowsMediaPlayer1.Ctlcontrols.pause()
    26. End Sub
    28. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    29. Button1.Enabled = False
    30. Button2.Enabled = True
    31. Button3.Enabled = True
    32. AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem
    33. If AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem Then
    34. AxWindowsMediaPlayer1.Ctlcontrols.play()
    35. End If
    36. End Sub
    38. Private Sub TrackBar2_Scroll(sender As System.Object, e As System.EventArgs) Handles TrackBar2.Scroll
    39. AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = TrackBar2.Value
    40. End Sub
    41. End Class


    Ich hab da folgendes Problem:

    Ich veröffentliche meine Anwendung nicht über das Veröffentlichen Tool von Visual Basics sondern einfach indem ich die .exe datei aus dem Debug Ordner kopiere und ich habe da den Windows Media Player in dieser Form drinne.Wenn ich das Programm dann nicht im Debug Modus starte sondern außerhalb auf dem Desktop und dann auf den Musik Player dann guckt mal den Bild anhang und wenn ich dann auf Details klicke kommt das:

    Spoiler anzeigen

    Informationen über das Aufrufen von JIT-Debuggen
    anstelle dieses Dialogfelds finden Sie am Ende dieser Meldung.

    ************** Ausnahmetext **************
    System.InvalidOperationException: Fehler beim Erstellen des Formulars. Weitere Informationen finden Sie in Exception.InnerException. Fehler: Die Datei oder Assembly "AxInterop.WMPLib, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null" oder eine Abhängigkeit davon wurde nicht gefunden. Das System kann die angegebene Datei nicht finden.. ---> System.IO.FileNotFoundException: Die Datei oder Assembly "AxInterop.WMPLib, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null" oder eine Abhängigkeit davon wurde nicht gefunden. Das System kann die angegebene Datei nicht finden.
    bei Kartoffel_Programm_2000.Musik_Player.InitializeComponent()
    bei Kartoffel_Programm_2000.Musik_Player..ctor()
    --- Ende der internen Ausnahmestapelüberwachung ---
    bei Kartoffel_Programm_2000.My.MyProject.MyForms.Create__Instance__[T](T Instance)
    bei Kartoffel_Programm_2000.My.MyProject.MyForms.get_Musik_Player()
    bei Kartoffel_Programm_2000.Hauptmenü_2.MetroTileItem29_Click(Object sender, EventArgs e)
    bei DevComponents.DotNetBar.BaseItem.RaiseClick(eEventSource source)
    bei DevComponents.DotNetBar.BaseItem.InternalMouseUp(MouseEventArgs objArg)
    bei DevComponents.DotNetBar.Metro.MetroTileItem.InternalMouseUp(MouseEventArgs objArg)
    bei DevComponents.DotNetBar.BaseItem.InternalMouseUp(MouseEventArgs objArg)
    bei DevComponents.DotNetBar.ItemContainer.InternalMouseUp(MouseEventArgs objArg)
    bei DevComponents.DotNetBar.ItemControl.OnMouseUp(MouseEventArgs e)
    bei DevComponents.DotNetBar.ItemPanelBase.OnMouseUp(MouseEventArgs e)
    bei System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
    bei System.Windows.Forms.Control.WndProc(Message& m)
    bei System.Windows.Forms.ScrollableControl.WndProc(Message& m)
    bei System.Windows.Forms.ContainerControl.WndProc(Message& m)
    bei DevComponents.DotNetBar.ItemControl.WndProc(Message& m)
    bei System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
    bei System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
    bei System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)

    ************** Geladene Assemblys **************
    mscorlib
    Assembly-Version: 4.0.0.0.
    Win32-Version: 4.0.30319.18449 built by: FX451RTMGDR.
    CodeBase: file:///C:/Windows/Microsoft.NET/Framework/v4.0.30319/mscorlib.dll.
    ----------------------------------------
    Kartoffel Programm 2000
    Assembly-Version: 1.0.0.0.
    Win32-Version: 1.0.0.0.
    CodeBase: file:///C:/Users/Christian/Desktop/Kartoffel Programm 2000 - v 0.8.8.exe.
    ----------------------------------------
    Microsoft.VisualBasic
    Assembly-Version: 10.0.0.0.
    Win32-Version: 11.0.50709.17929 built by: FX45RTMREL.
    CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/Microsoft.VisualBasic/v4.0_10.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.dll.
    ----------------------------------------
    System
    Assembly-Version: 4.0.0.0.
    Win32-Version: 4.0.30319.34239 built by: FX452RTMGDR.
    CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System/v4.0_4.0.0.0__b77a5c561934e089/System.dll.
    ----------------------------------------
    System.Core
    Assembly-Version: 4.0.0.0.
    Win32-Version: 4.0.30319.18331 built by: FX45GDRSTAGE.
    CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Core/v4.0_4.0.0.0__b77a5c561934e089/System.Core.dll.
    ----------------------------------------
    System.Windows.Forms
    Assembly-Version: 4.0.0.0.
    Win32-Version: 4.0.30319.18331 built by: FX45GDRSTAGE.
    CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Windows.Forms/v4.0_4.0.0.0__b77a5c561934e089/System.Windows.Forms.dll.
    ----------------------------------------
    System.Drawing
    Assembly-Version: 4.0.0.0.
    Win32-Version: 4.0.30319.18331 built by: FX45GDRSTAGE.
    CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Drawing/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll.
    ----------------------------------------
    System.Runtime.Remoting
    Assembly-Version: 4.0.0.0.
    Win32-Version: 4.0.30319.34243 built by: FX452RTMGDR.
    CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Runtime.Remoting/v4.0_4.0.0.0__b77a5c561934e089/System.Runtime.Remoting.dll.
    ----------------------------------------
    DevComponents.DotNetBar2
    Assembly-Version: 12.4.0.1.
    Win32-Version: 12.4.0.1.
    CodeBase: file:///C:/Windows/assembly/GAC_MSIL/DevComponents.DotNetBar2/12.4.0.1__7eb7c3a35b91de04/DevComponents.DotNetBar2.dll.
    ----------------------------------------
    Accessibility
    Assembly-Version: 4.0.0.0.
    Win32-Version: 4.0.30319.17929 built by: FX45RTMREL.
    CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/Accessibility/v4.0_4.0.0.0__b03f5f7f11d50a3a/Accessibility.dll.
    ----------------------------------------
    mscorlib.resources
    Assembly-Version: 4.0.0.0.
    Win32-Version: 4.0.30319.18010 built by: FX45RTMGDR.
    CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/mscorlib.resources/v4.0_4.0.0.0_de_b77a5c561934e089/mscorlib.resources.dll.
    ----------------------------------------
    Microsoft.VisualBasic.resources
    Assembly-Version: 10.0.0.0.
    Win32-Version: 11.0.50709.18010 built by: FX45RTMGDR.
    CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/Microsoft.VisualBasic.resources/v4.0_10.0.0.0_de_b03f5f7f11d50a3a/Microsoft.VisualBasic.resources.dll.
    ----------------------------------------
    System.Windows.Forms.resources
    Assembly-Version: 4.0.0.0.
    Win32-Version: 4.0.30319.18331 built by: FX45GDRSTAGE.
    CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Windows.Forms.resources/v4.0_4.0.0.0_de_b77a5c561934e089/System.Windows.Forms.resources.dll.
    ----------------------------------------

    ************** JIT-Debuggen **************
    Um das JIT-Debuggen (Just-In-Time) zu aktivieren, muss in der
    Konfigurationsdatei der Anwendung oder des Computers
    (machine.config) der jitDebugging-Wert im Abschnitt system.windows.forms festgelegt werden.
    Die Anwendung muss mit aktiviertem Debuggen kompiliert werden.

    Zum Beispiel:

    <configuration>
    <system.windows.forms jitDebugging="true" />
    </configuration>

    Wenn das JIT-Debuggen aktiviert ist, werden alle Ausnahmefehler an den JIT-Debugger gesendet, der auf dem
    Computer registriert ist, und nicht in diesem Dialogfeld behandelt.


    Die Form wird dann nicht angezeigt weil er Probelme mit dem Windows media Player hat... :(
    Kann mir da wer weiter helfen?
    Sorry nochmal weil ich immer so dumme fragen stelle.

    Thema verschoben und Spoiler eingefügt. ~Trade
    Bilder

    • Unbenannt.PNG

      14,89 kB, 445×206, 132 mal angesehen

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Trade“ ()

    Du kannst nicht einfach ausführbare Dateien durch die Gegend verschieben und erwarten, dass diese dann weiterhin funktionieren. Du kannst ja mal versuchen irgendeine ausführbare Datei aus deinen installierten Programmen verschieben, ausführen und schauen was passiert.

    Normalerweise kopiert / erzeugt Visual Studio alle relevanten Dateien im Debug-Ordner, du müsstest also zumindest diesen Ordner an andere Stellen kopieren. Falls du möchtest, dass dein Programm "auf dem Desktop liegt", denke über die Verwendung einer Verknüpfung nach.

    Da ich weiß, dass du einen sehr erfolgreichen Youtube-Kanal betreibst und du so ziemlich alles was du gelernt hast dort zeigst, möchte ich dir noch
    erklären wie man normalerweise mit einem FileDialog umgeht.
    Es handelt sich um den Code:

    VB.NET-Quellcode

    1. Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
    2. OpenFileDialog1.ShowDialog()
    3. TextBox1.Text = OpenFileDialog1.FileName
    4. ListBox1.Items.Add(TextBox1.Text)
    6. End Sub

    Die Methode ShowDialog() gibt einen DialogResult zurück. Warum wertest du ihn nicht aus? Du kannst doch gar nicht sicher sein, dass der Benutzer den Dialog bestätigt.
    Im Allgemeinen würde ich es so machen:

    VB.NET-Quellcode

    1. Using ofd As New OpenFileDialog With {.CheckPathExists = True, .CheckFileExists = True, .Filter = "[Dateityp] (*.[FileExt])|*.[FileExt]"}
    2. If ofd.ShowDialog() = DialogResult.OK Then
    3. TextBox1.Text = ofd.FileName
    4. ListBox1.Items.Add(TextBox1.Text)
    5. End If
    6. End Using

    Wenn du wirklich per Designer einen FileDialog erstellen musst/willst brauchst du halt eben nur die If-Abfrage.

    Statt der ListBox unhandliche Strings hinzuzufügen, würde ich es vorziehen die ListBox an eine List(Of FileInfo) zu binden. Dann kannst du nämlich festlegen welcher DataMember in
    der ListBox visualisiert wird und der Rest der Daten zum File bleibt dennoch erhalten.

    Hier mal n Link vom EDR: Klickstu hier

    MfG Tim

    Ok Danke Tim :D
    Ich werde es mal ausbessern.
    allerdings habe ich mir das Zertifikat *kaputt gemacht* indem ich meinen PC neu aufgesetzt habe und kann den Debug modus nicht mehr starten :(
    aber da finde ich auch noch ne lösung!

    Formulierung angepasst. ~Trade

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Trade“ ()

Facebook
Telefonspende