COMMOMDIALOG.COLOR PARA COR DE WEB

SCORN 15/01/2005 20:47:52
#61061

Alguem sabe uma maneira simple de como trocar as cores que o CD retorna no showcolor para cores do tipo #000000, #FFFFFF (formato web)?

WEBMASTER 15/01/2005 20:49:24
#61062

espera...to vendu aki!!

WEBMASTER 15/01/2005 20:50:56
#61063

Ahhh...no outro topico era soh um exemplo kra ;)

WEBMASTER 15/01/2005 20:52:47
#61064

pronto !!!

Citação:

Private Sub Form_Load()
With cd
.ShowColor
MsgBox "#" & Hex(cd.Color)
End With
End Sub

isso levando em conta q cd eh o common dialog

WEBMASTER 15/01/2005 20:54:01
#61065

aqui nem precisava do MsgBox "#" & Hex(cd.Color) - > cd.color...soh .color jah funfa ;)

SCORN 15/01/2005 21:00:28
#61067

caraqka mano, valeu, vc tem msn pra tirar umas duvidas bestas assim pra mim?

scorninpc@hotmail.com

WEBMASTER 15/01/2005 21:01:13
#61069

tenho sim...eh :

William_Yodax@hotmail.com

SCORN 15/01/2005 21:03:05
#61071

a um problema nesse codigo, os valores 0 naum entraum

WEBMASTER 15/01/2005 23:13:48
#61131


dim zero as string 

if(Hex(cd.Color)=0)then 
   zero="#000000"
   msgbox zero
elseif(hex(cd.color)<>0)then
   msgbox "#" & hex(cd.color)    
endif

certinho...rsrs

WEBMASTER 15/01/2005 23:29:15
#61133

prontinho Scorn...bug concertado ;)


Private Sub Form_Click()
Dim Hexa As String, Comp As String

With cd
    
    .ShowColor
    
    If (Hex(.Color) = 0) Then
        MsgBox "#000000": Exit Sub
    End If
    
    Hexa = Format$(Hex(.Color), "000000")
    MsgBox Hexa
    
End With
End Sub

WEBMASTER 15/01/2005 23:30:59
#61134

pode tirar o "Comp as string"...isso era um teste que eu tava fazendo ;)

Página 1 de 2 [14 registro(s)]

Tópico encerrado , respostas não são mais permitidas

Voltar