| Forum: VB.NET |
Thema:
Re: Controls zur Laufzeit inkl. Events |
Von:
Klaas Wedemeyer (
26.10.2004 12:50) |
Ok,
hier noch mal die koreckte Lösung:
Private mButtonList As New ArrayList
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For i As Integer = 1 To 10
Dim myButton As New System.Windows.Forms.Button
myButton.Size = New System.Drawing.Size(100, 20)
myButton.Location = New System.Drawing.Point(30, 25 * i)
myButton.Name = "Button " & i.ToString
myButton.TabIndex = i
myButton.Text = "Button " & i.ToString
AddHandler myButton.Click, AddressOf myButton_Click
Controls.Add(myButton)
Next
End Sub
Private Sub myButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim myButton As System.Windows.Forms.Button = sender
MessageBox.Show("Sie haben Button " & myButton.Text & " gedrückt")
End Sub
Man brauch nur eine Eventfunktion für alle Controls, im sender steht das Control drin.
Klaas
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
