|
|
Postada em 07/02/2005 14:51 hs
Neste código abaixo, qndo clico em cancelar na caixa de cores que se abre, a propriedade text1.BackColor fica preto enquanto que na verdade não escolhi nenhuma cor. Como eu resolvo isto? O text1.BackColor deve permanecer com a mesma cor de que estava antes. Private Sub cmdcor_Click()
cmdcores.ShowColor
Text1.BackColor = cmdcores.Color
End Sub |
|
|
|
|
|
|
|
Postada em 07/02/2005 19:38 hs
deve ser pq a cor por definição é preta (cmdcores.color = 0)... Tente assim: Private Sub cmdcor_Click() On Error GoTo erro
cmdcores.ShowColor
Text1.BackColor = cmdcores.Color erro:
If Err.Number <> 0 And Err.Number <> 32755 Then MsgBox Err.Description, vbCritical
End Sub Coloque a propriedade CancelError = true do cmdcores ok t+ |
|
|
|
|
|
Postada em 09/02/2005 07:57 hs
Obrigado ghost_jlp agora está tudo certo |
|
|
|
tinho
|
ARARUAMA
RJ - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 14/02/2005 18:57 hs
tidestone formula one ei será que alguém ai sabe como eu faço o alinhamento no tidestone quero alinhar a direita mas não consigo. |
|
|
|
