本文介绍了一个使用VBScript来调整TreeView控件中项的高度的方法。通过声明API函数SendMessage并定义常量，实现了一个名为TreeView_SetItemHeight的功能函数。该函数接收TreeView窗口句柄和希望设置的高度值作为参数。
Option Explicit
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 Const TV_FIRST = &H1100
Private Const TVM_SETITEMHEIGHT = TV_FIRST + 27
Function TreeView_SetItemHeight(ByVal hTVWnd As Long, ByVal lHeight As Long) As
Long
TreeView_SetItemHeight = SendMessage(hTVWnd, TVM_SETITEMHEIGHT, lHeight, ByVal
0)
End Function
Private Sub Command1_Click()
Call TreeView_SetItemHeight(TreeView1.hwnd, 100)
End Sub
扫一扫
4万+
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
