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

解決


とんまのまんポ  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さんありがとうございます。
出来ました。。。。。


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加