サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.0 用 トップページ
- 日時： 2007/07/15 20:58
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[コンボボックス][] *
* キーワード：API,ComboBox,,,, *
***********************************************************************************
-----------------------------------------------------------------------------------
No.4962 Re: コンボボックスの自動オープン 投稿者：とろ [2002/06/07(金)19：16分]
-----------------------------------------------------------------------------------
> １．コマンドボタンを押下するとコンボボックスが開く。
Command1 と Combo1 をフォーム上に配置し、
実行し、 Command1 をクリックすると、
Combo1 がドロップダウンリストを表示します。
'****************************************
Option Explicit
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
Private Const CB_SHOWDROPDOWN = &H14F
Private Sub Command1_Click()
Call SendMessage(Combo1.hwnd, CB_SHOWDROPDOWN, True, 0)
End Sub
Private Sub Form_Load()
Combo1.AddItem "A"
Combo1.AddItem "B"
End Sub
 |
