PROBLEMA AO FORMATAR DATA NO KEYPRESS

USUARIO.EXCLUIDOS 23/11/2006 16:56:35
#185962
PESSOAL TO COM UM PROBLEMINHA AO FORMATAR DAT NO KEY PRESS CONSIGO FORMATAR A DATA DA MENIRA Q EU QUERO POREM QUANDO TENTO USAR O BACKSPACE NAUM CONSIGO APAGAR TUDO SOMENTE A PARTE DO ANO

VOCES PODEM ME AJUDAR O MEU PROBLEMA ESTA NA PARTE "If Keys.KeyCode = 8 Then End If"
ALGUEM PODE ME SOCORRER O CODIGO COMPLETO ESTA NO CODIGO ABAIXO


[txt-color=#3333ff]Private Sub txtdtnasc_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtdtnasc.KeyPress
If Keys.KeyCode = 8 Then
End If
If txtdtnasc.TextLength = 2 Then
txtdtnasc.Text = txtdtnasc.Text & "/"
txtdtnasc.SelectionStart = 3
ElseIf txtdtnasc.TextLength = 5 Then
txtdtnasc.Text = txtdtnasc.Text & "/"
txtdtnasc.SelectionStart = 8
End If
End Sub[/txt-color]
USUARIO.EXCLUIDOS 25/11/2006 15:08:52
#186244
JASILVA, eu faço o seguinte com o textbox:

Private Sub Text1_Keypress(KeyAscii As Integer)
If KeyAscii > 47 And KeyAscii < 58 Or KeyAscii = 8 Then
        If Text1.SelStart = 2 And KeyAscii <> 8 Then Text1.SelText = "/"
        If Text1.SelStart = 5 And KeyAscii <> 8 Then Text1.SelText = "/"
    Else
        KeyAscii = 0
    End If
End Sub


Vai digitar apenas números no campo text1, e coloca o limite de caracteres disponíveis para (10) no MAXLENGTH = 10. Sim, Não esqueça de no Form alterar a opção KEYPREVIEW=FALSE, para TRUE. ok!

um abraço!
MeNuDo
Gentileza encerrar o tópico!
Tópico encerrado , respostas não são mais permitidas
Voltar