Learn when you want, where you want with convenient online training courses. Sign up now!
Experts Exchange Solution brought to you by
"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.
Dim t1 As New System.Windows.Forms.Timer
Dim t2 As New System.Windows.Forms.Timer
Dim timers(1) As System.Windows.Forms.Timer
timers(0) = t1
timers(1) = t2
timers(1).Enabled = True
Open in new window
Private Structure myTimers
Dim allTime As Timer
Dim superTimer() As myTimers
Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For Index = 1 To 101
Public Class Form1
Private AllTimers As New List(Of Timer)
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
For i As Integer = 1 To 10
Dim tmr As New Timer
tmr.Interval = 1000
AddHandler tmr.Tick, AddressOf tmr_Tick
' ... "tmr" has NOT been started at this pont! ...
Private Sub tmr_Tick(sender As Object, e As System.EventArgs)
Dim tmr As Timer = DirectCast(sender, Timer)
' ... do something with "tmr" ...
Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.
Learn the fundamentals of Microsoft SQL Server, a relational database management system that stores and retrieves data when requested by other software applications.
Dim i As Integer
Dim Timers As ArrayList = New ArrayList()
For i = 0 To 100
Timers(i).Interval = i + 1
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.