Zugriff auf Properties eine UserControls

  • VB.NET
  • .NET (FX) 4.5–4.8

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

    Zugriff auf Properties eine UserControls

    Ich seh wohl vor lauter Bäumen den Wald nicht mehr.
    Im angehängten Beispiel wird per "Add Tab Page" eine neue TabPage in einem TabControl hinzugefügt und darauf ein UserControl platziert.
    In diesem UserControl, auf der neuen TabPage soll nun vom gleichen UserControl auf der TabPage davor eine Property abgefragt werden.
    (GetXnFromPreviousCurvePart())
    Ich kann es drehen und wenden wie ich will, ich kann nicht darauf zugreifen.
    Bestimmt ganz simpel, ich stehe gerade auf dem Schlauch.
    Wäre dankbar für den entscheidenen Hinweis.

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

    @roepke So was, übergib den SelectedIndex als Parameter im Konstruktor:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class FGEditor
    2. 'LoadThisForm_Load():
    3. Private Sub LoadThisForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    4. Add_UserControl_ToTabPage(TabControl.TabPages(0), 0)
    5. End Sub
    7. 'btn_AddTabPage_Click(): ermöglicht eine neue TabPage HINTER der aktuell selektierten TabPage im TabControl hinzuzufügen
    8. Private Sub btn_AddTabPage_Click(sender As Object, e As EventArgs) Handles btn_AddTabPage.Click
    9. Dim _i As Integer = TabControl.SelectedIndex
    10. Dim _tp As New TabPage
    12. _tp.Text = "TabPage" & (TabControl.TabPages.Count + 1)
    13. _tp.Name = "TabPage" & (TabControl.TabPages.Count + 1)
    14. TabControl.TabPages.Insert(_i + 1, _tp)
    16. Add_UserControl_ToTabPage(_tp, _i + 1)
    17. End Sub
    19. 'Add_UserControl_ToTabPage(): platziert ein uc_FGEditor auf der neuen TabPage
    20. Private Sub Add_UserControl_ToTabPage(tp As TabPage, index As Integer)
    21. Dim _uc As New uc_FGEditor(index)
    22. _uc.Name = "uc_FGEditor_" & tp.Name
    23. tp.Controls.Add(_uc)
    24. End Sub
    25. End Class

    VB.NET-Quellcode

    1. Public Class uc_FGEditor
    2. Dim dCurrentXn As Double = 0
    3. Dim dCurrentYn As Double = 0
    4. Private Index As Integer
    6. Public Sub New(ind As Integer)
    7. Me.Index = ind
    8. InitializeComponent()
    9. End Sub
    11. Friend Property pdCurrentXn As Double
    12. Get
    13. pdCurrentXn = dCurrentXn
    14. End Get
    15. Set(ByVal dValue As Double)
    16. dCurrentXn = dValue
    17. lbl_CurrentXnFromPreviousCurvePart_Result.Text = dValue.ToString
    18. End Set
    19. End Property
    21. Friend Property pdCurrentYn As Double
    22. Get
    23. pdCurrentYn = dCurrentYn
    24. End Get
    25. Set(ByVal dValue As Double)
    26. dCurrentYn = dValue
    27. lbl_CurrentYnFromPreviousCurvePart_Result.Text = dValue.ToString
    28. End Set
    29. End Property
    31. 'LoadThisUserControl_Load(): UserControl .Load wird erst ausgeführt, wenn der zugehörige Tab erstmalig geöffent und angezeigt wird.
    32. Private Sub LoadThisUserControl_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
    33. GetXnFromPreviousCurvePart()
    34. End Sub
    36. Private Sub GetXnFromPreviousCurvePart()
    37. Dim _tp As TabPage = CType(Parent, TabPage)
    38. Dim _tc As TabControl = CType(_tp.Parent, TabControl)
    39. Dim _i As Integer = Me.Index '_tc.SelectedIndex
    41. lbl_MyTabIndex_Result.Text = _i.ToString
    43. If _i > 0 Then
    44. Dim tpx As TabPage = _tc.TabPages(_i - 1)
    45. For Each ctrl As Control In tpx.Controls
    46. If TypeOf ctrl Is uc_FGEditor Then
    48. 'Dim d As Double = ctrl.pdCurrentXn
    49. Dim i As Integer = 0
    50. End If
    51. Next
    53. For Each uc As UserControl In tpx.Controls.OfType(Of UserControl)()
    54. 'Dim d As Double = uc.pdCurrentXn
    55. 'Wieso kann ich hier nicht auf die Properies des UserControls zugreifen?
    56. Next
    57. End If
    58. End Sub
    59. End Class
    Wenn Du weitere Properties brauchst, lege sie in der TabPage und / oder im UserControl an und befülle sie im Hauptprogramm.
    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!

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

    Danke an @RodFromGermany, das löst aber leider nicht mein Problem welches ich in diesem Thread versuche zu lösen.
    Du hast da vermutlich mit meinem anderen Thema von heute früh was zusammengebracht, was nicht ganz zusammen gehört.
    In beiden Fällen geht es zwar um ein UserControl, aber die Aufgabe ist unterschiedlich.
    Konkret:
    Ich habe ein TabControl dem ich zur Laufzeit beliebig TabPages hinzufügen kann (btn_AddTabPage_Click in Public Class FGEditor).
    Auf jeder TabPage wird dabei ein UserControl angelegt (Add_UserControl_ToTabPage in Public Class FGEditor).
    Das UserControl uc_FGEditorbesitzt die Public/Friend Properties Public Property pdCurrentXn As Double und Public Property pdCurrentYn As Double.
    Das Hauptprogramm kann auch problemlos auf diese Properties zugreifen und sie füllen und lesen
    Wird eine neue TapPage mit einem neuen UserControl hinzugefügt, soll das neue UserControl auf der TabPage in der Lage sein die Properties Public Property pdCurrentXn As Double und Public Property pdCurrentYn As Double des UserControls auf der TabPage.Index -1 zu lesen. Dies passiert im angehängten Beispiel im Moment des ersten Aufrufs des UserControls. Es soll aber auch jeder Zeit durch drücken eines Button auf dem UserControl möglich sein, evtl. auf der TabPage.Index-1 vom Hauptprogramm geänderte Properties erneut zu lesen.
    Wohl gemerkt: das Hauptprogramm füttert die Propertys des UserControls, aber das UserControl selbst soll die Properties der Instanz auf der vorherigen TabPage lesen können.
    Ich habe das angehängte Beispiel dahingehend noch um einen Button im UserControl ergänzt.
    Das UserControl greift für diesen Property-Lesevorgang über seine Parent TabPage auf deren Parent TabControl zu, erstellt von der TabPage-1 eine Kopie, durchsucht diese Kopie nach UserControls vom eigenen Typ und will die Properties lesen.
    Und da scheitert es dann, da in tpx (Zeile 43 von uc_FGEditor) eine Kopie der richtigen TabPage zu sein schein, in Zeile 45 das ctrl gefunden wird, aber nachfolgend die Properties pdCurrentXn und pdCurrentYn keine Mitglieder von ctrl sind.
    Vermutlich weise ich falsch zu oder übersehe einen Cast oder sonst was.
    Dateien

    @roepke OK, dann war das ein Missverständnis.
    Zwei Tabs eines TabControls und deren (User-)Controls sollten eigentlich nichts voneinander wissen.
    Mach es ggf. so:
    Das Hauptfenster bzw. das TabControl wissen, welche TabPage als vorletztes und als letztes hinzugefügt wurden.
    An dieser Stelle sollte die Information übertragen werden, das geht dann in beide Richtungen.
    Wenn Du Dir eine Liste von Deinen { Controls mit dem jeweiligen Vorgänger und Nachfolger } anlegst, kannst Du Dich dort durch-iterieren.
    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!

    Im Grunde wissen sie ja auch nix direkt voneinander, vielmehr soll das eine UserControl ja das andere auf der vorherigen TabPage suchen und wenn es das findet die Infos dort 'rausquetschen'.
    Habe mir aber gerade überlegt, dass ich das Ganze ja im Grunde auch per Event lösen könnte. Das UserControl feuert ein Event, auf dass das ParentForm reagiert und die Infos an alle verfügbaren TabPages mit allen darauf vorhandenen UserControls neu verteilt.
    Das Problem ist nämlich so gelagert, dass die TabPages auch noch nach belieben verschoben, wieder entfernt oder mittendrin neue hinzugefügt werden können. Dadurch würden sich diese Infos der Properties jedes Mal ohnehin völlig neu verteilen. Da ist vermutlich die Sache mit dem Event nicht schlecht, zumal das ParentForm beim ändern der TabPages ohnehin die Infos quasi ggf. in jedem UserControl aktualisieren muss.

    @roepke Oder so.
    Vielleicht skizzierst Du mal, welche Informationen von wo nach wo fließen.
    Ohne VB-Code.
    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!

    roepke schrieb:

    Habe mir aber gerade überlegt, dass ich das Ganze ja im Grunde auch per Event lösen könnte. Das UserControl feuert ein Event, auf dass das ParentForm reagiert und die Infos an alle verfügbaren TabPages mit allen darauf vorhandenen UserControls neu verteilt.
    Jo, das ist grundsätzlich die richtige Architektur, wenn ein ucl mit einem anderen telefonieren muss, und weder ucl1 ist in ucl2, noch ucl2 ist in ucl1.
    Noch besser aber wäre, ucl1 müsste garnet mit ucl2 telefonieren.
    Etwa - wenn es um Daten geht - mit einem globalen Datenmodell hat man nochma ganz andere Möglichkeiten.


    Das Form besitzt ein TabControl.
    Das TabControl besitzt eine beliebige Anzahl TabPages, die der Anwender einfügen/entfernen/verschieben kann.
    Je TabPage besitzt ein UserControl.
    Jedes UserControl kann vom Anwender mit Parametern gefüllt werden und führt damit Berechnungen durch.
    Die Berechnung selbst startet der Anwender über einen Button im Form.
    Das Ergebnis der Berechnung wird mittels Event als Tabellendaten an das Form übergeben und dort sequenziell in eine Tabelle eingetragen, die die Ergebnisse aller UserControls zusammenfasst.
    Jedes UserControl führt seine Berechnung nach dem vorherigen UserControl durch, da es als Startwerte die Endwerte des vorherigen UserControls benötigt.
    Diese Werte übergibt das Form an das nachfolgende UserControl, sobald es die Daten des vorherigen erhalten hat und startet damit die Berechnung des nachfolgenden UserControl.
    Was ganz nett wäre, wenn das nachfolgende UserControl die Parameter des vorherigen UserControl bei Bedarf übernehmen könnte.
    Daher der Versuch mittels:

    VB.NET-Quellcode

    1. Private Sub GetXnFromPreviousCurvePart()
    2. Dim _tp As TabPage = CType(Parent, TabPage)
    3. Dim _tc As TabControl = CType(_tp.Parent, TabControl)
    4. Dim _i As Integer = _tc.SelectedIndex
    6. lbl_MyTabIndex_Result.Text = _i.ToString
    7. If _i > 0 Then
    8. Dim _tpx As TabPage = _tc.TabPages(_i - 1)
    9. For Each _ctrl As Control In _tpx.Controls
    10. If TypeOf _ctrl Is uc_FGEditor Then
    11. 'Dim _d As Double = _ctrl.pdCurrentXn
    12. 'Wieso kann ich hier nicht auf die Properies des UserControls zugreifen?
    13. End If
    14. Next
    15. End If
    16. End Sub

    auf das vorherige UserControl direkt zugreifen zu können und dessen PublicProperties zu lesen.
    Vermutlich wäre ja auch hier die saubere Lösung, das mittels Event aus dem UserControl heraus das Form erledigen zu lassen, welches problemlos auf die Properties der UserControls zugreifen kann,
    Warum komme ich aber seitens des UserControl selbst nicht an das vorherige ran?

    Weil Dir die Compilerfehlermeldung sagt, dass pdCurrentXn kein Bestandteil von CONTROL ist. Caste also vorher _ctrl nach uc_FGEditor und dann geht's.
    Oder anders:

    VB.NET-Quellcode

    1. If _i > 0 Then
    2. Dim _tpx As TabPage = _tc.TabPages(_i - 1)
    3. For Each _ctrl In _tpx.Controls.OfType(Of uc_FGEditor)
    4. Dim _d As Double = _ctrl.pdCurrentXn
    5. Next
    6. End If
    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.

    @roepke Da bin ich wieder bei meiner List(Of uc_FGEditor).
    Ich gehe mal davon aus, dass die Controls in der richtigen Reihenfolge erstellt werden.
    Wenn Du sie parallel dazu in einer List(Of uc_FGEditor) ablegst, musst Du die betreffenden Prozeduren nur noch in einer For-Schleife aufrufen.
    Wenn die Controls wissen, ob sie Parameter vom Vorgänger brauchen, gib ihnen den Vorgänger mit.
    Feddich.
    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!

Facebook
Telefonspende