Steuerelemente zur Laufzeit in Groupbox erzeugen?

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Unwesen.

    Steuerelemente zur Laufzeit in Groupbox erzeugen?

    Hallo.
    Ich erstelle zur Laufzeit einige Steuerelemente auf meiner Form, nun wollte ich dies ebenfalls mit einer Groupbox tun und die Steuerelemente darin plazieren. Aber die bleibt immer im Vordergrund. Wie bekomme ich die da rein?

    //Edit
    Hat sich erledigt, musste die Groupbox nach den anderen Elementen erstellen. (Oder was auch immer der Fehler war, er war zumindest weg, als ich an der Reihenfolge rumgeschraubt habe.)

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Unwesen“ ()

    Hm.. nen Beispielcode kann ich mal hierlassen...
    Das Beispiel erstellt eine Groupbox und einige Buttons darin zur Laufzeit.
    Mehr Erklärung gibbet net.



    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim Grp As GroupBox
    3. Dim intAnzahl As Integer = 26
    4. Dim Btn(intAnzahl) As Button
    6. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    7. 'GroupBox erstellen
    8. Grp = New GroupBox
    9. Controls.Add(Grp)
    10. Grp.Parent = Me
    11. Grp.Name = "grpGrp1"
    12. Grp.Location = New Point(20, 20)
    13. Grp.Size = New Size(320, 240)
    14. Grp.Text = ""
    15. AddHandler Grp.Click, AddressOf grp_Click
    17. Dim btnXpos As Integer = 30
    18. Dim btnYpos As Integer = 12
    20. For i As Integer = 0 To intAnzahl
    21. Btn(i) = New Button
    22. Controls.Add(Btn(i))
    23. Btn(i).Parent = Grp
    24. Btn(i).Name = "btnButton" & i.ToString
    25. Btn(i).Text = "Button " & i.ToString
    26. Btn(i).Size = New Size(80, 22)
    27. Btn(i).Location = New Point(btnXpos, btnYpos)
    28. btnXpos += 90 : If btnXpos > 250 Then btnXpos = 30 : btnYpos += 25
    29. AddHandler Btn(i).Click, AddressOf Btn_Click
    30. Next
    31. End Sub
    33. Private Sub Grp_Click(ByVal sender As Object, ByVal e As System.EventArgs)
    34. MessageBox.Show("Click von " & DirectCast(sender, GroupBox).Name.ToString)
    35. End Sub
    37. Private Sub Btn_Click(ByVal sender As Object, ByVal e As System.EventArgs)
    38. MessageBox.Show("Click von " & DirectCast(sender, Button).Name.ToString)
    39. End Sub
    40. End Class



    //Kurzes Edit:

    Ich nehme an, die Ursache für den Fehler war, dass ich zwar bei meinem ersten Versuch meinen Buttons die GroupBox als Parent zugewiesen habe, aber der Groupbox nicht mitgeteilt habe, dass Form1 ihr Parent ist.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Unwesen“ ()

Facebook