Futura
|
PORTO FERREIRA
SP - BRASIL
|
|
Postada em 04/11/2004 12:40 hs
alguns produtos são apenas numeros, outros são numeos com traços, ex: 395,396,397 ou 395-1,395-2, 396-1, etc, faço uma checagem, para ver se tem traço no campo, para aplicar uma mascar ou outra, mas não estou sabendo aplicar a mascara com traço: Dim wvar As String
wvar = "0"
For I = 1 To txtprod.MaxLength
If I = "-" Then
wvar = "1"
End If
Next
If wvar = "0" Then
txtprod = Format(txtprod, "00000")
Else
txtprod = Format(txtprod, "#####-#")
End If
Alguem sabe como aplicar esta mascara, digo formatação ? |
|
|
|
|
|
Keyo
|
CURITIBA
PR - BRASIL
|
|
Postada em 04/11/2004 14:12 hs
txtprod = Format(txtprod, "@@@@@-@") |
|
|
|
Futura
|
PORTO FERREIRA
SP - BRASIL
|
|
Postada em 04/11/2004 16:18 hs
keyo, de todos os testes que fiz, o seu exemplo chegou mais perto, mas ele joga um traço a mais, ex: digito 850-1, teria que ficar 00850-1, esta ficando 00850--1, alguma dica ? |
|
|
|
Keyo
|
CURITIBA
PR - BRASIL
|
|
Postada em 05/11/2004 16:02 hs
txtprod.text = replace(txtprod.text,"--","-",,vbtextcompare |
|
|
|
squall
|
SÃO BERNARDO DO CAMAPO
SP - BRASIL
|
|
Postada em 05/11/2004 16:04 hs
usa o maskedit, é o melhor para trabalhar com máscaras !!! []´s |
|
|
|
|
