Simple
Sand
Samples
プログラミング言語サンプル集
TOPへ
Hello World!(各言語のTOP)
(テキスト)全行一括読み込み
(テキスト)ファイル読み込み
(テキスト)ファイル書き込み
(テキスト)ファイルを行番号付きで表示
(テキスト)改行コードを取り除く
(テキスト)全行左右反転
(テキスト)ファイル行数を数える
(テキスト)列挙した数の合計を求める
(バイナリ)ファイル読み込み
(バイナリ)ファイル書き込み
(ファイル)カレントディレクトリ取得
(ファイル)ディレクトリ作成
(ファイル名)パスからディレクトリ名取得
(ファイル名)パスからファイル名取得
(ファイル名)拡張子を取り除く
(ファイル名)拡張子名を取得
(日付時刻)今日の日付を得る
(日付時刻)現在の時刻を得る
(日付時刻)日付と時刻を得る
乱数を使う
指定時間sleepさせる
スレッドを使う
(MsgBox)MsgBoxを使う
(GUI)GUIを使う
(GUI)ボタン
(GUI)タイマーイベントを使う

説明のないとってもシンプルなサンプルプログラム集
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)Buttonを使う

    gui-button.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 b As New Button
Shared Sub Main()
Dim app As New Test
Application.Run(app)
End Sub
Sub New()
Me.Size = new Size(300,200)
b.Parent = Me
b.Location = new Point(10,10)
b.Size = new Size(280,160)
b.Text = "PUSH TO EXIT"
AddHandler b.Click, AddressOf Button_Click
End Sub
Sub Button_Click(sender As Object, e As EventArgs) Handles b.Click
Application.Exit()
End Sub
End Class
$ vbnc gui-button.vb
$ mono gui-button.exe


  * 確認環境 Debian Linux(jessie)