Beiträge von kbs170

    http://www.microsoft.com/germany/msdn/l…n.mspx?mfr=true

    ' Code in einem Windows Forms-Codemodul (Form1)
    '
    Public Class Form1
    Inherits System.Windows.Forms.Form


    Private btnArray(9) As Button ' Dies wird unser Control-Array!


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    ' 10 Buttons neu erzeugen
    For i As Integer = 0 To 9

    ' Neuen Button erzeugen
    btnArray(i) = New Button

    ' Den erzeugten Button verwenden:
    With btnArray(i)

    ' Parent festlegen und Controls-Collection erweitern
    .Parent = Me
    .Parent.Controls.Add(btnArray(i))

    ' Verwaltungsinformationen zuweisen
    .Name = "Button" & CStr(i)
    .TabIndex = i

    ' Darstellung: Beschriften und positionieren
    .Text = "Button(" & CStr(i) & ")"
    .Size = New Size(80, 30)
    .Location = New Point(10, 10 + i * 2 * .Height)
    .Visible = True

    ' Auf das Click-Ereignis reagieren können:
    AddHandler .Click, AddressOf btnArray_Click

    End With

    Next i

    End Sub


    Private Sub btnArray_Click(ByVal sender As Object, _
    ByVal e As System.EventArgs)
    ' Click-Ereignis des Button-Arrays auswerten
    Dim itemClicked As Button = CType(sender, Button)
    Dim index As Integer = -1I

    ' Das betroffene Element im Array suchen (allgemein);
    ' Möglich wäre etwa auch das Vorgehen über die eigens
    ' zugewiesene Name-Eigenschaft des Buttons.
    For i As Integer = LBound(btnArray) To UBound(btnArray)
    If btnArray(i) Is itemClicked Then
    index = i
    Exit For
    End If
    Next

    If index > 0 Then ' Element im Array gefunden (sonst index = -1)
    ' Kurze Informations-MessageBox für das Codebeispiel
    MessageBox.Show("Sie haben den Button Nr. " & CStr(index) & " angeklickt", _
    "Index des Buttons ermittelt", _
    MessageBoxButtons.OK, _
    MessageBoxIcon.Information)
    End If

    End Sub

    End Class