Eigenschaften von zur Laufzeit erstellten Objekten ändern

  • VB.NET

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Eigenschaften von zur Laufzeit erstellten Objekten ändern

    Hallo zusammen,

    ich habe folgendes Problem:

    In meinem kleinen Lernprojekt erstelle ich gerade zur Laufzeit mehrere Objekte:

    VB.NET-Quellcode

    1. Dim nud_menge As New NumericUpDown
    2. Dim bt_add As New Button
    4. With nud_menge
    5. .Location = New Point(395, y)
    6. .Width = 50
    7. .Name = "nud_menge_" & i
    8. .Visible = True
    9. .Enabled = True
    10. .Value = 1
    11. .Parent = Me
    12. End With
    14. With bt_add
    15. .Location = New Point(455, y)
    16. .Width = 50
    17. .Name = "bt_add_" & i
    18. .Visible = True.Enabled = True
    19. .Text = "Fertig"
    20. .Parent = MeAddHandler bt_add
    21. .Click, AddressOf bt_add_Click
    22. End With
    24. i = i + 1
    25. y = y + 26



    Bei klick auf den Button soll die Eigenschaft Enabled bei dem Button UND dem NumericUpDown auf FALSE gesetzt werden.

    Beim Button klappt das ganz gut hiermit:

    VB.NET-Quellcode

    1. Private Sub bt_add_Click(ByVal sender As Object, ByVal e As EventArgs)
    2. Dim Btn As Button = DirectCast(sender, Button)
    3. Btn.Enabled = False
    4. End Sub




    Aber wie schaffe ich es, dass beim Klick auf den Button auch Eigenschaften des NumericUpDown geändert werden können?

    Vielen dank schonmal für eure Hilfe!

    Willkommen im Forum. :thumbup:
    Die Controls müssen in die Klasse verschoben werden.

    VB.NET-Quellcode

    1. Private nud_menge As New NumericUpDown
    2. Private bt_add As New Button
    4. Private Sub Bla()
    5. ' Dein Code
    6. End Sub
    8. Private Sub bt_add_Click(ByVal sender As Object, ByVal e As EventArgs)
    9. bt_add.Enabled = False
    10. nud_menge.Value = 20
    11. End Sub
    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!

    Hallo Rod,

    danke für die Begrüßung und die schnelle Hilfe!

    Das Verschieben der Controls in die Klasse hat funktioniert!

    Allerdings tritt jetzt folgender Effekt auf:

    Wenn neue Controls erstellt werden (DataGridView1_CellDoubleClick), verschwinden die bereits erstellten auf der Form.
    Die MsgBox in Private Sub bt_add_Click hingegen "meldet" alle bisher erstellen Buttons.


    VB.NET-Quellcode

    1. Private Sub DataGridView1_CellDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellDoubleClick
    2. With nud_menge
    3. .Location = New Point(15 + 70 + 260 + 50, y)
    4. .Width = 50
    5. .Name = "nud_menge_" & i
    6. .Visible = True
    7. .Enabled = True
    8. .Value = 1
    9. .Parent = Me
    10. End With
    13. With bt_add
    14. .Location = New Point(15 + 70 + 260 + 50 + 60, y)
    15. .Width = 50
    16. .Name = "bt_add_" & i
    17. .Visible = True
    18. .Enabled = True
    19. .Text = "Fertig"
    20. .Parent = Me
    21. AddHandler bt_add.Click, AddressOf bt_add_Click
    23. End With
    25. i = i + 1
    26. y = y + 26
    27. End Sub
    29. Private Sub bt_add_Click(ByVal sender As Object, ByVal e As EventArgs)
    30. Dim Btn As Button = DirectCast(sender, Button)
    31. Btn.Enabled = False
    32. nud_menge.Enabled = False
    33. MsgBox _
    34. ("Es wurde auf '" & Btn.Name & "' geklickt.", _
    35. MsgBoxStyle.Information)
    36. End Sub

    Das ist ein neuer Sachverhalt, der in Deinem Eröffnungspost nicht dargestellt wurde.
    Klar, wenn Du ein neues Control erstellst und es der Klassenvariable zuweist, wird das alte zerstört, das macht .NET.
    Überleg Dir nun, was Du genau willst, alles, vollständig und möglichst präzise, poste das, dann werden wir sehen.
    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!

    Sorry, manchmal ist man einfach zu vorschnell :S

    Also, hier der "Plan":

    Im DataGridView1 befinden sich Artikeldaten.
    Bei Doppelklick auf eine Zeile werden unter dem DataGridView dynamisch zur Laufzeit eine TextBox, ein NumericUpDown und ein Button generiert:

    VB.NET-Quellcode

    1. Public Class Neue_Bestellung
    2. Dim y As Integer = 343
    3. Dim i As Integer
    4. Dim tb_artnr As New TextBox
    5. Dim nud_menge As New NumericUpDown
    6. Dim bt_add As New Button
    8. Private Sub DataGridView1_CellDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellDoubleClick
    9. With tb_artnr
    10. .Location = New Point(15, y)
    11. .Width = 60
    12. .Name = "tb_artnr_" & i
    13. .Visible = True
    14. .Enabled = False
    15. .Text = DataGridView1.CurrentRow.Cells(1).Value
    16. .Parent = Me
    17. End With
    19. With nud_menge
    20. .Location = New Point(15 + 70 + 260 + 50, y)
    21. .Width = 50
    22. .Name = "nud_menge_" & i
    23. .Visible = True
    24. .Enabled = True
    25. .Value = 1
    26. .Parent = Me
    27. End With
    29. With bt_add
    30. .Location = New Point(15 + 70 + 260 + 50 + 60, y)
    31. .Width = 50
    32. .Name = "bt_add_" & i
    33. .Visible = True
    34. .Enabled = True
    35. .Text = "Fertig"
    36. .Parent = Me
    37. AddHandler bt_add.Click, AddressOf bt_add_Click
    38. End With
    40. i = i + 1
    41. y = y + 26
    43. End Sub
    45. Private Sub bt_add_Click(ByVal sender As Object, ByVal e As EventArgs)
    46. Dim Btn As Button = DirectCast(sender, Button)
    47. Btn.Enabled = False
    48. nud_menge.Enabled = False
    49. MsgBox _
    50. ("Es wurde auf '" & Btn.Name & "' geklickt.", _
    51. MsgBoxStyle.Information)
    52. End Sub
    54. End Class


    Jetzt soll der Benutzer eine Bestellmenge mit dem NumericUpDown eingeben können.

    Nach Klick auf den Button sollen alle Controls, die bei DataGridView1_CellDoubleClick generiert wurden auf Enabled=False gesetzt werden.
    Außerdem soll der Wert des NumericUpDown verfügbar sein um ihn z.B. in ListBox1 einzufügen.

    Bei einem weiteren DataGridView1_CellDoubleClick soll das Ganze dann wieder von vorne losgehen.

    Das würde ich doch lieber in einen Dialog packen, den Du bei einem Doppelklick aufrufst:

    VB.NET-Quellcode

    1. Using dlg As New Form2
    2. 'dlg.XXX = xxx ' Eigenschaften setzen
    3. 'dlg.YYY = yyy
    4. dlg.Show(Me)
    5. 'xxx = dlg.XXX ' geänderte Werte zurückholen
    6. 'yyy = dlg.YYY
    7. End Using
    Form2 ist dann der Dialog, der die entsprechenden Controls enthält.
    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!

    Oder, wenn du keinen Dialog möchtest, dann nicht deine Control-Variable überschreiben, sondern eine weitere anlegen, oder eine List(Of IControl) (wenn es sowas gibt, das Interface mein ich), wenn es das gibt, kannst du da die einzelnen Controls reinschaufeln.

    Aber warum zur Laufzeit erzeugen? Mache sie doch als Unvisible Member der Form, also per Designer, und wenn sie gebraucht werden, dann Sichtbar machen. Warum nicht so?

    @RodFromGermany:
    Kannst du mir hier nähere Info's oder ein etwas ausführlicheres Beispiel zu geben?

    @Kagurame:
    Das ist mir (noch) zu komplex...
    Ich nutze das Projekt um Grundlagen zu lernen. Den Ansatz mit den "Unvisible"-Controls hatte ich auch schon im Kopf, hab ihn aber verworfen, weil ich das Ganze möglichst flexibel lassen wollte (Es wäre zu überdenken, ob ein solches Maß an Flexibilität überhaupt Sinn macht :S )

    Füge Deinem Projekt eine Form2 hinzu, schreibe da rein, mach Du brauchst: Button, NumericUpDown, ...
    und gib ihr die erforderlichen Properties, z.B.

    VB.NET-Quellcode

    1. Public Property xxx() As Decimal
    2. Get
    3. Return nud_menge.Value
    4. End Get
    5. Set(ByVal value As Decimal)
    6. nud_menge.Value = value
    7. End Set
    8. End Property
    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!

    OK, vielen Dank.

    Allerdings verstehe ich nicht recht, wofür ich dann noch die Property benötige.

    Die Werte aus den Controls kann ich mir doch dann auch einfach so zurückholen:

    VB.NET-Quellcode

    1. Private Sub DataGridView1_CellDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellDoubleClick
    2. Using dlg As New frm_bestellmenge
    3. dlg.TextBox1.Text = DataGridView1.CurrentRow.Cells(1).Value ' Eigenschaften setzen
    4. dlg.TextBox2.Text = DataGridView1.CurrentRow.Cells(4).Value
    5. dlg.TextBox3.Text = DataGridView1.CurrentRow.Cells(5).Value
    6. dlg.ShowDialog(Me)
    7. TextBox1.Text = dlg.nud_menge.Value ' geänderte Werte zurückholen
    8. End Using
    9. End Sub


    VB.NET-Quellcode

    1. Public Class frm_bestellmenge
    2. ' Public Property xxx() As Decimal
    3. ' Get
    4. ' Return nud_menge.Value
    5. ' End Get
    6. ' Set(ByVal value As Decimal)
    7. ' nud_menge.Value = value
    8. ' End Set
    9. 'End Property
    11. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    12. Me.Close()
    13. End Sub
    15. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    16. Neue_Bestellung.ListBox1.Items.Add(TextBox1.Text & ", " & TextBox2.Text & ", " & TextBox3.Text & ", " & nud_menge.Value)
    17. Me.Close()
    18. End Sub
    19. End Class

    Natürlich funktioniert es auch so.

    Jedoch sind deine textBoxen GUI, keine Logik. Du verwendest sie hier als Logik.

    Diese beiden Punkte sollte man immer getrennt halten, weil wenn jetzt mal der eine Wert generiert wird muss du die Abhängigkeit der TextBoxen lösen, mit einer Property nur die TextBox.

    Die eine GUI hat mit der anderen nichts zu tun, sie tauschen sich über Properties aus, nicht über GUI-Elemente.

    (Reine Design- und Wartbarkeits-Frage)

    Nun gut,

    ich werde mich dann also als nächstes mit Propertys auseinandersetzen. Es erscheint mir sinnvoll, gewisse "Standards" einzuhalten.

    Ich denke das eigentlich Thema ist erledigt.

    Vielen Dank an euch Zwei und bis zur nächsten Frage!

    /sign

    Auch nach meiner Erfahrung ist dynamisches Erstellen von Controls ausnahmslos Crap.
    Einzige Ausnahme: U.U. stellts eine Resourcen-Optimierung dar, wenn man komplexe UserControls erst zur Laufzeit erstellt. UserControls sind aber auch total einfach zu handeln, weil man jeweils nur ein einziges braucht: die komplexen Beziehungen der Unter-Controls sind ja bereits im Designer des UserControls strukturiert.

    Wie Kagurame sagt: Der Holzweg "dynamische Control-Erzeugung" wird üblicherweise beschritten, weil man denkerisch nicht zw. Oberfläche und Daten differenziert.

Facebook