devxlogo

TranslateColor – Convert a VB color or system color constant

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 constantsFunction TranslateColor(ByVal clr As Long) As Long    If OleTranslateColor(clr, 0, TranslateColor) Then         TranslateColor = -1    End IfEnd Function

devx-admin

Share the Post: