🚀 go-pugleaf

AsYouLike... wrote in message <6ha43s$7l2$1@fu3.bekkoame.or.jp>...
>ShowDropDown(TRUE);
>MoveWindow(....);
>ShowDropDown(FALSE);
>
>では駄目でしょうか。
>一瞬画面がちらつくようですが、（Ｗｉｎ９８では一瞬ではない）
>動的にサイズを変更出来ます。
>リソースを編集出来るなら、そちらでサイズの変更も出来ます。


返事、遅れてしまいました。ごめんなさい。m(__)m

ありがとうございます。無事解決しました。完璧です。

フォームにComboBoxを1個作り以下のコードを張りつけて実行して下さい。
ドロップダウンリストの高さが、画面の高さの半分になるはずです。

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 Declare Function MoveWindow Lib "user32" _
(ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, _
ByVal nWidth As Long, ByVal nHeight As Long, _
ByVal bRepaint As Long) As Long

Private Sub Form_Load()
Dim K As Integer
    For K = 1 To 100
        Combo1.AddItem CStr(K)
    Next
Me.Show


SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, True, 0


    MoveWindow Combo1.hwnd, Combo1.Left \ Screen.TwipsPerPixelX, _
    Combo1.Top \ Screen.TwipsPerPixelY, Combo1.Width \ Screen.TwipsPerPixelX, _
    Screen.Height \ (Screen.TwipsPerPixelY * 2), True


SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, False, 0


End Sub