ADICIONAR CARACTER EM CAMPO

DRHOUSE 31/10/2009 14:25:59
#326639
Seria possivel um caracter como / está sempre em penultimo lugar em um campo? algo como 012345/6 ele ficaria sempre em penultimo sendo adicionado altomaticamente enquando se digita caso seja menor que 2caracteres ele não parece no campo somente sendo maior que 2 ele e adiconado como 0/1.

Obrigado desde já.
TECLA 31/10/2009 15:44:02
#326644 Resposta escolhida
Adicione um TEXTBOX ao FORM, copie e cole o código abaixo no EDITOR.

[txt-color=#0B610B][ô]General declarations[/txt-color]
Option Explicit
Dim Controle As Boolean


Private Sub Text1_Change()
Dim t As String
If Controle = False Then
    If Len(Text1) > 1 Then
        Controle = True
        t = Replace(Text1, [Ô]/[Ô], [Ô][Ô])
        Text1 = Left(t, Len(t) - 1) & [Ô]/[Ô] & Right(t, 1)
        Text1.SelStart = Len(Text1)
    End If
End If
End Sub


Private Sub Text1_KeyPress(KeyAscii As Integer)
Controle = False
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar