CONTADOR DE CARACTERES
a cada caracter digitado e a cada espaço a minha label (lbcrt.caption) vai diminuindo um numero da label e quando esse numero se exceder o text que ele esta sendo digitado solta uma msgbox avisando que os caracteres ja foram sobrepostos.
eu posso por isso num timer? e se eu por como que ficaria?
eu posso por isso num timer? e se eu por como que ficaria?
Não é bem o que vc quer, mas tente alterar:
TEXTBOX:
Private Sub TxtObservacao_Change()
lblQtdeObs.Caption = Len(TxtObservacao.Text)
End Sub
Private Sub lblQtdeObs_Change()
If IsNumeric(lblQtdeObs.Text) Then
If Val(lblQtdeObs.Text) = 200 Then
MsGBox [Ô]Quantidade de caracteres chegou no limite!![Ô], vbCritical, [Ô]Aviso[Ô]
End If
End iF
End Sub
TEXTBOX:
Private Sub TxtObservacao_Change()
lblQtdeObs.Caption = Len(TxtObservacao.Text)
End Sub
Private Sub lblQtdeObs_Change()
If IsNumeric(lblQtdeObs.Text) Then
If Val(lblQtdeObs.Text) = 200 Then
MsGBox [Ô]Quantidade de caracteres chegou no limite!![Ô], vbCritical, [Ô]Aviso[Ô]
End If
End iF
End Sub
MSMJUDAS Obrigado me ajudou muito!!!
Tópico encerrado , respostas não são mais permitidas