File: vbnet_test.bas

package info (click to toggle)
ruby-pygments.rb 0.6.3-2%2Bdeb9u1
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 8,628 kB
  • sloc: python: 46,993; ansic: 8,115; lisp: 3,703; cobol: 2,961; pascal: 2,750; ruby: 2,700; sh: 2,362; java: 1,755; cpp: 1,549; haskell: 926; ml: 831; csh: 681; f90: 459; php: 260; cs: 258; perl: 177; makefile: 174; ada: 161; objc: 145; erlang: 104; awk: 94; asm: 68; jsp: 21
file content (29 lines) | stat: -rw-r--r-- 846 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
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