知识大全 VB中如何修改treeview的背景色

Posted 2022-07-17 背景

篇首语：案头见蠹鱼，犹胜凡俦侣。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 VB中如何修改treeview的背景色相关的知识，希望对你有一定的参考价值。

VB中如何修改treeview的背景色 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

改变 TreeView 的背景 Private Declare Function SendMessage Lib User Alias SendMessageA (ByVal hWnd As Long ByVal wMsg As Long ByVal wParam

　　As Long lParam As Long) As Long

　　Private Declare Function GetWindowLong Lib User Alias GetWindowLongA (ByVal hWnd As Long ByVal nIndex As Long) As Long

　　Private Declare Function SetWindowLong Lib User Alias SetWindowLongA (ByVal hWnd As Long ByVal nIndex As Long ByVal

　　dwNewLong As Long) As Long

　　Private Const GWL_STYLE = &Private Const TVM_SETBKCOLOR = &Private Const TVM_GETBKCOLOR = &Private Const TVS_HASLINES = &

　　Dim frmlastForm As Form

　　Private Sub Form_Load()Dim nodX As NodeSet nodX = TreeView Nodes Add( R Root )Set nodX = TreeView Nodes Add( R tvwChild C Child )Set nodX = TreeView Nodes Add( R tvwChild C Child )Set nodX = TreeView Nodes Add( R tvwChild C Child )Set nodX = TreeView Nodes Add( R tvwChild C Child )nodX EnsureVisibleTreeView style = tvwTreelinesText Style TreeView BorderStyle = vbFixedSingleEnd Sub

　　Private Sub Command _Click()Dim lngStyle As LongCall SendMessage(TreeView hWnd TVM_SETBKCOLOR ByVal RGB( )) 改变背景到红色

　　lngStyle = GetWindowLong(TreeView hWnd GWL_STYLE)Call SetWindowLong(TreeView hWnd GWL_STYLE lngStyle TVS_HASLINES)Call SetWindowLong(TreeView hWnd GWL_STYLE lngStyle)End Sub

　　Option Explicit

　　Private Declare Function SendMessage Lib User Alias SendMessageA (ByVal hWnd As Long ByVal wMsg As Long ByVal wParam As Long lParam As Long) As LongPrivate Declare Function GetWindowLong Lib User Alias GetWindowLongA (ByVal hWnd As Long ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib User Alias SetWindowLongA (ByVal hWnd As Long ByVal nIndex As Long ByVal dwNewLong As Long) As Long

　　Private Const GWL_STYLE = &Private Const TVM_SETBKCOLOR = &Private Const TVM_GETBKCOLOR = &Private Const TVS_HASLINES = &

　　Private Sub Form_Load()

　　Dim nodex As NodeDim i As IntegerDim lStyle As Long

　　Call SendMessage(TreeView hWnd TVM_SETBKCOLOR ByVal RGB( ))lStyle = GetWindowLong(TreeView hWnd GWL_STYLE)Call SetWindowLong(TreeView hWnd GWL_STYLE lStyle TVS_HASLINES)Call SetWindowLong(TreeView hWnd GWL_STYLE lStyle)

　　TreeView Style = tvwTreelinesPlusMinusPictureTextTreeView BorderStyle = ccFixedSingleWith TreeView NodesSet nodex = Add( R Root )nodex BackColor = RGB( )For i = To Set nodex = Add( R tvwChild C & i Child & i) nodex BackColor = RGB( ) nodex EnsureVisibleNextEnd With