Adding Text to a Text Box

[Dazza204]

How can you use a command button in Visual Basic 6 to add a new character to a specified text box without erasing the existing charactors?Also how can you use a command button to erase the last character you typed in a specified text box rather than all of it?

[thiru_rajamani]

Private Sub Command1_Click()
Text1.Text = Text1.Text & "xx"
End Sub

Private Sub Command2_Click()
Text1.Text = Left$(Text1.Text, Len(Text1.Text) - 1)
End Sub

[Dazza204]

Ok that works great thanks a lot. The only problem is when the text box is empty and I try to press the command button to delete some more text I get a run time error that reads:

Run-time error '5':

Invalid procedure call or argument

Is there anyway to make it so that nothing happens when the text box has nothing inside it rather than getting that error each time?

Thanks,
Darren

[agmorgan]

Put some error trapping in.
Either

Private Sub Command2_Click()
    On Error Resume Next
    Text1.Text = Left$(Text1.Text, Len(Text1.Text) - 1)
End Sub

Or

Private Sub Command2_Click()
If Text1.Text = "" Then
    Exit Sub
Else
    Text1.Text = Left$(Text1.Text, Len(Text1.Text) - 1)
End If
End Sub

[thiru_rajamani]

This is a same one of above

Private Sub Command1_Click()
Text1.Text = Text1.Text & "xx"
End Sub

Private Sub Command2_Click()
If Not Text1.Text = "" Then
Text1.Text = Left$(Text1.Text, Len(Text1.Text) - 1)
End If
End Sub