Moderador: Moderadores
DEFINE GETBOX oEstado
ROW 360
COL 680
WIDTH 30
HEIGHT 20
VALUE SPACE(2)
PICTURE "@!"
VALID {|| ValidaUF(this.value) }
MESSAGE "Informe a Sigla do Estado"
END GETBOX
Toledo escreveu:Mas o GetBox tem um pequeno problema quando se usa o VALID, você não consegui ir para um outro campo do form ou clicar em algum botão se deixar o GetBox vazio, você tem que digitar um valor válido para sair do GetBox, mesmo que você esteja clicando num botão "Sair" ou "Cancela" que vai finalizar o form (release). Apesar que teclando ESC o form é finalizado sem validar o GetBox.
Softwhouse escreveu:Usei Picture '@R 99.999.999/9999-99' e o 'this.value' passa a máscara junto.
#include "minigui.ch"
*----------------------
function main
*----------------------
define window form_1 ;
at 0,0 width 300 height 250 ;
title "Getbox Picture Demo" ;
main
@ 50,40 getbox getbox_1 Value Spac(14) Picture "@R 99.999.999/9999-99" ;
valid {|| ValDemo(this.value)}
@ 100,40 getbox getbox_2 Value Spac(10) Picture "@!"
end window
form_1.center
form_1.activate
return Nil
*----------------------
Func ValDemo(cGet)
*----------------------
MsgInfo(cGet)
Return .T.
Usuários vendo este fórum: Nenhum usuário registrado online e 9 visitantes