✔ With Block

[exiter28]

hab mal ne Frage zur With-Anweisung:

Wenn ich mit:

                    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.:

                    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

 

[M4st3r]

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!