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

解決

とんまのまんポ 2005-03-12 23:25:53 No: 120197

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

Combo1.Height = 500

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

Say 2005-03-13 00:50:32 No: 120198

CB_SETITEMHEIGHTをSendMessageするとか。

とんまのまんポ 2005-03-13 01:18:14 No: 120199

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-13 01:31:48 No: 120200

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