Office中国论坛/Access中国论坛

标题: 请教treeview行距怎么设置 [打印本页]
作者: 飞得更高    时间: 2023-6-3 17:11
标题: 请教treeview行距怎么设置
请教高手，treeview行距怎么设置，谢谢
作者: roych    时间: 2023-6-4 02:57
没有这个属性。如果非要设置行高的话，可以试试改用一些大一点的图标，这样文字的高度就出来了。
作者: 飞得更高    时间: 2023-6-5 08:35
roych 发表于 2023-6-4 02:57
没有这个属性。如果非要设置行高的话，可以试试改用一些大一点的图标，这样文字的高度就出来了。

谢谢roych老师。
作者: 鱼儿游游    时间: 2023-8-4 15:29
本帖最后由 鱼儿游游 于 2023-8-4 15:47 编辑

用以下的方法，可实现楼主想要的效果。
  1. Option Compare Database
  2. Option Explicit

  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

  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&)

  26. End Function
复制代码






欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3