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

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) > スレッドを使う

th.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 Imports System
Imports System.Threading

Class Test
	Shared Sub Main()
		Dim th1 As Thread
		Dim th2 As Thread
		th1 = new Thread(new ThreadStart(AddressOf MyThread))
		th2 = new Thread(new ThreadStart(AddressOf MyThread))
		th1.Start()
		th2.Start()

		th2.Join()
	End Sub
	private Shared Sub MyThread()
		Dim i As Integer
		For i = 1 To 5
			Console.WriteLine("thread id" & _
			Thread.CurrentThread.ManagedThreadId & _
			"(" & i & ")")
			Thread.Sleep(1)
		Next
	End Sub
End Class

$ vbnc th.vb
$ mono th.exe
thread id3(1)
thread id4(1)
thread id3(2)
thread id4(2)
thread id3(3)
thread id4(3)
thread id4(4)
thread id3(4)
thread id4(5)
thread id3(5)
$

* 確認環境 Debian Linux(jessie)