Vb高手请进

来源:百度知道 编辑:UC知道 时间:2024/05/15 19:24:00
下面是设置TreeView控件背景色的关键代码,能否帮我详细解释一下什么意思 ,我看得不是太懂。
'TreeView控件背景颜色
Dim lngStyle As Long
Call SendMessage(TreeView1.hwnd, TVM_SETBKCOLOR, 0, ByVal RGB(117, 169, 146))
lngStyle = GetWindowLong(TreeView1.hwnd, GWL_STYLE) Call SetWindowLong(TreeView1.hwnd, GWL_STYLE, lngStyle - TVS_HASLINES)
Call SetWindowLong(TreeView1.hwnd, GWL_STYLE, lngStyle)

Call SendMessage(TreeView1.hwnd, TVM_SETBKCOLOR, 0, ByVal RGB(117, 169, 146)): 向TREEVIEW发送修改背景颜色的消息,颜色值RGB(117, 169, 146)
GetWindowLong(TreeView1.hwnd, GWL_STYLE) :获得TREEVIEW窗体的显示风格
SetWindowLong(TreeView1.hwnd, GWL_STYLE, lngStyle - TVS_HASLINES) :去掉原风格中的连线
SetWindowLong(TreeView1.hwnd, GWL_STYLE, lngStyle);再显示原风格