ShowPickColor

<< Clique para Mostrar o Sumário >>

 

ShowPickColor

ShowPickColor(ColorValue, [Color], [Left], [Top])

Abre a caixa de diálogo Cores do Windows para selecionar uma cor. O valor decimal da cor selecionada é retornado no parâmetro ColorValue. O parâmetro opcional Color indica uma cor previamente selecionada na paleta de cores. Se este parâmetro não é informado, assume o valor 0 (zero, preto). A posição da caixa de diálogo pode ser configurada através dos parâmetros opcionais Left e Top, que indicam respectivamente a distância da margem esquerda e do topo da tela, em pixels. Caso estes parâmetros não sejam informados, a caixa de diálogo é centralizada. O código a seguir contém um exemplo de uso deste método.

Sub CommandButton_Click()
  Dim novaCor
  Dim corPadrao
  corPadrao = 65280 ' Verde Claro
  If Application.ShowPickColor(novaCor, corPadrao, 90, 90) Then
    Screen.Item("Retangulo1").ForegroundColor = novaCor
    Screen.Item("Texto1").Value = novaCor
  End If
End Sub

Esta página foi útil?