exiter28
Erfahrenes Mitglied
hab mal ne Frage zur With-Anweisung:
Wenn ich mit:
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.:
Also das funktioniert nicht, das hab ich schon versucht.
Danke
Wenn ich mit:
Code:
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
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:
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
Danke
Zuletzt bearbeitet von einem Moderator: