Hallo Ronny,
das hat nichts mit innerhalb oder außerhalb der Klasse zu tun, sondern rein mit Dynamik. Wenn Du zur Entwicklungszeit sagst:
Private WithEvents MyButton As Button
Kannst Du zur Laufzeit immer nur exakt eine Button Instanz über diese Variable "MyButton" referenzieren:
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
MyButton = New Button()
With MyButton
.Text = " OK "
.Left = 100
.Top = 100
End With
Me.Controls.Add(MyButton)
End Sub
Private Sub MyButton_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles MeinButton.Click
MsgBox("Der Button wurde geklickt")
End Sub
Jetzt stellst Du aber fest, dass Du zur Entwicklungszeit gar nicht wissen kannst, wie viele Buttons Du tatsächlich benötigst. Mal reicht einer, mal brauchst du 2, 3 oder sogar 5. Dann bist Du mit WithEvents am Ende, wenn Du nicht auf Verdacht 5 WithEvent Variablen deklarieren möchtest. Hier verwendest Du dann AddHandler. Zunächst brauchst Du weiterhin eine Methode, die als Ereignisempfänger fungiert:
Private Sub AnyButton_Click(ByVal sender As Object, _
ByVal e As System.EventArgs)
Dim lText As String = DirectCast(sender, Button).Text
MsgBox(String.Format("Der Button '{0}' wurde geklickt", lText))
End Sub
Wie Du siehst, ist hier die Handles Anweisung nicht mehr notwendig.
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
For i As Integer = 0 To 4
Dim lButton = New Button()
With lButton
.Text = String.Format("Button {0}", i + 1)
.Left = 100
.Top = 100 + (25 * i)
End With
AddHandler lButton.Click, AddressOf AnyButton_Click
Me.Controls.Add(lButton)
Next
End Sub
Hoffe das Beispiel veranschaulicht den Unterschied etwas besser. Wenn Du noch Fragen hast, scheue nicht sie zu stellen.
Thorsten Dörfler
Microsoft MVP Visual Basic
