関連ページ  
Framework2.0 VB.NET バッチビルドセット

コンソール用 Form アプリ用
ブラウザでダウンロード ブラウザでダウンロード

コンソール用
Framework2.0 の SDK さえインストールされておれば、Visual Studio 2005 が無くても
ちょっとしたバッチ用のコンソールアプリケーションを手軽に作成できます
Imports System.Drawing

Module MyModule

' ********************************************************
' * 実行
' ********************************************************
Sub Main()

	Dim argv As String()

	argv = System.Environment.GetCommandLineArgs()

	if System.Environment.GetCommandLineArgs.Length > 1 then
		Console.WriteLine(argv(1))
	else
		Console.WriteLine("変換するビットマップファイルを指定して下さい")
		Return
	end if

	Dim bmp As New Bitmap(argv(1))

	bmp.Save((argv(1).Split("."))(0) + "png", Imaging.ImageFormat.Png)

	bmp.Dispose()

End Sub

End Module
↓readme.txt
【実行方法】
__buildPath.txt に SDK用の正しいパスが必要ですが、
だいたいにおいて、Framework2.0 がインストールされておれば
変更する必要は無いと思います

参照アセンブリの一覧は、必要ならば dll 単位で追加します
参照アセンブリは、実行の都合があるので通常 exe と同じ場所
に置きます。

************************************************************
* 定義ファイル
************************************************************
■ __buildPath.txt( SDK の場所 )

	sdk のパスを設定する

■ __libPath.txt

	ビルドに必要な アセンブリへのフルパスまたは相対パスを指定

■ __clipCommand.txt( ビルドクリップボードコピー用コマンド )

	copy_buildline.wsf によって、この内容が
	クリップボードにコピーされます
	( __libPath.txt の内容が反映されます )

■ __clipCommand2.txt( 実行クリップボードコピー用コマンド )

	copy_buildline2.wsf によって、この内容が
	クリップボードにコピーされます


************************************************************
* ソースコード
************************************************************
■ bmp2png.vb

	サンプルソース
	( 引数に渡した bmp ファイルを png に変換します )


************************************************************
* ビルド、その他実行用
************************************************************
■ VBC_BUILD.wsf( 対話ビルド用コマンドライン )

	開発中のビルドコマンドを入力する為のコマンドプロンプトを開く
	※ copy_buildline.wsf を実行して、コマンドラインをクリップボートにコピー
	※ 貼り付けて実行

■ copy_buildline.wsf( クリップボードにコピーします )

	ビルドするコマンドラインをコピー

■ copy_buildline2.wsf( クリップボードにコピーします )

	実行用のコマンドラインをコピー


************************************************************
* その他
************************************************************
■ readme.txt	このファイル
Form アプリ用
サンプルとして、ラベルとテキストフィールード(2つ)とボタンを持つ
フォームが実装されています。

処理のサンプルとしては、カレントにある MDB に対してアクセスして、
社員マスタの社員のコードから氏名を表示します
Imports System.Windows.Forms
Imports lightbox.db

Public Class FormProg

	' RDBMS 共通のインターフェイス
	Private db As DbInterface

	' ******************************************************
	' 初期処理
	' ******************************************************
	Private Sub 初期処理(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles MyBase.Load

		Dim dbpath As String

		' MDB の場所を取得
		dbpath = Application.StartupPath
		dbpath = dbpath + "\販売管理C.mdb"

		MessageBox.Show(dbpath)

		' MDB 用インスタンス作成
		db = New DbAccess(dbpath)

	End Sub

	' ******************************************************
	' 確認処理
	' ******************************************************
	Private Sub 確認_Click(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles 確認.Click

		If Not db.Connect() Then
			MessageBox.Show(db.myError)
			Return
		End If

		Dim Query as String = "SELECT * from 社員マスタ where 社員コード = "
		Query += "'" + Me.TextBox1.Text + "'"

		if db.QueryAndRead( Query ) then
			Me.TextBox2.Text = db.GetValue("氏名")
		else
			' 接続解除
			db.Close()
			MessageBox.Show("データがありません")
			return
		end if

		' 接続解除
		db.Close()

	End Sub

End Class
' ******************************************************
' デザイナでは、Name プロパティが設定されますが
' あまり役に立たないので削除してあります
'
' フィールドを追加するには、4つの処理を記述します
' 1) Friend WithEvents で定義
' 2) インスタンス作成
' 3) プロパティ設定
' 4) Form に追加
' ******************************************************
Imports System.Windows.Forms

Partial Class FormProg
	Inherits System.Windows.Forms.Form

	' ******************************************************
	' コントロール定義
	' ******************************************************
	Friend WithEvents TextBox1 As TextBox
	Friend WithEvents TextBox2 As TextBox
	Friend WithEvents Label1 As Label
	Friend WithEvents 確認 As Button

	' ******************************************************
	' コンストラクタ
	' ******************************************************
	Sub New()

		InitializeComponent()

	End Sub

	Private Sub InitializeComponent()

		' ******************************************************
		' コントロールインスタンス
		' ******************************************************
		Me.TextBox1 = New TextBox
		Me.TextBox2 = New TextBox
		Me.Label1 = New Label
		Me.確認 = New Button
		Me.SuspendLayout()

		' ******************************************************
		' Label1
		' ******************************************************
		Me.Label1.TabIndex = 10
		Me.Label1.Text = "キー項目"

		Me.Label1.Left		= 33
		Me.Label1.Top		= 42
		Me.Label1.Width		= 49
		Me.Label1.Height	= 12

		Me.Label1.AutoSize = True

		' ******************************************************
		' TextBox1
		' ******************************************************
		Me.TextBox1.TabIndex = 20

		Me.TextBox1.Left	= 101
		Me.TextBox1.Top		= 39
		Me.TextBox1.Width	= 107
		Me.TextBox1.Height	= 19

		' ******************************************************
		' 確認
		' ******************************************************
		Me.確認.TabIndex = 30
		Me.確認.Text = "確認"

		Me.確認.Left	= 246
		Me.確認.Top		= 36
		Me.確認.Width	= 89
		Me.確認.Height	= 25

		Me.確認.UseVisualStyleBackColor = True

		' ******************************************************
		' TextBox2
		' ******************************************************
		Me.TextBox2.TabIndex = 31

		Me.TextBox2.Left	= 101
		Me.TextBox2.Top		= 70
		Me.TextBox2.Width	= 107
		Me.TextBox2.Height	= 19

		' ******************************************************
		' Form 構造
		' ******************************************************
		Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
		Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
		Me.ClientSize = New System.Drawing.Size(378, 273)

		' ******************************************************
		' コントロール追加
		' ******************************************************
		Me.Controls.Add(Me.確認)
		Me.Controls.Add(Me.Label1)
		Me.Controls.Add(Me.TextBox1)
		Me.Controls.Add(Me.TextBox2)

		' ******************************************************
		' Form 属性
		' ******************************************************
		Me.Text = "VB.NET Form アプリケーション"
		Me.ResumeLayout(False)
		Me.PerformLayout()

	End Sub

End Class