Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As _ Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongDeclare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd _ As Long, ByVal nIndex As Long) As LongDeclare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd _ As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongConst GWL_STYLE = -16&Const TVM_SETBKCOLOR = 4381&Const TVS_HASLINES = 2&Sub SetTreeViewBackColor(TV As TreeView, ByVal BackColor As Long) Dim lStyle As Long Dim TVNode As node ' set the BackColor for every node For Each TVNode In TV.Nodes TVNode.BackColor = BackColor Next ' set the BackColor for the TreeView's window SendMessage TV.hwnd, TVM_SETBKCOLOR, 0, ByVal BackColor ' get the current style lStyle = GetWindowLong(TV.hwnd, GWL_STYLE) ' temporary hide lines SetWindowLong TV.hwnd, GWL_STYLE, lStyle And (Not TVS_HASLINES) ' redraw lines SetWindowLong TV.hwnd, GWL_STYLE, lStyleEnd Sub
Top Careers at Microsoft
February 3, 2023
Microsoft has gained its position as one of the top companies in the world, and Microsoft careers are flourishing. This multinational company is efficiently developing popular software and computers with other consumer electronics. It is a dream come true for so many people to acquire a high paid, high-prestige job
