Validate(Cancel, NewValue)

Este evento ocorre após os testes de limites deste objeto e antes do valor deste objeto ser enviado para um Tag. Para mais informações, consulte as propriedades MinLimit, MaxLimit, EnableLimits. A finalidade deste evento é permitir que o usuário cancele o envio do valor deste objeto para um Tag.

O parâmetro Cancel é um Booleano que indica se a operação de atribuição do valor deste objeto a um Tag deve ser cancelada (Cancel igual a Verdadeiro). O padrão é Falso, ou seja, o valor deste objeto é enviado a um Tag. NewValue é o valor que está sendo avaliado. O valor antigo pode ser acessado pela propriedade Value deste objeto. O script a seguir contém um exemplo de uso deste evento.

Sub Texto1_Validate(Cancel, NewValue)
  ' Mostra uma caixa de mensagem que pergunta ao usuário
  ' se deseja usar o novo valor digitado neste objeto
  message = "Valor atual: " & Value & vbNewLine & _
    "Valor novo: " & NewValue & vbNewLine & vbNewLine & _
    "Aceita o novo valor?"
  If MsgBox(message, vbQuestion + vbYesNo, "Evento Validate") <> vbYes Then
    Cancel = True
  End If
End Sub