CONVERTER DE VB PARA RGB

RICATOM 25/01/2010 11:44:33
#332781
Bom dia colegas

Testei vários codigos mas nenhum funcionou.

Preciso converter de &H8000000F& (superficie do botão) para RGB.

Se alguem tiver alguma dica, agradeço
WEBMASTER 25/01/2010 11:56:24
#332785
RICATOM 25/01/2010 12:00:09
#332787
Webmaster, como informei acima, testei os exemplos aqui do site e não retornam o RGB.

Deixa eu explicar melhor, estou querendo criar um gradiente usando a cor do vbbutton (superficie do botao). Estou testando uma classe que vc mesmo postou, só que ela usa como parametro o rgb, por isso da conversao.

EFEITO GRADIENTE EM PICTUREBOX - CLASSE PERFEITA

Obrigado
RICATOM 25/01/2010 15:14:34
#332797
Resolvei meu problema com o codigo abaixo

 
Private Declare Function TranslateColor Lib [Ô]olepro32.dll[Ô] Alias [Ô]OleTranslateColor[Ô] (ByVal clr As OLE_COLOR, ByVal palet As Long, col As Long) As Long
Private Declare Function GetPixel Lib [Ô]gdi32[Ô] (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long

Private Sub Command1_Click()
    Dim RealColor As Long
    [ô]Converte cores OLE para cores RGB
    TranslateColor [Ô]&H[Ô] & _
                   Hex(GetPixel(Picture1.hdc, x / Screen.TwipsPerPixelX, y / _
                                                                         Screen.TwipsPerPixelY)), 0, RealColor
    [ô]Exibe o resultado
    Label1.Caption = [Ô]A cor selecionada é: R=[Ô] + CStr(RealColor And &HFF&) + [Ô] G=[Ô] + CStr((RealColor And &HFF00&) / 2 ^ 8) + [Ô] B=[Ô] + CStr((RealColor And &HFF0000) / 2 ^ 16)
    Me.Text1.BackColor = RGB(CStr(RealColor And &HFF&), CStr((RealColor And &HFF00&) / 2 ^ 8), CStr((RealColor And &HFF0000) / 2 ^ 16))
End Sub


Retirado do artigo CORES NO VISUAL BASIC
Tópico encerrado , respostas não são mais permitidas
Voltar