how do I trim 1 character from the left????? (VERY EZ)

**dimava** · Sep 16th, 2000, 05:43 PM

how do I trim 1 character from the left of a text box?

**asabi** · Sep 16th, 2000, 05:46 PM

text1.text=right (text1.text,len(text1.text)-1)

**dimava** · Sep 16th, 2000, 05:54 PM

after that, how do I get it so that it brings the focus to the end again? (with out using send keys)

**asabi** · Sep 16th, 2000, 05:59 PM

Private Sub Command1_Click()
Text1.Text = Right(Text1.Text, Len(Text1.Text) - 1)
Text1.SelStart = Len(Text1.Text)
Text1.SetFocus
End Sub

**sanon** · Sep 16th, 2000, 06:07 PM

Not much different from asabi, but trim method

Code:

Private Sub Command1_Click()
    Text1.Text = Mid$(Text1, 2)
    Text1.SelStart = Len(Text1)
    Text1.SetFocus
End Sub

Thread: how do I trim 1 character from the left????? (VERY EZ)