BACKSPACE EM LABEL

USUARIO.EXCLUIDOS 13/08/2007 11:22:02
#230651
Pessoall... estou criando uma calculadora...
é o visor seria com um LABEL...

mas como o label nao recebe o foco... eu precisava que quando voce precionada a tela backspace (ascii codigo = 8) ele apagasse os digitos um a um (como se tivesse foco em um textbox)


como faço isso?

brigadinha..quem poder ajudar!!!
USUARIO.EXCLUIDOS 13/08/2007 11:28:18
#230656 Resposta escolhida
Seta a propriedade do KeyPreview do form para True, e faz esta validação no KeyPress do form.

Algo do tipo:

If KeyAscii = 8 then
   lblVisor.Caption = Left$(lblVisor.Caption, len(lblVisor.Caption) - 1)
end if
USUARIO.EXCLUIDOS 13/08/2007 11:42:08
#230664
valew amigo... só coloquei o if para nao dar erro quando nao existe nada no label


funcionou direitinho... t+
USUARIO.EXCLUIDOS 13/08/2007 11:50:47
#230670
Bem lembrado... nem tinha pensado nisso de estar vazio! rsrs


Qualquer coisa posta aí... ;)

E só não esquece de encerrar o tópico depois de tudo resolvido!



Te+!
Tópico encerrado , respostas não são mais permitidas
Voltar