改變TreeView控制項的背景色

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

private declare function getwindowlong lib "user32" alias "getwindowlonga" (byval hwnd as long, byval nindex as long) as long

private declare function setwindowlong lib "user32" alias "setwindowlonga" (byval hwnd as long, byval nindex as long, byval dwnewlong as long) as long

private const gwl_style = -16&

private const tvm_setbkcolor = 4381&

private const tvm_getbkcolor = 4383&

private const tvs_haslines = 2&

dim frmlastform as form

private sub form_load()

dim nodx as node

me.show

doevents

for i = 1 to 100

set nodx = treeview1.nodes.add(, , "r" & i, "root")

nodx.forecolor = rgb(80, 0, 255)

next

nodx.ensurevisible

treeview1.style = tvwtreelinestext ' style 4.

treeview1.borderstyle = vbfixedsingle

end sub

private sub command1_click()

dim lngstyle as long

call sendmessage(treeview1.hwnd, tvm_setbkcolor, 0, byval rgb(255, 0, 0))

'改變背景到紅色

lngstyle = getwindowlong(treeview1.hwnd, gwl_style)

call setwindowlong(treeview1.hwnd, gwl_style, lngstyle - tvs_haslines)

call setwindowlong(treeview1.hwnd, gwl_style, lngstyle)

end sub

改變MFC控制項背景顏色

這裡講述兩種改變mfc控制項背景顏色的方法 方法一 用onctlcolor訊息函式，改變特定控制項的背景 首先在標頭檔案的類中定義cbush類的變數 brush 如語句 cbrush brush 然後在原始檔的建構函式中初始化 brush.createsolidbrush rgb 255,0,0 r...

TreeView控制項

treeview treenode treeview 類，表示在樹狀結構中顯示分層資料的控制項，該樹狀結構包含可展開和摺疊的項。nodes 獲取分配給樹檢視控制項的樹節點集合。getnodeat point 檢索位於指定點的樹節點。treenode類，表示 treeview 控制項中的節點。node...

TreeView控制項

在我們的開發中經常會遇到一些有樹形層次關係的資料，比如顯示無限級分類和顯示某 個檔案下的所有檔案及資料夾，對於這些帶有樹形層次關係的資料的顯示用treeview 控制項 是乙個比較不錯的選擇。treeview控制項支援資料繫結，也支援以程式設計的方式動態新增節點。在 treeview控制項中每個節點...