Invoke Event

[yxq]

Hello,

The sample code is below

**************************************
Private sub invokeEvent()

'Here i want to invoke all the codes(A,B,C) in Timer1_Tick(), how to do?

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick

A...
B...
C...

End Sub

 

[Herfried K. Wagner [MVP]]

The sample code is below

**************************************
Private sub invokeEvent()

'Here i want to invoke all the codes(A,B,C) in Timer1_Tick(), how to do?

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick

A...
B...
C...

End Sub

Derive a class from 'Timer' and extend it as shown below:

\\\
Public Class ExtendedTimer
Inherits System.Windows.Forms.Timer

Public Sub PerformTick()
MyBase.OnTick(EventArgs.Empty)
End Sub
End Class
///

Then use this timer class instead of the 'System.Windows.Forms.Timer'.
You can raise the 'Tick' event by calling the object's 'PerformTick'
method.