説明のないとってもシンプルなサンプルプログラム集

COBOL	awk	C言語	D言語	GO言語	Lua	Vim
bash	Perl	Gauche	Clojure	CLISP	EmacsLisp	VimScript
tcsh	Ruby	Groovy	Java	C#	VBScript	JavaScript
Io言語	Python	Erlang	Scala	VB.NET	Excel/VBA	PHP
Tcl	Haskell		OCaml	PowerShell	Windows	Unix/Linux

VB.NET(mono) > (Forms)タイマーを使う

gui-timer.vb

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 Imports System.Windows.Forms
Imports System
Imports System.Drawing

Class Test
	Inherits Form

	WithEvents t As New Timer

	Shared Sub Main() 
		Dim app As New Test
		Application.Run(app)
	End Sub

	Sub New()
		Me.Size = new Size(600,200)
		t = new Timer()
		t.Enabled = true
		t.Interval = 5000	' 5 sec
		AddHandler t.Tick , AddressOf OnTImer
	End Sub

	Sub OnTimer(sender As Object, e As EventArgs) Handles t.Tick
		Application.Exit()
	End Sub	

End Class

$ vbnc gui-timer.vb
$ mono gui-timer.exe

* 確認環境 Debian Linux(jessie)