本文给出主要使用了API函数。
Private Declare Function SendMessage Lib User32 Alias SendMessageA (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
ฟังก์ชั่นประกาศส่วนตัว GetWindowLong Lib User32 นามแฝง GetWindowLongA (ByVal hWnd ตราบใดที่ ByVal nIndex ตราบใดที่) ตราบใดที่
ฟังก์ชั่นการประกาศส่วนตัว SetWindowLong Lib User32 นามแฝง SetWindowLongA (ByVal hWnd ตราบใดที่ ByVal nIndex ตราบใดที่ ByVal dwNewLong ตราบใดที่) ตราบใดที่
ส่วนตัว Const GWL_STYLE = -16&
ส่วนตัว Const TVM_SETBKCOLOR = 4381&
ส่วนตัว Const TVM_GETBKCOLOR = 4383&
ส่วนตัว Const TVS_HASLINES = 2&
Dim frmlastForm เป็นรูปแบบ
แบบฟอร์มย่อยส่วนตัว_Load()
Dim nodX เป็นโหนด
ตั้งค่า nodX = TreeView1.Nodes.Add(, , R, Root)
ตั้งค่า nodX = TreeView1.Nodes.Add(R, tvwChild, C1, ลูก 1)
ตั้งค่า nodX = TreeView1.Nodes.Add(R, tvwChild, C2, เด็ก 2)
ตั้งค่า nodX = TreeView1.Nodes.Add(R, tvwChild, C3, เด็ก 3)
ตั้งค่า nodX = TreeView1.Nodes.Add(R, tvwChild, C4, เด็ก 4)
nodX ตรวจสอบให้แน่ใจว่ามองเห็นได้
TreeView1.style = tvwTreelinesText ' สไตล์ 4
TreeView1.BorderStyle = vbFixedSingle
จบหมวดย่อย
คำสั่งย่อยส่วนตัว1_คลิก()
Dim lngStyle ตราบเท่าที่
โทรส่งข้อความ (TreeView1.hWnd, TVM_SETBKCOLOR, 0, ByVal RGB (255, 0, 0))
'改变背景到红色
lngStyle = GetWindowLong (TreeView1.hWnd, GWL_STYLE)
โทร SetWindowLong (TreeView1.hWnd, GWL_STYLE, lngStyle - TVS_HASLINES)
โทร SetWindowLong (TreeView1.hWnd, GWL_STYLE, lngStyle)
จบหมวดย่อย
ตัวเลือกที่ชัดเจน
ฟังก์ชั่นการประกาศส่วนตัว SendMessage Lib User32 นามแฝง SendMessageA (ByVal hWnd ตราบเท่าที่ ByVal wMsg ตราบเท่าที่ ByVal wParam ตราบเท่าที่ lParam ตราบเท่าที่) ตราบเท่าที่
ฟังก์ชั่นประกาศส่วนตัว GetWindowLong Lib User32 นามแฝง GetWindowLongA (ByVal hWnd ตราบใดที่ ByVal nIndex ตราบใดที่) ตราบใดที่
ฟังก์ชั่นการประกาศส่วนตัว SetWindowLong Lib User32 นามแฝง SetWindowLongA (ByVal hWnd ตราบใดที่ ByVal nIndex ตราบใดที่ ByVal dwNewLong ตราบใดที่) ตราบใดที่
ส่วนตัว Const GWL_STYLE = -16&
ส่วนตัว Const TVM_SETBKCOLOR = 4381&
ส่วนตัว Const TVM_GETBKCOLOR = 4383&
ส่วนตัว Const TVS_HASLINES = 2&
แบบฟอร์มย่อยส่วนตัว_Load()
Dim nodex เป็น Node
หรี่ฉันเป็นจำนวนเต็ม
Dim lStyle ตราบเท่าที่
โทรส่งข้อความ (TreeView1.hWnd, TVM_SETBKCOLOR, 0, ByVal RGB (255, 0, 0))
lStyle = GetWindowLong (TreeView1.hWnd, GWL_STYLE)
โทร SetWindowLong (TreeView1.hWnd, GWL_STYLE, lStyle - TVS_HASLINES)
โทร SetWindowLong (TreeView1.hWnd, GWL_STYLE, lStyle)
TreeView1.Style = tvwTreelinesPlusMinusPictureText
TreeView1.BorderStyle = ccFixedSingle
ด้วย TreeView1.Nodes
ตั้งค่า nodex = .Add(, , R, Root)
nodex.BackColor = RGB (255, 0, 0)
สำหรับฉัน = 1 ถึง 10
ตั้งค่า nodex = .Add(R, tvwChild, C & i, Child & i)
nodex.BackColor = RGB (255, 0, 0)
node.EnsureVisible
ต่อไป
จบด้วย
จบหมวดย่อย