Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB4/32,VB5,VB6
Expertise: Intermediate
Mar 3, 2001

TranslateColor - Convert a VB color or system color constant

Private Declare Function OleTranslateColor Lib "OLEPRO32.DLL" (ByVal OLE_COLOR _
    As Long, ByVal HPALETTE As Long, pccolorref As Long) As Long

' convert a VB color constant to a COLORREF
' accepts both RGB() values and system color constants

Function TranslateColor(ByVal clr As Long) As Long
    If OleTranslateColor(clr, 0, TranslateColor) Then
         TranslateColor = -1
    End If
End Function

Francesco Balena
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date