ULTIMO NUMERO
Olá amigos, e possÃvel deixar sempre o ultimo numero digitado depois de um + em um campo text? Vou mostrar o exemplo:
digitado no campo: [ 0123+2 ] o ultimo ficou depois do +
No caso quero deixar o ultimo numero digitado sempre depois do + [Ô]0+1[Ô] caso tenha só 1 numero não precisa de aparecer o +, o campo aceita no máximo de 10 dÃgitos no campo numérico mais não estou entendo como sempre deixar ele depois do + caso tenha mais de 2 números.
Obrigado aguardo retorno.
digitado no campo: [ 0123+2 ] o ultimo ficou depois do +
No caso quero deixar o ultimo numero digitado sempre depois do + [Ô]0+1[Ô] caso tenha só 1 numero não precisa de aparecer o +, o campo aceita no máximo de 10 dÃgitos no campo numérico mais não estou entendo como sempre deixar ele depois do + caso tenha mais de 2 números.
Obrigado aguardo retorno.
veja se ajuda..
Citação:
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Dim p1, p2, p3 As String
Text1.SelStart = 0
If Len(Text1) > 1 Then
Text1 = Replace(Text1, [Ô]+[Ô], [Ô][Ô])
p1 = Mid$(Text1, 1, Len(Text1) - 1)
p2 = Right$(Text1, 1)
p3 = p1 & [Ô]+[Ô] & p2
Text1 = p3
End If
Tente assim:
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Dim t As String
t = Text1
If Len(t) > 1 Then
t = Replace(t, [Ô]+[Ô], [Ô][Ô])
Text1 = Left(t, Len(t) - 1) & [Ô]+[Ô] & Right(t, 1)
End If
Text1.SelStart = Len(Text1)
End Sub
boa TECLA,
a palavra é ECONOMIA memo...rsrs
a palavra é ECONOMIA memo...rsrs
Tópico encerrado , respostas não são mais permitidas