Listbox Einträge hervorheben + Listbox in ein Array übergeben

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von AliveDevil.

    Listbox Einträge hervorheben + Listbox in ein Array übergeben

    Hallo,

    ich schreibe gerade ein Programm, welches einen definierten Pfad(+ Unterverzeichnisse) nach .doc Dateien durchsucht.

    Diese werden dann Automatisch in eine Listbox eingepflegt und nach Alphabet sortiert (Ohne Array sondern mit einem Simplen befehl)

    Nun möchte ich wissen wie ich den ersten Buchstaben des Alphabet Hervorheben kann. ?(

    z.B

    Aaa
    aaa
    aaa
    Bbb
    bbb
    Ccc
    Ddd


    Danach möchte ich alle Listbox1 Einträge in ein Array schreiben, damit ich es nachher über eine Suchfunktion auslesen kann.
    (Das habe ich bereits mal Programmiert. Mir fehlt jedoch nur der übergang von "Listbox1 to Array"


    Quellcode

    1. Form2.ListBox1.Sorted = True
    5. 'Scannt nach .Doc Dateien und trägt es in die Listbox ein
    7. Dim sFile As String
    8. Dim sPath As String
    12. ' Startverzeichnis
    13. 'sPath = Application.StartupPath
    14. sPath = "Z:\Formulare HL"
    23. ' ggf. abschließenden Backslash hinzufügen
    24. If Not sPath.EndsWith("\") Then sPath += "\"
    26. ' alle TXT-Dateien im Startverzeichnis einschl. Unterordner
    27. ' in einer ListBox anzeigen
    28. For Each sFile In My.Computer.FileSystem.GetFiles(sPath, FileIO.SearchOption.SearchAllSubDirectories, "*.doc")
    32. ' Dateiname mit relativer Pfadangabe zum Startverzeichnis ausgeben
    33. Form2.ListBox1.Items.Add(sFile.Substring(sPath.Length))
    37. Next
    39. 'Zählt meine Einträge von der Listbox1
    41. Form2.Label5.Text = Form2.ListBox1.Items.Count


    __

    PS; Nein, ich bin kein VB-Neulin; Ja, ich habe Google zu diesem Thema schon seit 2 wochen in Bedienung. 8-)
    Um Hilfe wäre ich sowas von dankbar :)

    Von ListBox nach Array:

    VB.NET-Quellcode

    1. Dim array As New List(Of String)
    2. For Each sFile In My.Computer.FileSystem.GetFiles(sPath, FileIO.SearchOption.SearchAllSubDirectories, "*.doc")
    3. array.Add(sFile)
    4. Form2.ListBox1.Items.Add(sfile.Replace(sPath, ""))
    5. 'statt Form2.ListBox1.Items.Add(sFile.Substring(sPath.Length))
    6. Next

    Fertig^^
    Oder

    VB.NET-Quellcode

    1. For Each item In ListBox1.Items
    2. array.Add(sPath & "\" & item)
    3. Next

    Hey vielen Dank für alle euren tollen Hilfestellungen!
    Ich bin euch sehr sehr dankbar !
    Werde es Morgen mal ausprobieren, liege gerade krank im Bett -.- grr..

    Listbox to Array hat sehr gut nun funktioniert!


    Mit dem hervorheben was Du mir dort aber gesendet hast ist mir ein wenig zu komplex, da es Java und noch etwas anderes von M$ behandelt :D sag bitte nicht Du verstehst es :) ;) :D

    Quellcode

    1. MsgBox ("Danke sehr")
    ;) :D

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

    AliveDevil schrieb:

    Von ListBox nach Array:

    VB.NET-Quellcode

    1. Dim array As New List(Of String)
    2. For Each sFile In My.Computer.FileSystem.GetFiles(sPath, FileIO.SearchOption.SearchAllSubDirectories, "*.doc")
    3. array.Add(sFile)
    4. Form2.ListBox1.Items.Add(sfile.Replace(sPath, ""))
    5. 'statt Form2.ListBox1.Items.Add(sFile.Substring(sPath.Length))
    6. Next

    Fertig^^
    Oder

    VB.NET-Quellcode

    1. For Each item In ListBox1.Items
    2. array.Add(sPath & "\" & item)
    3. Next

    Ok Version Nr.2 hat funktionierT !!! :)
    Aber mit dem Text hervorheben in der Listbox klappt bei mir leider nicht so.

    also...da hervorheben:

    1. setze den DrawMode der ListBox auf "Ownerdraw"
    2. füge den Code ein

    VB.NET-Quellcode

    1. Private Sub listBox2_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles listBox2.DrawItem
    2. e.DrawBackground()
    3. Dim textFont As Font
    4. If e.Index Mod 2 = 0 Then
    5. textFont = New Font(e.Font.FontFamily, e.Font.Size * 2)
    6. Else
    7. textFont = e.Font
    8. End If
    10. e.Graphics.DrawString(listBox2.Items(e.Index).ToString(), textFont, New SolidBrush(e.ForeColor), RectangleF.op_Implicit(e.Bounds))
    11. e.DrawFocusRectangle()
    12. End Sub
    14. Private Sub listBox2_MeasureItem(ByVal sender As Object, ByVal e As System.Windows.Forms.MeasureItemEventArgs) Handles listBox2.MeasureItem
    15. If e.Index Mod 2 = 0 Then
    16. e.ItemHeight = e.ItemHeight * 2
    17. End If
    18. End Sub
    achtung! nicht getestet!
    Dann sollte das eig. funktionieren, aber wie gesagt, ich habs nicht getestet

    hmm...quick and dirty:

    VB.NET-Quellcode

    1. Dim tabelle As New List(Of Alphabet)
    2. Dim alph As String = "abcdefghijklmnopqrstuvwxyz"
    4. 'DrawItem:
    5. If Not tabelle(alph(item.Substring(0,1))).Got
    6. 'zeichne fett
    7. tabelle(alph(item.Substring(0,1))).Got = True
    8. else
    9. ' zeichne den rest
    10. 'End DrawItem
    12. Class Alphabet
    13. Private Item_ As String = ""
    14. Private Got_ As Boolean = False
    15. Sub New()
    16. End Sub
    17. Public Property Item As String
    18. Get
    19. Return Item_
    20. End Get
    21. Set(ByVal value As String)
    22. Item_ = value
    23. End Set
    24. End Get
    25. Property Got As Boolean
    26. Get
    27. return Got_
    28. End Get
    29. Set(ByVal value As Boolean)
    30. Got_ = value
    31. End Set
    32. End Property
    33. End Class

    And again not tested!

Facebook
Telefonspende