hab mal ne Frage zur With-Anweisung:

Wenn ich mit:

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13

With cb2                         .Text = cbtext                         .Location = New Point(posx, posy)                         .Width = breite                         .Height = höhe                         .BackColor = Color.Silver                         .FlatStyle = FlatStyle.Flat                         .Cursor = Cursors.Hand                         Me.Controls.Add(cb2)                         AddHandler .Click, AddressOf cb2_Click                         AddHandler .MouseEnter, AddressOf cb2_MouseEnter                         AddHandler .MouseLeave, AddressOf cb2_MouseLeave                     End With

einer Schaltfläche die Eigenschaften und Ereignisse zuweise, und ich
20 Schaltflächen hab, muss ich dann diesen Block für jede einzelne Schaltfläche
schreiben?
oder gibt es eine andere Möglichkeit?
z.B.:

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

With cb2, cb3, cb4, usw                         .Text = cbtext                         .Location = New Point(posx, posy)                         .Width = breite                         .Height = höhe                         .BackColor = Color.Silver                         .FlatStyle = FlatStyle.Flat                         .Cursor = Cursors.Hand                         Me.Controls.Add(cb2)                         AddHandler .Click, AddressOf cb2_Click                         AddHandler .MouseEnter, AddressOf cb2_MouseEnter                         AddHandler .MouseLeave, AddressOf cb2_MouseLeave                         Me.Controls.Add(cb3)                         AddHandler .Click, AddressOf cb3_Click                         AddHandler .MouseEnter, AddressOf cb3_MouseEnter                         AddHandler .MouseLeave, AddressOf cb3_MouseLeave                         Me.Controls.Add(cb4)                         AddHandler .Click, AddressOf cb4_Click                         AddHandler .MouseEnter, AddressOf cb4_MouseEnter                         AddHandler .MouseLeave, AddressOf cb4_MouseLeave                     End With

Also das funktioniert nicht, das hab ich schon versucht.

Danke

Woher soll denn das arme Ding wissen welches Control er ansprechen soll wenn du mehr als eine Angabe machen kannst?

Wenn du das so machen willst dann mach dir ein Array von deinen Controls und schleif dich da durch!