コンボボックスの高さを変更したい。 (ID:120199)

名前

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

本文 Sayさんありがとうございます。 Win200 VB6.0 SP6で開発をしています。 下記のように記述しているのですがうまくいきません。 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_SETITEMHEIGHT = &H153 Private Sub Command1_Click() Call Sendmessage(Combo1.hWnd, CB_SETITEMHEIGHT, -1&, 2000) End Sub