Postada em 28/10/2013 02:40 hs
Function CampoDATA(obj As Object, Keyasc As Integer)
If Not ((Keyasc >= Asc("0") And Keyasc <= Asc("9")) Or Keyasc = 8) Then
Keyasc = 0
Exit Function
End If
If Keyasc <> 8 Then
If Len(obj.Text) = 2 Or Len(obj.Text) = 5 Then
obj.Text = obj.Text + "/"
obj.SelStart = Len(obj.Text)
End If
End If
End Function
' no text box onde vai o texto insira o seguinte código
Private Sub Text1_KeyPress(KeyAscii As Integer)
CampoDATA Text1, KeyAscii
End Sub
|
