Po,
Yes thank you very much,and how about dragdrop event in control array ?
before is Control_DragDro p(index source...)...
I pasted this in the other thread however the discussion did disapeared
them.
The event you take is not important, a trick using this is, make first one
event using the designer for one control and use than one of these 2 methods
for adding handlers to control events.
You have a lot of more possibilities using the control collections (arrays)
it would be endless to write them all.
I hope that one of those helps you?
Cor
Using a self made table
\\\ needs two buttons and a label on a form
Dim btnArea As Button() = New Button() {Button1, Button2}
For Each btn As Button In btnArea
AddHandler btn.MouseLeave, AddressOf Button_MouseLea ve
Next
Private Sub Button_MouseEnt er(ByVal sender As Object, _
ByVal e As System.EventArg s)
Me.Label1.Text = DirectCast(send er, Button).Name
End Sub
///
And the one I like the most using control.collect ion
\\\
Private Sub Form1_Load(ByVa l sender As Object, _
ByVal e As System.EventArg s) Handles MyBase.Load
doset(Me)
End Sub
Private Sub doSet(ByVal parentCtr As Control)
Dim ctr As Control
For Each ctr In parentCtr.Contr ols
AddHandler ctr.LostFocus, AddressOf meLostFocus
AddHandler ctr.GotFocus, AddressOf meGotFocus
doSet(ctr)
Next
End Sub
Private Sub meLostFocus(ByV al sender As Object, _
ByVal e As System.EventArg s)
last = DirectCast(send er, Control).Name
End Sub
Private Sub meGotFocus(ByVa l sender As Object, _
ByVal e As System.EventArg s)
DirectCast(send er, Control).Text = last
End Sub
///
