Von Innerer Klasse auf Property äußerer Klasse zugreifen

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Vatter.

    Von Innerer Klasse auf Property äußerer Klasse zugreifen

    Hey,

    Ich habe eine Form mit 2 Datagridviews. Außerdem habe ich in der Form selbst eine Bindinglist, die Bücher enthält. Die Bindinglist(of Books) ist an dgvBooks gebunden.
    Die Klasse Book ist außerhalb der Form definiert und enthält eine Bindinglist(of Chapter). Die Klasse Chapter ist innerhalb der Klasse Book definiert.
    Es gibt eine Eigenschaft der Buchklasse (Titel), auf die ich auch in der Klasse Chapter zugreifen will (lesen und ändern). Denn wenn jemand den Buchtitel im DGV ändern sollte, dann soll Buchtitel in beiden DGV's synchron geändert werden.
    Je nachdem welches Buch im dgvBooks gerade ausgewählt ist, werden die entsprechenden Kapitel im dgvChapters angezeigt.

    Eine Möglichkeit wäre es Im Konstruktor der Chapter Klasse eine Referenz auf das Buch zu übergeben. Das finde ich aber nicht so sauber.
    Wieso werden eigentlich die Kapitel nicht mit zerstört, wenn ich zum Beispiel ein Buch aus der Bindinglist(of Books) entferne? Die Kapitel werden weiterhin im 2. DGV dargestellt (solange ich die .DataSource nicht ändere).
    Existiert ein Objekt solange, bis keine Referenz mehr darauf existiert?

    Form1

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Property Books As New BindingList(Of Book)
    4. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs)
    5. dgvBooks.SelectionMode = DataGridViewSelectionMode.FullRowSelect
    6. End Sub
    8. Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    9. 'Testdaten einfügen
    10. Dim bk1 As New Book("eins", "11", "111")
    11. Dim bk2 As New Book("zwei", "22", "222")
    12. For i = 1 To 4
    13. bk1.AddChapter("Kapitel 1")
    14. bk2.AddChapter("Kapitel 2")
    15. Next
    16. Books.Add(bk1)
    17. Books.Add(bk2)
    18. dgvBooks.DataSource = Books
    19. End Sub
    21. Private Sub dgvBooks_SelectionChanged(sender As System.Object, e As System.EventArgs) Handles dgvBooks.SelectionChanged
    22. If dgvBooks.SelectedCells.Count <> 0 Then
    23. Dim rowindex As Int32 = dgvBooks.SelectedCells.Item(0).RowIndex
    24. dgvChapters.DataSource = CType(dgvBooks.Rows(rowindex).DataBoundItem, Book).Chapters
    25. Else
    26. dgvChapters.DataSource = Nothing
    27. End If
    28. End Sub
    30. End Class

    Book

    VB.NET-Quellcode

    1. Public Class Book
    3. Private Property _Title As String
    4. Private Property _Subtitle As String
    5. Private Property _Authors As String
    6. Private Property _Chapters As New BindingList(Of Chapter)
    7. Public Sub New(Title As String, Subtitle As String, Authors As String)
    8. _Title = Title
    9. _Subtitle = Subtitle
    10. _Authors = Authors
    11. End Sub
    12. Public Sub AddChapter(ChapterTitle As String)
    13. _Chapters.Add(New Chapter(ChapterTitle))
    14. End Sub
    16. Public Property Title As String
    17. Get
    18. Return _Title
    19. End Get
    20. Set(value As String)
    21. _Title = value
    22. Chapters.ResetBindings()
    23. End Set
    24. End Property
    25. Public Property Subtitle As String
    26. Get
    27. Return _Subtitle
    28. End Get
    29. Set(value As String)
    30. _Subtitle = value
    31. End Set
    32. End Property
    33. Public Property Authors As String
    34. Get
    35. Return _Authors
    36. End Get
    37. Set(value As String)
    38. _Authors = value
    39. End Set
    40. End Property
    41. Public ReadOnly Property Chapters As BindingList(Of Chapter)
    42. Get
    43. Return _Chapters
    44. End Get
    45. End Property
    48. Class Chapter
    49. Private Property _ChapterTitle As String
    50. Public Sub New(ChapterTitle As String)
    51. _ChapterTitle = ChapterTitle
    52. End Sub
    54. Public Property BookTitle As String
    55. Get
    56. Return "????" 'Hier muss der Titel des Buches zurückgegeben werden
    57. End Get
    58. Set(value As String)
    59. 'Hier muss der Titel des Buches geändert werden
    60. End Set
    61. End Property
    62. Public Property ChapterTitle As String
    63. Get
    64. Return _ChapterTitle
    65. End Get
    66. Set(value As String)
    67. _ChapterTitle = value
    68. End Set
    69. End Property
    70. 'Noch mehr Propertys...
    71. End Class
    73. End Class

    Schau dir mal Daten laden und speichern vom Erfinder des Rades an.
    Ein typisiertes Dataset erlaubt dir, diese Anwendung recht einfach und ohne viel Codegeschreibsel umzusetzen. Dazu brauchts auch keine Datenbank. Das ganze lässt sich als XML wegspeichern und zurückholen.
    Und gerade das Löschproblem bekommst du sehr einfach gelöst. Das macht nämlich alles dein Datataset selbständig.

    Fiel Fergnügen

    Vatter
    :thumbsup: Seit 26.Mai 2012 Oppa! :thumbsup:

    Also das Löschproblem bereitet mir keine wirklichen Probleme. Meine Frage war eher eine "Verständnisfrage", wieso VB sich so verhält, bzw. WANN GENAU ein Object gelöscht wird.
    Der von dir verlinkte Post hilft mir nicht weiter. Speichern/laden in XML wird nicht notwendig sein.
    Mein Problem ist momentan mein Klassenkonzept. Dieses hindert mich daran in der Klasse Chapter auf den Buchtitel zuzugreifen.
    Wie löse ich das am besten?

    markus.obi schrieb:

    Wie löse ich das am besten?
    Indem du beim Erzeugen einer Instanz von Chapter eine Instanz von Book mitgibst oder auf das Verändern des Booktitles aus der Klasse Chapter heraus verzichtest. Ich wüßte keinen Grund, warum die Radmutter eines Autos auf die Farbeigenschaft des Autos zugreifen sollte ;)
    Einfacher wäre aber, du würdest ein typisiertes Dataset mit entsprechenden Tabellenbeziehungen verwenden. Da verfügt die Tabelle Chapter dann über die ID des Books. Und deine Anwendung ist in dem von dir gezeigten ausschnitt eine 1a Datenanwendung mit 2 Tabellen und 1:n Beziehung. Das wäre in 10Minuten zusammengeklickt und würde dir auch dein leidiges Aktualisierungsproblem ersparen.
    :thumbsup: Seit 26.Mai 2012 Oppa! :thumbsup:

    markus.obi schrieb:

    Wieso werden eigentlich die Kapitel nicht mit zerstört, wenn ich zum Beispiel ein Buch aus der Bindinglist(of Books) entferne?
    Das hängt davon ab, wie du dieses hier zuwegegebracht hast:

    markus.obi schrieb:

    Je nachdem welches Buch im dgvBooks gerade ausgewählt ist, werden die entsprechenden Kapitel im dgvChapters angezeigt.
    Wären die Grids über BindingSources an die Daten gebunden, so würde die Kapitel-Anzeige auch verschwinden, wenn ein Buch gelöscht wird.

    @ErfinderDesRades

    Ich hatte auch ursprünglich vor mit Bindings zu arbeiten. Leider habe ich auf den Gebieten DataGridView, Binding, "typisiertes Dataset" noch gar keine Erfahrung.
    DataGridView.DataSource schien auf den ersten Blick erstmal ziemlich bequem.
    Ich hatte mir auch mal deinen Beispielcode zu Progressbar im DatagridView - benutzerdefiniertes Databinding angeschaut. So ganz durchgeblickt habe ich da noch nicht.

    @80%GroßVatter

    Die Aktualisierung wäre mit dem jetzigen Model auch schlecht machbar, weil die Bookklasse nicht auf die BindingList(of Book) zugreifen kann.

    Vatter schrieb:

    Das wäre in 10Minuten zusammengeklickt

    Bei DIR 10 Minuten. Ich muss mich da erstmal reinarbeiten :wacko:

    OK, mal ne Schnellanleitung, die jedoch keinen Anspruch auf Vollständigkeit erhebt und nur den groben Ablauf schildern soll:
    1. Dem Projekt ein Dataset hinzufügen und öffnen (Gute Namensgebung nicht vergessen, sonst gibt es so Monsterbezeichnungen)
    2. Im Dataset-Designer aus der Toolbox 2 Tabellen ziehen und diese benennen
    3. Den Tabellen Spalten hinzufügen (Strg + L)
    Tabelle Books: ID, Titel,...
    Tabelle Chapters: ID, Name, BookID
    4. Den Spalten im Eigenschaftenfenster die Datentypen zuweisen. Dabei den ID und der BookID Integer
    5. Die ID-Spalten als Key kennzeichnen (rechte Maustaste)
    6. Die Spalte ID der Tabelle Books mit der Maus zur Spalte BookID der Tabelle Chapter ziehen. Es wird eine Tabellenbeziehung 1:n erzeugt. An der Book-Tabelle müsste jetzt ein Schlüssensymbol und am anderen Ende ein unendlich hängen. D.h. es gibt zu jedem Book-Datensatz 0 bis unendlich viele Chapters-Datensätze
    7. Auf den Formdesigner wechseln und das Datenquellen-Fenster öffnen.
    Im Datenquellen siehst du jetzt die beiden Tabellen, wovon die Books-Tabelle die Chapters-Tabelle als Untertabelle (Child) zeigt.
    8. Ziehe nacheinander die übergeordnete und die untergeordnete Tabelle auf deine Form

    Damit hast du bereits eine testfähige Version fertig. Wenn du 1 Book markierst, werden die zugehörigen Chapters angezeigt.
    Was noch fehlt ist z.B. Autoinkrement, um die IDs nicht manuell eintragen zu müssen und die Löschweitergabe sowie Laden und speichern der Daten.

    Ich empfehle dir, mal bei Erfinder des Rades nach Datenbank in 10 Minuten und DatasetOnly zu suchen. Das sind ganz ausgezeichnete Tuts, die du mal (unbedingt 1:1) durchspielen solltest. Ich kann dir versprechen, dass du nie wieder ähnliche Anwendungen anders realisieren wirst. Es lässt sich fast alles damit anstellen, ohne dass man viel herumcoden muß.

    Fiel Fergnügen

    Vatter
    :thumbsup: Seit 26.Mai 2012 Oppa! :thumbsup: