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

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

コンソール用
Framework2.0 の SDK さえインストールされておれば、Visual Studio 2005 が無くても
ちょっとしたバッチ用のコンソールアプリケーションを手軽に作成できます
行番号付きテキストエリアでソースを表示します
このままの表示で印刷しますテキストとしてダウンロードします
01.Imports System.Drawing
02. 
03.Module MyModule
04. 
05.' ********************************************************
06.' * 実行
07.' ********************************************************
08.Sub Main()
09. 
10.    Dim argv As String()
11. 
12.    argv = System.Environment.GetCommandLineArgs()
13. 
14.    if System.Environment.GetCommandLineArgs.Length > 1 then
15.        Console.WriteLine(argv(1))
16.    else
17.        Console.WriteLine("変換するビットマップファイルを指定して下さい")
18.        Return
19.    end if
20. 
21.    Dim bmp As New Bitmap(argv(1))
22. 
23.    bmp.Save((argv(1).Split("."))(0) + "png", Imaging.ImageFormat.Png)
24. 
25.    bmp.Dispose()
26. 
27.End Sub
28. 
29.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 に対してアクセスして、
社員マスタの社員のコードから氏名を表示します
行番号付きテキストエリアでソースを表示します
このままの表示で印刷しますテキストとしてダウンロードします
01.Imports System.Windows.Forms
02.Imports lightbox.db
03. 
04.Public Class FormProg
05. 
06.    ' RDBMS 共通のインターフェイス
07.    Private db As DbInterface
08. 
09.    ' ******************************************************
10.    ' 初期処理
11.    ' ******************************************************
12.    Private Sub 初期処理(ByVal sender As System.Object, _
13.    ByVal e As System.EventArgs) Handles MyBase.Load
14. 
15.        Dim dbpath As String
16. 
17.        ' MDB の場所を取得
18.        dbpath = Application.StartupPath
19.        dbpath = dbpath + "\販売管理C.mdb"
20. 
21.        MessageBox.Show(dbpath)
22. 
23.        ' MDB 用インスタンス作成
24.        db = New DbAccess(dbpath)
25. 
26.    End Sub
27. 
28.    ' ******************************************************
29.    ' 確認処理
30.    ' ******************************************************
31.    Private Sub 確認_Click(ByVal sender As System.Object, _
32.    ByVal e As System.EventArgs) Handles 確認.Click
33. 
34.        If Not db.Connect() Then
35.            MessageBox.Show(db.myError)
36.            Return
37.        End If
38. 
39.        Dim Query as String = "SELECT * from 社員マスタ where 社員コード = "
40.        Query += "'" + Me.TextBox1.Text + "'"
41. 
42.        if db.QueryAndRead( Query ) then
43.            Me.TextBox2.Text = db.GetValue("氏名")
44.        else
45.            ' 接続解除
46.            db.Close()
47.            MessageBox.Show("データがありません")
48.            return
49.        end if
50. 
51.        ' 接続解除
52.        db.Close()
53. 
54.    End Sub
55. 
56.End Class
行番号付きテキストエリアでソースを表示します
このままの表示で印刷しますテキストとしてダウンロードします
001.' ******************************************************
002.' デザイナでは、Name プロパティが設定されますが
003.' あまり役に立たないので削除してあります
004.'
005.' フィールドを追加するには、4つの処理を記述します
006.' 1) Friend WithEvents で定義
007.' 2) インスタンス作成
008.' 3) プロパティ設定
009.' 4) Form に追加
010.' ******************************************************
011.Imports System.Windows.Forms
012. 
013.Partial Class FormProg
014.    Inherits System.Windows.Forms.Form
015. 
016.    ' ******************************************************
017.    ' コントロール定義
018.    ' ******************************************************
019.    Friend WithEvents TextBox1 As TextBox
020.    Friend WithEvents TextBox2 As TextBox
021.    Friend WithEvents Label1 As Label
022.    Friend WithEvents 確認 As Button
023. 
024.    ' ******************************************************
025.    ' コンストラクタ
026.    ' ******************************************************
027.    Sub New()
028. 
029.        InitializeComponent()
030. 
031.    End Sub
032. 
033.    Private Sub InitializeComponent()
034. 
035.        ' ******************************************************
036.        ' コントロールインスタンス
037.        ' ******************************************************
038.        Me.TextBox1 = New TextBox
039.        Me.TextBox2 = New TextBox
040.        Me.Label1 = New Label
041.        Me.確認 = New Button
042.        Me.SuspendLayout()
043. 
044.        ' ******************************************************
045.        ' Label1
046.        ' ******************************************************
047.        Me.Label1.TabIndex = 10
048.        Me.Label1.Text = "キー項目"
049. 
050.        Me.Label1.Left      = 33
051.        Me.Label1.Top       = 42
052.        Me.Label1.Width     = 49
053.        Me.Label1.Height    = 12
054. 
055.        Me.Label1.AutoSize = True
056. 
057.        ' ******************************************************
058.        ' TextBox1
059.        ' ******************************************************
060.        Me.TextBox1.TabIndex = 20
061. 
062.        Me.TextBox1.Left    = 101
063.        Me.TextBox1.Top     = 39
064.        Me.TextBox1.Width   = 107
065.        Me.TextBox1.Height  = 19
066. 
067.        ' ******************************************************
068.        ' 確認
069.        ' ******************************************************
070.        Me.確認.TabIndex = 30
071.        Me.確認.Text = "確認"
072. 
073.        Me.確認.Left  = 246
074.        Me.確認.Top       = 36
075.        Me.確認.Width = 89
076.        Me.確認.Height    = 25
077. 
078.        Me.確認.UseVisualStyleBackColor = True
079. 
080.        ' ******************************************************
081.        ' TextBox2
082.        ' ******************************************************
083.        Me.TextBox2.TabIndex = 31
084. 
085.        Me.TextBox2.Left    = 101
086.        Me.TextBox2.Top     = 70
087.        Me.TextBox2.Width   = 107
088.        Me.TextBox2.Height  = 19
089. 
090.        ' ******************************************************
091.        ' Form 構造
092.        ' ******************************************************
093.        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
094.        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
095.        Me.ClientSize = New System.Drawing.Size(378, 273)
096. 
097.        ' ******************************************************
098.        ' コントロール追加
099.        ' ******************************************************
100.        Me.Controls.Add(Me.確認)
101.        Me.Controls.Add(Me.Label1)
102.        Me.Controls.Add(Me.TextBox1)
103.        Me.Controls.Add(Me.TextBox2)
104. 
105.        ' ******************************************************
106.        ' Form 属性
107.        ' ******************************************************
108.        Me.Text = "VB.NET Form アプリケーション"
109.        Me.ResumeLayout(False)
110.        Me.PerformLayout()
111. 
112.    End Sub
113. 
114.End Class