Steuerelemente während der Laufzeit erstellen, Problem

  • VB.NET

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von sysnews.

    Steuerelemente während der Laufzeit erstellen, Problem

    Hallo!

    Ich fange gerade an, ein kleines Programm zur Übung (bin fortgeschrittener Anfänger ^^, denke ich) zu schreiben.
    Für dieses Programm muss ich mehrere Picture-Boxen während der Laufzeit erstellen lassen, weil ich die Anzahl im Programm ändern will.
    Ich habe schon einen Code, der soweit eigentlich schon funktioniert, doch irgendwie erstellt er mir nur eine einzelne PictureBox!
    Hier der Code: (Habe es mit Checkboxen zum Test gemacht!)
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    3. Dim PBox(Anzahl) As CheckBox
    4. Dim Anzahl As Integer = 3
    6. Private Sub Form1_Load_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    7. Dim IndexZahl As Integer = 0
    8. For IndexZahl = 0 To Anzahl
    9. PBox(IndexZahl) = New CheckBox
    10. PBox(IndexZahl).Name = "PBox" & IndexZahl.ToString
    11. PBox(IndexZahl).Left = 13
    12. PBox(IndexZahl).Top = 28 * IndexZahl + 28
    13. PBox(IndexZahl).Height = 24
    14. PBox(IndexZahl).Text = "Nummer " & IndexZahl
    15. PBox(IndexZahl).Tag = IndexZahl.ToString
    17. Controls.Add(PBox(IndexZahl))
    18. Next IndexZahl
    19. End Sub
    20. End Class


    //Edit
    Sry hatte nicht drauf geschaut :)

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

    Mach mal Option Strict on und dann dieses Beispiel

    VB.NET-Quellcode

    1. Option Strict On
    2. Option Explicit On
    3. Public Class Form1
    5. Private Sub Form1_Load_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    6. Dim PBox(4) As CheckBox ' Platz für 5 CheckBoxen
    7. For i = 0 To PBox.GetUpperBound(0)
    8. PBox(i) = New CheckBox
    9. PBox(i).Name = "PBox" & i.ToString
    10. PBox(i).Left = i * 50
    11. PBox(i).Top = 28 * i + 28
    12. PBox(i).Height = 24
    13. PBox(i).Text = "Nummer " & i.ToString
    14. PBox(i).Tag = i.ToString
    15. Controls.Add(PBox(i))
    16. Next i
    17. End Sub
    18. End Class

    @Bernd: habe link zu gleiche source gepostet...bisl runter scrollen steht komplette code direckt vor die nase:

    VB.NET-Quellcode

    1. Code in einem Windows Forms-Codemodul (Form1)
    2. '
    3. Public Class Form1
    4. Inherits System.Windows.Forms.Form
    7. Private btnArray(9) As Button ' Dies wird unser Control-Array!
    10. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    12. ' 10 Buttons neu erzeugen
    13. For i As Integer = 0 To 9
    15. ' Neuen Button erzeugen
    16. btnArray(i) = New Button
    18. ' Den erzeugten Button verwenden:
    19. With btnArray(i)
    21. ' Parent festlegen und Controls-Collection erweitern
    22. .Parent = Me
    23. .Parent.Controls.Add(btnArray(i))
    25. ' Verwaltungsinformationen zuweisen
    26. .Name = "Button" & CStr(i)
    27. .TabIndex = i
    29. ' Darstellung: Beschriften und positionieren
    30. .Text = "Button(" & CStr(i) & ")"
    31. .Size = New Size(80, 30)
    32. .Location = New Point(10, 10 + i * 2 * .Height)
    33. .Visible = True
    35. ' Auf das Click-Ereignis reagieren können:
    36. AddHandler .Click, AddressOf btnArray_Click
    38. End With
    40. Next i
    42. End Sub
    45. Private Sub btnArray_Click(ByVal sender As Object, _
    46. ByVal e As System.EventArgs)
    47. ' Click-Ereignis des Button-Arrays auswerten
    48. Dim itemClicked As Button = CType(sender, Button)
    49. Dim index As Integer = -1I
    51. ' Das betroffene Element im Array suchen (allgemein);
    52. ' Möglich wäre etwa auch das Vorgehen über die eigens
    53. ' zugewiesene Name-Eigenschaft des Buttons.
    54. For i As Integer = LBound(btnArray) To UBound(btnArray)
    55. If btnArray(i) Is itemClicked Then
    56. index = i
    57. Exit For
    58. End If
    59. Next
    61. If index > 0 Then ' Element im Array gefunden (sonst index = -1)
    62. ' Kurze Informations-MessageBox für das Codebeispiel
    63. MessageBox.Show("Sie haben den Button Nr. " & CStr(index) & " angeklickt", _
    64. "Index des Buttons ermittelt", _
    65. MessageBoxButtons.OK, _
    66. MessageBoxIcon.Information)
    67. End If
    69. End Sub
    71. End Class

    lol nicht streiten ^^
    thx ich schaus mir an

    //Edit
    Okay ich habs mir angeschaut, blick nur nicht ganz durch. Also ich versuche jetzt bei allen ein Click-Event ausführen zu lassen. Wie stelle ich das jetzt am besten an?

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

Facebook
Telefonspende