COMO SABER SE TEM ALGO DIGITADO NO TEXTBOX

KURTGU 15/04/2011 04:42:32
#371386
Como saber se tem algo digitado no textbox tipo estou tentando fazer algo desse genero...

TEM TEXTO NO TEXTBOX A COR FICA SILVER
O CARA APAGA TUDO ELA VOLTA PRA TAL COR....
PROGRAMADORVB6 15/04/2011 06:33:33
#371387 Resposta escolhida 
if not textbox1.tex = nothing then
msgbox([Ô]Caixa preenchida ![Ô])
else
msgbox([Ô]Caixa Vazia ![Ô])
end if
HIDDEN 15/04/2011 06:55:58
#371388 
TextBox1.BackColor = IIf(Trim(TextBox1.Text) <> [Ô][Ô], Cor1, Cor2)


Pode usar no LostFocus, GotFocus... ou onde voê achar conveniente...
KURTGU 15/04/2011 06:59:00
#371389
num deu ainda o resultado aqui do jeito que eu quero......
PROGRAMADORVB6 15/04/2011 07:06:14
#371390
Cara , então coloque ai parte do seu código.
KURTGU 15/04/2011 07:08:25
#371391
Fazendo assim ele esta dando certo pelo getfocus e lostfocus quero que ele pegue se tem algo digitado e se o cara apagar ate a ultima letra e deixa uma letra que continue na cor se ele apagar a ultima letra mude a cor......
[ô]______________________________________________________________________________________________________[ô]
[ô]Mudar Cor da Textbox1 e 2
Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus
TextBox1.BackColor = System.Drawing.Color.Silver
End Sub

Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
TextBox1.BackColor = System.Drawing.Color.White
End Sub

Private Sub TextBox2_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.GotFocus
TextBox2.BackColor = System.Drawing.Color.Silver
End Sub

Private Sub TextBox2_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.LostFocus
TextBox2.BackColor = System.Drawing.Color.White
End Sub

[ô]______________________________________________________________________________________________________[ô]
KURTGU 15/04/2011 07:13:32
#371392
CONSEGUI VLW......
Tópico encerrado , respostas não são mais permitidas
Voltar