060105

タイトル	ドロップダウンリストの項目の高さを変更する
対象言語	VB4.0以降
動作確認ＯＳ	Windows95,98,NT4.0
使用関数	SendMessage
改築日	1999/09/18
Source Download

コンボボックスのドロップダウンリストのアイテムの高さを変更します

コンボボックスに　CB_SETITEMHEIGHTメッセージを送ってアイテム
の高さを変更します。
lParamに高さをセットしますが、あまり小さい値をセットとすると
見えなくなるので注意してくださいませ。

1. フォームを作成しコンボボックス２つ(Combo11,Combo2) を貼り付けてください。

Option Explicit

Private Sub Form_Load()

　　Dim i As Integer

　　For i = 0 To 9
　　　　Combo1.AddItem String$(10, Chr$(i + 48))
　　　　Combo2.AddItem String$(10, Chr$(i + 48))
　　Next

'リスト項目内の高さを設定する
　　Call Y_SetComboItemHeight(Combo2, 16)

End Sub

2.モジュールウインドウを作成し、下のソースを入力してください。

'リストボックスの項目の高さを設定する
Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Const CB_SETITEMHEIGHT = &H153 'アイテムの高さをセット

Public Sub Y_SetComboItemHeight(CB As ComboBox, ListHeight As Long)

'***********************************************************
'機能 : コンボボックスのドロップダウンリストの項目の高さ
'　　　　を設定する
'引数 : CB = コンボボックス
'　　　　List_Height = 項目の高さ(Pixcel)
'***********************************************************

　　Dim longret As Long

　　longret = SendMessage(CB.hwnd, CB_SETITEMHEIGHT, 0&, ByVal ListHeight)

'リストボックス再描画
　　CB.Refresh

End Sub