Dateien in listbox

  • VB.NET

Es gibt 35 Antworten in diesem Thema. Der letzte Beitrag () ist von toto.

    Die ist bei dir nicht vorhanden :) !
    Darum Doppelklick auf die Form in der IDE, schon hast du das Form.Load Event!:
    Oder so:

    VB.NET-Quellcode

    1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    2. 'String zuweisen
    3. End Sub

    Hallo ihr zwei,

    Wert zuweisen:

    VB.NET-Quellcode

    1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    3. Dim Musikordner As String
    4. Musikordner = "C:\Dokumente und Einstellungen\user\Eigene Dateien\JAZZ ARCHIV\PLAYFILES\AUDIO\" & cboSong.Text



    Hir wird der Musikordner als nicht deklariert

    VB.NET-Quellcode

    1. 'Audio Files an Listbox Form 2 übergeben
    2. 'Private _Musikordner As String '"C:\Dokumente und Einstellungen\user\Eigene Dateien\JAZZ ARCHIV\PLAYFILES\AUDIO\" & cboSong.Text
    4. Private Sub cboSong_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboSong.Click
    5. Try
    6. ' _Musikordner = Verzeichnis
    7. ' Listbox1 = Listbox, in dem die gefundenen Dateien angezeigt werden
    8. ' DirectCast(sender, ComboBox).SelectedItem.ToString = In ComboBox1 ausgewählter Dateiname
    9. Me.ListBoxFüllen(_Musikordner, Form2.lboAudio, DirectCast(sender, ComboBox).SelectedItem.ToString, IO.SearchOption.AllDirectories)
    10. Catch ex As Exception
    11. MessageBox.Show(ex.Message)
    12. End Try
    13. End Sub


    Ich weiß das ich was falsch mache, aber was??

    lg

    toto
    lg toto

    toto schrieb:

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim Musikordner As String
    Musikordner = "C:\Dokumente und Einstellungen\user\Eigene Dateien\JAZZ ARCHIV\PLAYFILES\AUDIO\" & cboSong.Text
    muss:

    VB.NET-Quellcode

    1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    2. Musikordner = "C:\Dokumente und Einstellungen\user\Eigene Dateien\JAZZ ARCHIV\PLAYFILES\AUDIO\" & cboSong.Text
    3. End Sub

    werden
    UFO

    teste das mal:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private _Musikordner As String
    3. Private Sub cboSong_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboSong.Click
    4. Try
    5. ' _Musikordner = Verzeichnis
    6. ' Listbox1 = Listbox, in dem die gefundenen Dateien angezeigt werden
    7. ' DirectCast(sender, ComboBox).SelectedItem.ToString = In ComboBox1 ausgewählter Dateiname
    8. Me.ListBoxFüllen(_Musikordner, Form2.lboAudio, DirectCast(sender, ComboBox).SelectedItem.ToString, IO.SearchOption.AllDirectories)
    9. Catch ex As Exception
    10. MessageBox.Show(ex.Message)
    11. End Try
    12. End Sub
    14. ''' <summary>
    15. ''' Alle Dateien eines Verzeichnisses durch Angabe des Dateinamens in einem ListBox anzeigen
    16. ''' </summary>
    17. ''' <param name="ordner">Verzeichnis</param>
    18. ''' <param name="lstbox">Listbox, in dem die gefundenen Dateien angezeigt werden</param>
    19. ''' <param name="dateiName">Name der gesuchten Dateien</param>
    20. ''' <param name="suchOption">Angabe, ob Unterverzeichnisse durchsucht werden</param>
    21. ''' <remarks></remarks>
    22. Private Sub ListBoxFüllen(ByVal ordner As String, ByVal lstbox As ListBox, ByVal dateiName As String, ByVal suchOption As IO.SearchOption)
    23. ' Ausnahmefehler ausgeben, wenn ordner nicht angegeben ist
    24. If String.IsNullOrEmpty(ordner) Then Throw New ArgumentNullException("C:\Dokumente und Einstellungen\user\Eigene Dateien\JAZZ ARCHIV\PLAYFILES\AUDIO\" & cboSong.Text)
    26. Dim locDirInfo As New IO.DirectoryInfo(ordner)
    27. ' Fehler ausgeben, wenn ordner nicht existiert
    28. If Not locDirInfo.Exists Then Throw New IO.DirectoryNotFoundException
    30. Try
    31. lstbox.BeginUpdate()
    32. lstbox.Items.Clear()
    34. For Each locFileInfo As IO.FileInfo In locDirInfo.GetFiles("*" & dateiName & "*", suchOption)
    35. ' Vollständiger Pfad anzeigen (FullName)
    36. lstbox.Items.Add(locFileInfo.FullName)
    37. Next
    38. Catch ex As Exception
    39. Throw ex
    40. Finally
    41. lstbox.EndUpdate()
    42. locDirInfo = Nothing
    43. End Try
    44. End Sub
    45. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    46. Musikordner = "C:\Dokumente und Einstellungen\user\Eigene Dateien\JAZZ ARCHIV\PLAYFILES\AUDIO\" & cboSong.Text
    47. End Sub

    Hallo Schwammekk,

    es ist traurig von so eine Kritik zu lesen,
    bin seit zwei Tage dabei und wenn ich verstanden hätte was ich falsch mache hätte ich sicher nicht gepostet.

    Mein anfänglicher Code hat nicht gefunzt, mir ist etwas anders angeboten worden und habe natürlich die Coden eingesetzt in der Offnung weiter zu kommen.

    Es tut mir Leid wenn du meine Anstrengugen hier bei mir daheim nicht sehen kannst, mir ist auch klar das meine Kenntnisse nicht so fortschrittlich sind um alles zu verstehen.
    Aber trotzdem Danke an alle die sich bemuht haben.

    Werde versuchen allein weiterzumachen.

    lg

    toto
    lg toto

    Eine Variable zu deklarieren gehört zu den Grundkenntnissen! Deshalb wäre es angebracht, ein (kostenloses) Buch über vb.net zu lesen.
    Das hier ist z. B. ein kostenloses: openbook.galileocomputing.de/einstieg_vb_2010/
    Wenn der Fehler kommt, dass "Musikordner" nicht deklariert ist, dann existiert diese Variable nicht. Entweder hast du etwas falsch geschrieben oder nicht deklariert. Im Code ist nur "_Musikordner" deklariert. Wahrscheinlich musst du dieser Variable den Ordnerpfad zuweisen.

    @toto...
    Es war eine gute entscheidung, ein neues Thema aufzumachen, denn nun
    können andere über Google leichter eine Lösung für das Problem finden.
    Aber tu mir den Gefallen und lern erstmal Visual Basic. Tipps: Youtube.com :)
    Ich habe all (fast!) mein Wissen aus Youtube. Und so habe ich es auch
    zusammengebastelt.
    Ein Teil vom Webbrowser kannst du in einem anderem Programm brauchen..
    Das andere Video hilft dir woanders weiter..
    Und so bastelt man sich stück für stück immer weiter, bis man Visual Basic kann.
    Also damit ist gemeint, dass du dann aus allem möglichem ein großes Programm
    baust.
    Und da ich sehe, dass du ja noch Anfänger bist.. Bitte versuch dich nicht erst an
    Copy & Paste ran. Denn auf diesem Weg verlierst du am schnellstem dein Wissen
    über Visual Basic.

    Ich hoffe, ich habe jetzt nichts falsches gesagt^^
    Grüße, powachill :thumbsup:

Facebook
Telefonspende