サンプル投稿用掲示板　　VB2005 〜 用トップページ　　VB6.0 用 トップページ コンボボックスの自動オープン(VB6.0) ( No.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

　[スレッド一覧へ]　[親スレッドへ]