トップ ページ > VisualBasic 2010(express) > VisualBasic 2010(express)での補足

VisualBasic 2010(express)での補足

コンボボックスのアイテムにプリンタ一覧を設定

For Each p As String In Printing.PrinterSettings.InstalledPrinters
	ComboBox1.Items.Add(p)
Next
見ての通りなので、コメントなし

コマンドラインで実行した際の引数取得

Dim CommandLine As String
CommandLine = Command()
MsgBox(CommandLine)
下図は【***.exe /arg1 /arg2】 と実行した場合の結果です。
splitなどで引数を個別に取出すなど、工夫すればOKです。

フォーム内のコントロール名の変数化

LabelName = CType(Me.Controls("ラベル名"), Label)
LabelName.text = "ラベルテキスト"

ButtonName = CType(Me.Controls("ボタン名"), Button)
ButtonName.Enabled = False
コントロール名に連番を付けて、Forなどの処理で回したい場合など、有効です。

日付選択

DATE1 = Me.DateTimePicker1.Value.ToString("yyyy/MM/dd")
sql = "SELECT * FROM TABLE WHERE DATE < TO_DATE('" + DATE1 & "','YYYY/MM/DD')"
Oracleで使用する場合、DateTimePickerで取得した値の直接使用では型があわないので、
文字列に変換する必要がありますので、そのメモ。