Sha256: dc1577781f2670094fd15a7a362efde235fa1cb3523ba2d7a7547adf0688fc55
Contents?: true
Size: 846 Bytes
Versions: 42
Compression:
Stored size: 846 Bytes
Contents
Public Class Form1
Inherits System.Windows.Forms.Form
Private t As New System.Timers.Timer(2000)
Private Sub Form1_Load(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
AddHandler t.Elapsed, AddressOf TimerFired
End Sub
Private Sub btnStart_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnStart.Click
t.Enabled = True
End Sub
Private Sub btnStop_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnStop.Click
t.Enabled = False
End Sub
Public Sub TimerFired(ByVal sender As Object, _
ByVal e As System.Timers.ElapsedEventArgs)
Label1.Text = "Signal Time = " & e.SignalTime.ToString
End Sub
End Class
Version data entries
42 entries across 42 versions & 5 rubygems