|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Validações)
|
|
 |
Título da Dica: Somente valores numéricos num TextBox no formato 9.999,99
|
 |
|
|
|
Postada em 16/2/2004 por Tekki
Crie um novo projeto, adicione dois TextBox com o nome Text1 e Text2, o Text2 servirá só para receber o foco.
Declare uma variável.
Dim sQtdeVirgulas() As String
'No Change do Text1
If Len(Text1.Text) > 2 Then If Mid(Text1.Text, Len(Text1.Text) - 2, 1) = "," Then Text2.SetFocus Else If Left(Text1.Text, 1) = "," Then Text1.Text = "0" & Text1.Text
'No KeyPress do Text1
sQtdeVirgulas = Split(Text1.Text, ",")
If UBound(sQtdeVirgulas) > 0 Then If KeyAscii = 44 Or KeyAscii = 46 Then KeyAscii = 0
If KeyAscii = 46 Then KeyAscii = 44 Else If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 32 And KeyAscii <> 44 And KeyAscii <> 13 And KeyAscii <> 8 And KeyAscii <> 32 Then KeyAscii = 0
'No LostFocus do Text1
Text1.Text = Format(Text1.Text, "Standard")
É uma forma bem simples porem o Split funciona em VB6.
(Tekki)
|
|
|
|
|
