コンボボックスのドロップダウンリストを表示
 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　玄関へお回り下さい。
コンボボックスのドロップダウンリストを表示する                      (147)
　　 Option Explicit　　 'SampleNo=147　WindowsXP VB6.0(SP5) 2002.06.08
'指定のウィンドウにメッセージを送る(P750)
Private Declare Function SendMessage Lib "user32" _
　　Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _
　　ByVal wParam As Long, lParam As Any) As Long
'ドロップダウンリストを表示・非表示にする(P791)
Private Const CB_SHOWDROPDOWN = &H14F


Private Sub Command1_Click()
　　'wParam　開く時 = 1　　閉じる時 = 0　　lParam = 常に 0
　　Call SendMessage(Combo1.hWnd, CB_SHOWDROPDOWN, 1&, ByVal 0&)
End Sub


Private Sub Form_Load()
　　Combo1.AddItem "あいうえお"
　　Combo1.AddItem "かきくけこ"
　　Combo1.AddItem "さしすせそ"
End Sub
プログラム上より、コンボボックスのドロップダウンリストを表示・非表示に切り替えるサンプル
プログラムです。
別途、表示項目数の変更や表示行の高さの設定等も出来ます。



2002/06/17