Making a Backspace command button 2

[SurvivorTiger]

hi everyone,
i'm making a calculator and i want to know how i can make a command button that erases the last digit that was typed in a label, any help would be Appreciated...

 

[Lightseeker]

You could scan the text entry for the text and length then chop off the last character.

Like this:

Private Sub Command1_Click()
Dim gTxt as String, gLen as Integer
On Error GoTo Err
If Text1.Text <> &quot;&quot; Then
gLen = Len(Text1.Text)
gTxt = mid(Text1.Text, 1 , gLen - 1)
Text1.Text = gTxt
End If
Exit Sub

Err:
Exit Sub
End Sub

Let us know how it goes
Lightseeker

 

[Foada]

You will have hard time with the label as it does not receive the focus there for you will have no cursor position to backspace from. If you use the label you could get the caption and just trim the right character from the caption and then reset the caption, something like this.

Private Sub cmdLabelTrim_Click()
Label1.Caption = Left$(Label1.Caption, Len(Label1.Caption) - 1)
End Sub

If you use a textbox this code will work for you.

Private Sub cmdBackspace_Click()
Text1.SetFocus
SendKeys (Chr$(8))
End Sub

Hope this helps. If you choose to battle wits with the witless be prepared to lose.