怎么修改组合框（Combo Box）下拉菜单的高度？

VBProFan

' Combo Box messages
Const CB_GETEDITSEL = &H140
Const CB_LIMITTEXT = &H141
Const CB_SETEDITSEL = &H142
Const CB_ADDSTRING = &H143
Const CB_DELETESTRING = &H144
Const CB_DIR = &H145
Const CB_GETCOUNT = &H146
Const CB_GETCURSEL = &H147
Const CB_GETLBTEXT = &H148
Const CB_GETLBTEXTLEN = &H149
Const CB_INSERTSTRING = &H14A
Const CB_RESETCONTENT = &H14B
Const CB_FINDSTRING = &H14C
Const CB_SELECTSTRING = &H14D
Const CB_SETCURSEL = &H14E
Const CB_SHOWDROPDOWN = &H14F
Const CB_GETITEMDATA = &H150
Const CB_SETITEMDATA = &H151
Const CB_GETDROPPEDCONTROLRECT = &H152
Const CB_SETITEMHEIGHT = &H153
Const CB_GETITEMHEIGHT = &H154
Const CB_SETEXTENDEDUI = &H155
Const CB_GETEXTENDEDUI = &H156
Const CB_GETDROPPEDSTATE = &H157
Const CB_FINDSTRINGEXACT = &H158
Const CB_SETLOCALE = &H159
Const CB_GETLOCALE = &H15A
Const CB_MSGMAX = &H15B

CB_SETITEMHEIGHT 改变的是组合框的高度，不是下拉菜单的高度。因此：

1. Option Explicit
   
2. 
   
3. Private Declare Function SendMessage Lib _
   
4.                           "USER32" Alias "SendMessageA" _
   
5.                           (ByVal hwnd As Long, ByVal Msg As Long, _
   
6.                           ByVal wParam As Long, ByVal lParam As Long) As Long
   
7. 
   
8. Private Const CB_ERR As Long = -1
   
9. Private Const CB_SETITEMHEIGHT As Long = &H153
   
10. 
    
11. Private Sub Command1_Click() '稍小一点的高度
    
12.   SendMessage Me.Combo1.hwnd, CB_SETITEMHEIGHT, -1, 50
    
13.   Combo1.Refresh
    
14. End Sub
    
15. 
    
16. Private Sub Command2_Click() '稍大一点的高度
    
17.   SendMessage Me.Combo1.hwnd, CB_SETITEMHEIGHT, -1, 100
    
18.   Combo1.Refresh
    
19. End Sub

复制代码

不是我要的。

hpygzhx520

MoveWindow Combo1.hwnd, Combo1.Left / Screen.TwipsPerPixelX, Combo1.Top / Screen.TwipsPerPixelY, Combo1.Width / Screen.TwipsPerPixelX, 600, 1

这样下拉部分更高，容纳更多的下拉项

SendMessage Me.Combo1.hwnd, CB_SETITEMHEIGHT, ByVal 0, ByVal 32

这样设置单个下拉项的高度为32像素

gcyun

MoveWindow

VBProFan

hpygzhx520 发表于 2015-7-21 14:50
MoveWindow Combo1.hwnd, Combo1.Left / Screen.TwipsPerPixelX, Combo1.Top / Screen.TwipsPerPixelY, Com ...

这种做虽然下拉菜单变高了，但是每一项的高度也变高了，显示的项数还是不变。不是我想要的

VBProFan

hpygzhx520 发表于 2015-7-21 14:50
MoveWindow Combo1.hwnd, Combo1.Left / Screen.TwipsPerPixelX, Combo1.Top / Screen.TwipsPerPixelY, Com ...

啊，说错了，不好意思！原来是我测试时加的数据不够多。MoveWindow 就是我想要的。你的回答完美地解决了我的问题，非常感谢！！