组合框的属性height的高度怎么修改啊显示只读属性
谢谢
Option Explicit
Private Const CB_SETITEMHEIGHT& = &H153
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 Sub Command1_Click()
Dim NewHeight As Long
NewHeight = 100 '以像素为单位
SendMessage Combo1.hwnd, CB_SETITEMHEIGHT, -1, ByVal NewHeight
End Sub
