Wert aus Event von Child an Parent Formular weiterleiten

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von BlueLagoonX.

    Wert aus Event von Child an Parent Formular weiterleiten

    Moin,

    vorhanden sind zwei Formulare. Material (Parent) und Favoriten (Child).
    Parent öffnet beim Start eine Instanz des Child Formulars.

    Der Code zeigt den in eine Partial Class ausgegliederten Teil, der für das aktuelle Vorhaben relevant ist.

    InitializeFrmFav() wird in frm_Material_Auswahl.FormShow ausgeführt.

    Beim Doppelklick in das DataGridView in Child soll ID aus dem DoubleClickEvent an Parent übergeben werden.
    Dabei soll Child nicht geschlossen werden, sonst würde ich es anders lösen.

    VB.NET-Quellcode

    1. Option Explicit On
    2. Option Strict On
    4. Partial Public Class frm_Material_Auswahl
    6. Private WithEvents Frm_Favorites As frm_Material_Favorites = Nothing
    8. Private Sub InitializeFrmFav()
    10. If Frm_Favorites Is Nothing Then Frm_Favorites = New frm_Material_Favorites(Login)
    12. With Frm_Favorites
    13. .Size = New Size(500, Me.Owner.Height)
    15. Dim TargetLocation As New Point With {
    16. .Y = Me.Owner.Location.Y,
    17. .X = Me.Owner.Location.X + (Me.Owner.Width - Frm_Favorites.Width)
    18. }
    20. .Location = TargetLocation
    22. .Show(Me)
    23. End With
    25. End Sub
    27. End Class
    29. Partial Public Class frm_Material_Favorites
    31. Private Sub dgv_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv_Data.CellDoubleClick
    33. If e.ColumnIndex < 0 OrElse e.RowIndex < 0 Then Exit Sub
    35. With dgv_Data
    36. If .Rows(e.RowIndex).IsNewRow Then Exit Sub
    38. Dim ID = Convert.ToInt32(.Rows(e.RowIndex).Cells(0))
    40. 'ID muss jetzt an frm_Material_Auswahl übergeben werden
    42. End With
    44. End Sub
    46. End Class


    Wie mache ich das am besten?

    Grüße :)

    @BlueLagoonX Mit den geeigneten Event-Arguments kann das Child Informationen vom Parent abholen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @ErfinderDesRades Ich habe mir den Beitrag durchgelesen, sehe aber leider nicht wo und wie ich mein Event deklarieren und auslösen soll.

    Die Funktionsweise von Events/RaiseEvent verstehe ich, habe selber aber noch nie mit selbstgebauten Events gearbeitet und stehe echt auf dem Schlauch.

    Könntest du mir bitte in meinem Code zeigen, wo da was hin muss?

    @BlueLagoonX Hab ich extra einen Beitrag zu gemacht:
    Alles über Events
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hat funktioniert, hier mal der fertige Code.

    VB.NET-Quellcode

    1. ​
    2. Option Explicit On
    3. Option Strict On
    5. Public Class SelectionEventArgs : Inherits EventArgs
    7. Public Property SelectedValue As Integer = 0
    9. Sub New()
    10. End Sub
    12. End Class
    14. Partial Public Class frm_Material_Auswahl
    16. Private Property Frm_Favorites As frm_Material_Favorites = Nothing
    18. Private Sub InitializeFrmFav()
    20. If Frm_Favorites Is Nothing Then Frm_Favorites = New frm_Material_Favorites(Login)
    22. With Frm_Favorites
    23. .Size = New Size(500, Me.Owner.Height)
    25. Dim TargetLocation As New Point With {
    26. .Y = Me.Owner.Location.Y,
    27. .X = Me.Owner.Location.X + (Me.Owner.Width - Frm_Favorites.Width)
    28. }
    30. .Location = TargetLocation
    32. AddHandler .SelectionEvent, AddressOf FavoriteSelected
    34. .Show(Me)
    35. End With
    37. End Sub
    39. Private Sub FavoriteSelected(sender As Object, e As SelectionEventArgs)
    41. Dim Matches = From q In Me.Login.Material Where q.ArtikelNummer.Equals(e.SelectedValue)
    43. If Matches.Any Then
    44. cb_Material.SelectedValue = Matches.First.MaterialBezeichnung
    45. tsb_Accept.PerformClick()
    46. End If
    48. End Sub
    50. End Class
    52. Partial Public Class frm_Material_Favorites
    54. Public Event SelectionEvent(sender As Object, e As SelectionEventArgs)
    56. Private Sub dgv_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv_Data.CellDoubleClick
    58. If e.ColumnIndex < 0 OrElse e.RowIndex < 0 Then Exit Sub
    60. With dgv_Data
    61. If .Rows(e.RowIndex).IsNewRow Then Exit Sub
    63. Dim ID = Convert.ToInt32(.Rows(e.RowIndex).Cells(0).Value)
    65. RaiseEvent SelectionEvent(Me, New SelectionEventArgs With {.SelectedValue = ID})
    66. End With
    68. End Sub
    70. End Class

    Das dürfte aber Probleme geben, wenn Du InitializeFrmFav 2x aufrufst. Einmal, weil Frm_Favorites dann nicht Nothing, aber Disposed ist, wenn Du jenes SubForm schließt. Zum anderen, weil nirgends das Gegenstück zu AddHandler auftaucht: RemoveHandler.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

Facebook
Telefonspende