コンボボックスの高さを変更したい。

解決

とんまのまんポ 2005-03-12 14:25:53 No: 120197 IP: [192.*.*.*]

コンボボックスの高さが自由に変更したいです。

Combo1.Height = 500

と記述しても変わりません。どうすれば良いのでしょうか？

Say 2005-03-12 15:50:32 No: 120198 IP: [192.*.*.*]

CB_SETITEMHEIGHTをSendMessageするとか。

とんまのまんポ 2005-03-12 16:18:14 No: 120199 IP: [192.*.*.*]

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

編集削除

とんまのまんポ 2005-03-12 16:31:48 No: 120200 IP: [192.*.*.*]

Sayさんありがとうございます。
出来ました。。。。。

編集削除