add buttons mit Controls.Add

  • VB.NET

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

    add buttons mit Controls.Add

    Hi leutz,

    habe lange versucht mehrere Buttons mit Control.Add(Button()) in meine Form zu holen. Ganz kurz was ich vorhabe:
    Ich möchte mehrere Panels (gleich aufgebaut) mit den gleichen Buttons,checkboxen dynamisch in meine Form holen, die Anzahl hängt von einer Db ab.Ich habe hier mal ganz einfach 2solcher panels veruscht anzuzeigen. (ne ganz einfache version). Das problem das ich habe ist, dass er mir den Inhalt des ersten panels, das ich hinzufüge super anzeigt, nur nummer 2 ist ohne inhalt, obwohl ich sogar neue buttons mit new erstelle
    Ne Idee woran das liegen könnte?

    VB.NET-Quellcode

    1. Imports System.Windows.Forms
    3. Public Class Form1
    5. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    6. CreateMyTabPage()
    7. End Sub
    9. Public Sub CreateMyTabPage()
    10. Dim panel2 As New Panel()
    12. Dim xLabel As Integer = 5
    13. Dim yLabel As Integer = 8
    15. '----------------
    16. panel2.Location = New Point(0, 30)
    17. panel2.Size = New Size(364, 243)
    18. panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
    20. Dim location As System.Drawing.Point
    21. location.X = 5
    22. location.Y = 7
    24. Dim buttonPasswdCh As New Button()
    25. Dim buttonDeleteUser As New Button()
    26. Dim panelInside As Panel 'New addUderHelperClass()
    28. panelInside = addUserHelperFunction(buttonPasswdCh, buttonDeleteUser, location.X, location.Y)
    29. panel2.Controls.Add(panelInside)
    30. location.X = 5
    31. location.Y += 102
    33. Dim buttonPasswdCh2 As New Button()
    34. Dim buttonDeleteUser2 As New Button()
    35. Dim panelInside2 As Panel 'New addUderHelperClass()
    37. panelInside2 = addUserHelperFunction(buttonPasswdCh2, buttonDeleteUser2, location.X, location.Y)
    38. panel2.Controls.Add(panelInside2)
    39. location.X = 5
    40. location.Y += 102
    42. 'Me.Controls.Add(buttonPasswdCh)
    43. 'Me.Controls.Add(buttonPasswdCh2)
    44. Me.Controls.Add(panelInside)
    45. Me.Controls.Add(panelInside2)
    46. End Sub
    49. Private Function addUserHelperFunction(ByVal buttonPassWd As Button, ByVal buttonDelUser As Button, ByVal locationX As Integer, ByVal locationY As Integer) As Panel
    50. Dim panelInside As New Panel()
    52. MsgBox(locationX & " " & locationY)
    54. Dim xLabel As Integer = locationX
    55. Dim yLabel As Integer = locationY
    56. panelInside.Location = New Point(0, yLabel)
    57. panelInside.Size = New Size(350, 100)
    58. panelInside.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
    60. buttonPassWd.Location = New System.Drawing.Point(xLabel + 236, yLabel - 4) '(xLabel + 236, yLabel - 2)
    61. buttonPassWd.Size = New System.Drawing.Size(51, 23)
    62. buttonPassWd.Text = "Passwd"
    63. buttonDelUser.Size = New System.Drawing.Size(51, 23)
    64. buttonDelUser.Location = New System.Drawing.Point(xLabel + 290, yLabel - 4)
    65. buttonDelUser.Text = "Delete"
    66. 'AddHandler buttonDelUser.Click, AddressOf buttonDelUser_Click
    67. 'füge buttons hinzu
    68. panelInside.Controls.Add(buttonPassWd)
    69. panelInside.Controls.Add(buttonDelUser)
    70. Return panelInside
    71. End Function
    73. End Class

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

Facebook
Telefonspende