TreeView Einstieg (Bundesländer und Landeshauptstädte auflisten)

    • TreeView Einstieg (Bundesländer und Landeshauptstädte auflisten)



      OK, hier ein kleiner Einstieg zur TreeView-Baumansichts-Komponente. Platziert die TreeView, eine ImageList sowie einen StatusStrip auf dem Formular.
      Da der Konstruktor-Code (diesen müssen wir vorher ein wenig ausbauen) des Formulars so nicht sichtbar ist, müsst ihr in der Codeansicht in der rechten Spalte die ComboBox anklicken und "NEW" anwählen (siehe Foto).


      Konstruktorcode anzeigen



      Visual Basic Source Code

      1. Public Class Form1
      2. Private data(,) = {{"Baden-Württemberg", "Stuttgart"}, {"Bayern", "München"}, _
      3. {"Berlin", "Berlin"}, {"Brandenburg", "Potsdam"}, _
      4. {"Bremen", "Bremen"}, {"Hamburg", "Hamburg"}, _
      5. {"Hessen", "Wiesbaden"}, {"Mecklenburg-Vorpommern", "Schwerin"}, _
      6. {"Niedersachsen", "Hannover"}, {"Nordrhein-Westfalen ", "Düsseldorf"}, _
      7. {"Rheinland-Pfalz", "Mainz"}, {"Saarland", "Saarbrücken"}, _
      8. {"Sachsen", "Dresden"}, {"Sachsen-Anhalt", "Magdeburg"}, _
      9. {"Schleswig-Holstein", "Kiel"}, {"Thüringen", "Erfurt"}}
      10. Private i As Integer
      11. ' Konstruktor anpassen
      12. Public Sub New()
      13. ' this call is required by the designer.
      14. InitializeComponent()
      15. ' Add any initialization after the InitializeComponent() call.
      16. ' Die TreeView füllen
      17. With TreeView1
      18. .BeginUpdate() ' Aus Performance Gründen --> andauerndes Neuzeichnen der Komponente untersagen
      19. .Nodes.Clear()
      20. ' ROOT
      21. .Nodes.Add("Deutschland")
      22. Dim n As TreeNode = TreeView1.Nodes(0) ' Ein bisschen Schreibarbeit ersparen
      23. For Me.i = 0 To 15
      24. n.Nodes.Add(Me.data(i, 0))
      25. n.Nodes.Item(i).ImageIndex = i + 1
      26. n.Nodes(i).Nodes.Add(Me.data(i, 1))
      27. Next
      28. End With
      29. TreeView1.EndUpdate() ' Neuzeichnen veranlassen
      30. End Sub
      31. ' Aktuell gewählten Knoten ausgeben
      32. Private Sub TreeView1_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeView1.AfterSelect
      33. ' Vorher nochmal zurücksetzen
      34. StatusStrip1.Items(0).Text = String.Empty
      35. StatusStrip1.Items(0).Text = "Auswahl : " & e.Node.FullPath
      36. End Sub
      37. End Class
      Display All



      ..:: AUSGABE ::..