Events and Handler Question

[Peter]

I'm looking for a very simple example of adding a handler to a
project.

For example.

Within the a form named frmMain I have a loop like this:

for I as integer = 0 to 100

if i = 20 then raise event...
next

I know that this is not normally you would do this but I'm just trying
to understand the concept and contructs of a handler.

 

[Mike McIntyre]

One approach can be found here:

http://msdn.microsoft.com/library/d...bcn7/html/vaconunderstandingeventhandlers.asp

And another here:

http://msdn.microsoft.com/library/d...en-us/vblr7/html/vastmAddHandlerStatement.asp


--
Mike

Mike McIntyre
Visual Basic MVP
www.getdotnetcode.com

 

[Cor Ligthert]

Peter,

Why do you need an eventhandler in this case.
Because this looks that you can simple call the sub.

A handler is for when you can not control directly yourself by instance what
a user does.

However maybe this little sample will show you how to make it.

I hope this helps?

Cor

\\\Needs only a form
Private Sub Form1_Load(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Dim start As Integer = 4
Dim top As Integer = 25
Dim i As Integer
Dim nowdate As DateTime = DateTime.Now
Dim mybutton(System.DateTime.DaysInMonth _
(nowdate.Year, nowdate.Month)) As Button
For i = 0 To System.DateTime.DaysInMonth _
(nowdate.Year, nowdate.Month) - 1
mybutton(i) = New Button
mybutton(i).TextAlign = ContentAlignment.MiddleCenter
mybutton(i).Width = 40
mybutton(i).Height = 20
mybutton(i).FlatStyle = FlatStyle.Flat
mybutton(i).BackColor = Drawing.Color.AntiqueWhite
mybutton(i).Location = New System.Drawing.Point(start, top)
mybutton(i).Text = (i + 1).ToString
mybutton(i).Cursor = Cursors.Hand
Me.Controls.Add(mybutton(i))
AddHandler mybutton(i).Click, AddressOf mybutton_Click
AddHandler mybutton(i).MouseEnter, AddressOf mybutton_Enter
AddHandler mybutton(i).MouseLeave, AddressOf mybutton_Leave
start = start + 40
If (i + 1) Mod 5 = 0 Then
top = top + 20
start = 4
End If
Next
End Sub
Private Sub mybutton_Click _
(ByVal sender As Object, ByVal e As System.EventArgs)
Dim thisbutton As Button = DirectCast(sender, Button)
MessageBox.Show("The day is: " & thisbutton.Text)
End Sub
Private Sub mybutton_Enter _
(ByVal sender As Object, ByVal e As System.EventArgs)
Dim thisbutton As Button = DirectCast(sender, Button)
thisbutton.BackColor = Drawing.Color.AliceBlue
End Sub
Private Sub mybutton_Leave _
(ByVal sender As Object, ByVal e As System.EventArgs)
Dim thisbutton As Button = DirectCast(sender, Button)
thisbutton.BackColor = Drawing.Color.AntiqueWhite
End Sub
///



"Peter" <[email protected]>

....