USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Miscelâneas)

Título da Dica:  Evitando nºs e formatando no LostFocus
Postada em 7/3/2007 por Vilmar Brazão         
'----Evitando nºs e formatando no LostFocus----'
'Para testar crie 2 textboxes: txtValor e txtTeste. Após digitar um nº qualquer
'no txtValor, aperte <TAB>
Private Sub txtValor_KeyPress(KeyAscii As Integer)
    If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 Then
        KeyAscii = 0
    End If
End Sub

Private Sub txtValor_LostFocus()
    txtValor.Text = Format$(txtValor.Text, "#,##0.00")
End Sub
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página