请教treeview行距怎么设置

飞得更高

请教高手，treeview行距怎么设置，谢谢

roych

没有这个属性。如果非要设置行高的话，可以试试改用一些大一点的图标，这样文字的高度就出来了。

飞得更高

roych 发表于 2023-6-4 02:57
没有这个属性。如果非要设置行高的话，可以试试改用一些大一点的图标，这样文字的高度就出来了。

谢谢roych老师。

鱼儿游游

用以下的方法，可实现楼主想要的效果。

1. Option Compare Database
   
2. Option Explicit
   
3. 
   
4. Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _
   
5.                                                                        ByVal wMsg As Long, _
   
6.                                                                        ByVal wParam As Long, _
   
7.                                                                        lParam As Any) As Long
   
8. Private Const TV_FIRST = &H1100
   
9. Private Const TVM_SETITEMHEIGHT = TV_FIRST + 27
   
10. 
    
11. '/**
    
12. ' * 函数功能：设置树型列表控件节点行(Node)高度
    
13. ' *
    
14. ' * 调用参数：
    
15. ' *          oTreeView  ......... TreeView 控件
    
16. ' *          lngHeight .......... 设置树型列表控件节点(Node)的高度（建议值在：15 - 80 之间）。
    
17. ' *
    
18. ' * 返 回 值：长整型。
    
19. ' *
    
20. ' * 调用示例： Call TreeView_SetItemHeight( Me.TreeView.hwnd, 30 )
    
21. ' */
    
22. Function TreeView_SetItemHeight(ByVal oTreeView As Object, ByRef lngHeight As Long) As Long
    
23.    
    
24.     TreeView_SetItemHeight = SendMessage(oTreeView.hwnd, TVM_SETITEMHEIGHT, lngHeight, ByVal 0&)
    
25. 
    
26. End Function
    

复制代码