コンボボックスについて (ID:77733)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 GotFocusイベントでSendMessageしてやれば出来ます。 Private Sub Combo1_GotFocus() Const CB_SHOWDROPDOWN = &H14F Call SendMessage(Combo1.hWnd, CB_SHOWDROPDOWN, CLng(1), ByVal CLng(0)) End Sub