Hit-Parade .VB Research Center . Compteur
Accueil ~  Code ~  Programmes ~  Api ~  Forum ~  Cours ~  Livres ~  Quiz ~  Annuaire
~ Edito ~
12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période.
Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes.

~ Rechercher ~

  

~ Annuaire VB ~
 Rechercher un site :
  

~ Partenaires ~

Fonction : GetTVColour
Récupère la couleur de fond, ou du texte d'un TreeView.
Origine : Nicolas
(Consulté 18399 fois.)

Public Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" _
        (
ByVal hwnd As Long, ByVal wMsg As Long, _
       
ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function
GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
Public Declare Function
GetWindowLong Lib "user32" Alias "GetWindowLongA" _
        (
ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function
SetWindowLong Lib "user32" Alias "SetWindowLongA" _
        (
ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Public Const
GWL_STYLE As Long = -16&
Public Const COLOR_WINDOW = 5
Public Const COLOR_WINDOWTEXT = 8
Public Const TVS_HASLINES As Long = 2
Public Const TV_FIRST As Long = &H1100
Public Const TVM_SETBKCOLOR As Long = (TV_FIRST + 29)
Public Const TVM_SETTEXTCOLOR As Long = (TV_FIRST + 30)
Public Const TVM_GETBKCOLOR As Long = (TV_FIRST + 31)
Public Const TVM_GETTEXTCOLOR As Long = (TV_FIRST + 32)

Public Function GetTVColour(hwndTV As Long, Optional blBackColour As Boolean = True) As Long
' Récupère la couleur de fond, ou du texte, du treeview dont le Handle est passé en paramêtre.
Dim lgClrref As Long
If
blBackColour Then
    lgClrref = SendMessageLong(hwndTV, TVM_GETBKCOLOR, 0, 0)
Else
    lgClrref = SendMessageLong(hwndTV, TVM_GETTEXTCOLOR, 0, 0)
End If
If
lgClrref = -1 Then
    If blBackColour Then
        lgClrref = GetSysColor(COLOR_WINDOW)
   
Else
        lgClrref = GetSysColor(COLOR_WINDOWTEXT)
   
End If
End If
' Retourne la couleur
GetTVColour = lgClrref
End Function

Visual Basic Research Center - (c) 2000/2002 -  Webmaster : docvb (chez) free (point) fr