改变list列表的间距

 

有没有觉得 列表框的各项目之间的距离有点紧凑呢？  用这个方法把其距离拉远点吧！

API 部分：
Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Const LB_SETITEMHEIGHT = &H1A0

应用部分：

在需要改变间距大小的地方添加如下代码：

SendMessageLong List1.hwnd, LB_SETITEMHEIGHT, 0, 20

其中 红色部分 可以自己根据需要修改！

list1.hwnd  可以换成 combo1.hwnd  可以改变下拉列表框个项目的间距

20  就是他们的距离 这个可以自定义