TOP > カテゴリ > Visual Basic >

コンボボックスの各種操作2

コンボボックスの各種操作2のサンプルです。

サンプルの実行画面

ソースコード

[ComboItem2.frm]

'SendMessage＝＞メッセージをウインドウに送る

'<引数>
'hWnd：ウインドウのハンドル
'wMsg：定数（CB＿××参照）
'wParam：パラメータ
'lParam：0

'<戻り値>
'値により異なる

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long


Const CB_SHOWDROPDOWN = &H14F      'コンボボックスを開閉する(開く時は1、閉じる時は0）

Private Sub Command1_Click()

SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, 1, 0

End Sub

Private Sub Form_Load()


Combo1.AddItem "NO1"
Combo1.AddItem "NO2"
Combo1.AddItem "NO3"
Combo1.AddItem "NO4"
Combo1.AddItem "NO5"


End Sub

ソースコード一式のダウンロード

vbapi_comboitem2.zip 909 バイト (909 バイト)

このサンプルの動作環境について

このサンプルは 「Windows98」及び「Microsoft Visual Basic 5.0 Professional Edition」で確認しております。環境が異なる場合は正常に動作しない場合もございますのでご了承下さい。





関連記事


前の記事：コンボボックスの各種操作1
次の記事：使用できるフォントを列挙する

公開日：2015年03月05日
記事NO：00400