your email adress bounces back to me, so I send this snippet thru the list
...
Public Function RGBRed(RGBCol As Long) As Integer
'Return the Red component from an RGB Color
RGBRed = RGBCol And &HFF
End Function
Public Function RGBGreen(RGBCol As Long) As Integer
'Return the Green component from an RGB Color
RGBGreen = ((RGBCol And &H100FF00) / &H100)
End Function
Public Function RGBBlue(RGBCol As Long) As Integer
'Return the Blue component from an RGB Color
RGBBlue = (RGBCol And &HFF0000) / &H10000
End Function
Hope it helps
Eric.
> -----Message d'origine-----
> De : [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED]]De la part de
> Gerencia-Mags
> Envoy� : lundi 7 mai 2001 09:44
> � : MapInfo-L
> Objet : MI-L Visual and MI OLE (Color Problem)
>
>
>
>
>
> Dear List (and Trey Patillo of course !)
>
> I have the next problem:
>
> I have a VBsaic dialog in which I select diferents values including a =
> Color using the VBasic CommonDialog control to select a Color.
>
> I want to draw all lines in MI (via OLE of course) in that color =
> selected.
>
> The problem is that the CommonDialog don't return excatly the RBG color =
> like MI needs.
> F.E for red return 255, when the RGB color for Red is 255 * 65536.
>
> In MapBasic the RGB color is: Red * 65536 + Green * 255 + Blue
> But in Visual Basic it seems is in the other hand: Blue * 65536 + Green =
> * 255 + Red
>
> Am I mad?
>
> Neither I found a way in V.Basic to obtein the Red, Green and Blue value =
> to calculate the RGB color.
>
> Any help please ?
>
> Regards
> Alejandro
>
>
>
> _______________________________________________________________________
> List hosting provided by Directions Magazine | www.directionsmag.com |
> To unsubscribe, send e-mail to [EMAIL PROTECTED] and
> put "unsubscribe MapInfo-L" in the message body.
_______________________________________________________________________
List hosting provided by Directions Magazine | www.directionsmag.com |
To unsubscribe, send e-mail to [EMAIL PROTECTED] and
put "unsubscribe MapInfo-L" in the message body.
