Form Handles (Media-Player Problem)

  • VB.NET

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von Twintop.

    Form Handles (Media-Player Problem)

    Hi Leute
    ich habe einen kleinen Mediplayer programmiert, der mp3 abspielt.
    So nun möchte ich das wenn ich auf eine (Mp3-)Datei gehe und dort drücke "Öffnen mit..." mein Programm öffnet und die Datei abspielt.
    Wie mache ich das?
    Vielleicht in der

    VB.NET-Quellcode

    1. Form1.Load(Byval sender as ... , ByVal Dateiname as String)
    ??

    Jaja ich weiß wie ich eine Datei mit meinem Programm öffen aber:

    1.Frage: Ich möchte das mein Player diese Datei dann auch abspielt. Geht das mit Parametern?

    2.Frage: Wie kann ich eine Item in einer Listbox suchen(Mit einem String?)?

    Ja klar geht das. Mit dem Code kriegst du ja den Pfad zur Datei, die kannst du dann abspielen. Was meinst du mit "suchen"? Du kannst die Einträge in einer Schleife durchgehen und falls gefunden die Schleife verlassen und den Index des Eintrags in eine Variable schreiben.

    Mit "suchen" meinte ich eigentlich das:
    In meiner Listbox Steht:
    C:\Users\Music\Lied.wma
    C:\Users\Music\Song.wma

    So nun möchte ich das wenn ich Song eingebe "C:\Users\Music\Song.wma" ausgewählt wird(selected) also blau hinterlegt, wie mache ich das denn?

    Hier ein kleines Beispiel, das alle Items markiert, das mit dem eingegeben Text übereinstimmen:

    VB.NET-Quellcode

    1. Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
    2. If TextBox1.Text = "" Then
    3. ListBox1.SelectedIndex = "-1"
    4. Else
    5. ListBox1.SelectedIndex = "-1"
    6. For i As Long = 0 To ListBox1.Items.Count - 1
    7. If ListBox1.Items.Item(i).ToString.Contains(TextBox1.Text) = True Then
    8. ListBox1.SelectedIndex = i
    9. End If
    10. Next
    11. End If
    12. End Sub

    hey danke funktioniert

    aber noch eine frage:
    ich möchte das nur der Dateiname angezeigt wird und nicht noch ganz der Pfad, wie mache ich das?
    also "C:\users\Music\Lied.wma
    Lied.wma soll nur angezeigt werden

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

    Probier dies einmal so:

    VB.NET-Quellcode

    1. Public Class Song
    2. Private _FileName As String
    3. Private _Path As String
    5. Public Sub New()
    7. End Sub
    9. Public Sub New(ByVal fileName As String, ByVal path As String)
    10. _FileName = fileName
    11. _Path = path
    12. End Sub
    14. Public Property Filename() As String
    15. Get
    16. Return _FileName
    17. End Get
    18. Set(ByVal value As String)
    19. _FileName = value
    20. End Set
    21. End Property
    23. Public Property Path() As String
    24. Get
    25. Return _Path
    26. End Get
    27. Set(ByVal value As String)
    28. _Path = value
    29. End Set
    30. End Property
    32. Public Overrides Function ToString() As String
    33. Return Me.Filename
    34. End Function
    36. End Class
    38. .
    39. .
    40. .
    42. listbox1.items.add(New Song("c:\mp3\lied1.mp3", "lied1.mp3"))
    43. listbox1.items.add(New Song("c:\mp3\lied2.mp3", "lied2.mp3"))
    44. listbox1.items.add(New Song("c:\mp3\lied3.mp3", "lied3.mp3"))
    46. For i = 0 To listbox1.Items.Count - 1
    47. Dim item As Song = DirectCast(listbox1.Items.Item(i), Song)
    48. If item.Path.Contains("lied2") Then listbox1.SelectedIndex = i
    49. Next i

    Da brauchst du einen Folderbrowserdialog, keinen Openfiledialog. Der Folderbrowserdialog wirft dann zb "C:\Music" aus und du darfst dann ein weiteres "\" nicht vergessen, also zum Beispiel

    VB.NET-Quellcode

    1. FolderBrowserDialog1.SelectedPath & "\lied.mp3"

    Hab grad herausgefunden das, wenn ich es so mache das es immer noch so angezeigt wird:


    Hier mein Quellcode:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim Medien2 As New Collection
    3. Shared x()
    4. Private Sub ÖffnenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    5. OpenFileDialog1.ShowDialog()
    7. AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName.ToString
    8. Me.Text = OpenFileDialog1.FileName.ToString
    9. End Sub
    16. Private Sub madd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles madd.Click
    17. FolderBrowserDialog1.ShowDialog()
    18. Dim directory As New System.IO.DirectoryInfo(FolderBrowserDialog1.SelectedPath)
    20. For Each file As System.IO.FileInfo In directory.GetFiles
    22. If file.Extension = ".mp3" Then
    24. BindingSource1.Add(New Song(file.FullName, file.Name))
    26. End If
    27. For i = 0 To ListBox1.Items.Count - 1
    28. Dim item As Song = DirectCast(ListBox1.Items.Item(i), Song)
    29. If item.Path.Contains("lied2") Then ListBox1.SelectedIndex = i
    31. Next i
    32. Next
    33. End Sub
    38. Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
    39. If TextBox1.Text = "" Then
    40. ListBox1.SelectedIndex = "-1"
    41. Else
    42. ListBox1.SelectedIndex = "-1"
    43. For i As Long = 0 To ListBox1.Items.Count - 1
    44. If ListBox1.Items.Item(i).ToString.Contains(TextBox1.Text) = True Then
    45. ListBox1.SelectedIndex = i
    46. End If
    47. Next
    48. End If
    50. End Sub
    52. Private Sub ListBox1_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
    54. AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem.ToString
    57. End Sub
    61. End Class
    65. Public Class Song
    66. Private _FileName As String
    67. Private _Path As String
    69. Public Sub New()
    71. End Sub
    73. Public Sub New(ByVal fileName As String, ByVal path As String)
    74. _FileName = fileName
    75. _Path = path
    76. End Sub
    78. Public Property Filename() As String
    79. Get
    80. Return _FileName
    81. End Get
    82. Set(ByVal value As String)
    83. _FileName = value
    84. End Set
    85. End Property
    87. Public Property Path() As String
    88. Get
    89. Return _Path
    90. End Get
    91. Set(ByVal value As String)
    92. _Path = value
    93. End Set
    94. End Property
    96. Public Overrides Function ToString() As String
    97. Return Me.Filename
    98. End Function
    100. End Class

    Nimm doch einfach den hier:

    VB.NET-Quellcode

    1. For i=0 to ListBox1.Items.Count -1
    2. Dim v As Object
    3. Dim item As String
    4. item=ListBox1.Items.Item(i)
    5. v=Split(item, "\")
    6. ListBox1.Items.Item(i)=v(Ubound(v))
    7. Next


    Das kannst du zum Beispiel in einen Timer hauen oder nach jeder Änderung der Liste ausführen lassen. Tipp: Mach doch Drag & Drop für die Liste.

    hi leute hab schonwieder ein probelem und zwar wenn ich (in meiner listbox steht "C:\User\Bla\Music\Gummibär.mp3") dann klicke ich doppelt drauf und der Media-player zeigt ne Fehlermeldung an von wegen: "der erweiterung von(.)"
    Kann mir jemand helfen???

Facebook
Telefonspende