コンソール用
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
|