Private Sub SetTVBackColour(clrref As Long) Dim hwndTV As Long Dim style As Long hwndTV = TV1.hwnd Call SendMessage(hwndTV, TVM_SETBKCOLOR, 0, ByVal clrref) style = GetWindowLong(TV1.hwnd, GWL_STYLE) If style And TVS_HASLINES Then Call SetWindowLong(hwndTV, GWL_STYLE, style Xor TVS_HASLINES) Call SetWindowLong(hwndTV, GWL_STYLE, style) End If End Sub常数及函数自己声明即可!
Dim hwndTV As Long
Dim style As Long
hwndTV = TV1.hwnd
Call SendMessage(hwndTV, TVM_SETBKCOLOR, 0, ByVal clrref)
style = GetWindowLong(TV1.hwnd, GWL_STYLE)
If style And TVS_HASLINES Then
Call SetWindowLong(hwndTV, GWL_STYLE, style Xor TVS_HASLINES)
Call SetWindowLong(hwndTV, GWL_STYLE, style)
End If
End Sub常数及函数自己声明即可!