使用 Microsoft Forms 2.0 Object Library 中的 Combobox。
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() SendMessage Combo1.hwnd, CB_SETITEMHEIGHT, -1, ByVal 100 End Sub '后面的那个100就是高度
另外,我不会这样的方法
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()
SendMessage Combo1.hwnd, CB_SETITEMHEIGHT, -1, ByVal 100 End Sub '后面的那个100就是高度