Tuesday, May 5, 2009

How to code BackSpace button in Calculator?

I have a problem with backspace button in digital calculator.....
Posted by at

25 comments:

  1. sohailMay 5, 2009 at 7:31 AM

    The Backspace button involves Mid function as

    'If we have no characters in textbox then it should not execute the code

    If Len(Text1.Text) = 0 Then Exit Sub
    ' Now remove the last character from the textbox

    Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) - 1)

    ReplyDelete
  2. pauloJuly 6, 2010 at 8:04 AM

    MOTHERFUCKERS , DO YOU KNOW WHAT IS "BACKSPACE" ? I WANT THE CODE OF BACKSPACE TO KEYBOARD VIRTUAL , TO VISUAL BASIC , I TRIE THE SHIT THAT YOU PUT ON THIS SITE , YOU MOTHER IN 4.

    ReplyDelete
  3. AndySeptember 26, 2012 at 3:59 AM

    Thanks, very helpful. Works perfectly. (Remember to replace where it says Text1 to whatever the name of your output textbox is.

    ReplyDelete
  4. rajMay 13, 2013 at 8:40 AM

    awesum...

    ReplyDelete
  5. debbiesapaoAugust 9, 2013 at 4:34 AM

    Thanks! :D It helps

    ReplyDelete
  6. AnonymousSeptember 4, 2013 at 8:49 PM

    what about equal sign of calculator

    ReplyDelete
  7. AnonymousFebruary 12, 2014 at 8:46 AM

    thanx

    ReplyDelete
  8. UnknownApril 24, 2014 at 12:19 AM

    'I have used the following code'
    'which works perfectly in my application '
    'Thank you for giving me the insight of the Mid function'

    If TextBox1.Text.Length > 1 Then
    TextBox1.Text=Mid(TextBox1.Text,1, Len(TextBox1.Text)-1)
    ElseIf TextBox1.Text.Length = 1 Then
    TextBox1.Text = 0
    Else
    Exit Sub
    End If

    ReplyDelete
  9. AnonymousApril 23, 2015 at 7:28 AM

    If display.Text.Length = 1 Then
    display.Text = Mid(display.Text, 1, Len(display.Text) - 1)
    display.Text = 0
    Else
    display.Text = Mid(display.Text, 1, Len(display.Text) - 1)
    End If

    ReplyDelete
  10. AnonymousMay 25, 2016 at 5:04 PM

    Private Sub btnBackSpace_Click_1(sender As Object, e As EventArgs) Handles btnBackSpace.Click

    'The procedure works as a backspace for the
    'cash box

    If txtCash.Text < " " Then

    txtCash.Text = Mid(txtCash.Text, 1, Len(txtCash.Text) - 1 + 1)

    Else

    txtCash.Text = Mid(txtCash.Text, 1, Len(txtCash.Text) - 1)

    End If

    End Sub

    ReplyDelete
    Replies
    1. UnknownSeptember 15, 2016 at 10:18 AM

      -1 +1 is just as useless.....

      Delete
    2. UnknownNovember 23, 2016 at 7:36 AM

      I have used this code working well but problem is here when we two textboxes one for English and other urdu and button from arabic script urdu language character having "Chy" character equil in English "ch" I face problem here

      Delete
    3. UnknownNovember 23, 2016 at 7:37 AM

      I have used this code working well but problem is here when we two textboxes one for English and other urdu and button from arabic script urdu language character having "Chy" character equil in English "ch" I face problem here

      Delete
  11. AnonymousDecember 9, 2016 at 4:14 PM

    If Len(TextBox1.Text) > 1 Then
    TextBox1.Text = Left(TextBox1.Text, Len(TextBox1.Text) - 1)
    ElseIf Len(TextBox1.Text) = 1 Then
    TextBox1.Text = 0
    Else
    Exit Sub
    End If

    ReplyDelete
  12. AnonymousJanuary 17, 2017 at 10:13 PM

    aw

    ReplyDelete
  13. GahplayApril 7, 2017 at 3:46 AM

    Do this it will guarenteed work:
    If Len(TextBox1.Text) <> 0 Then
    TextBox1.Text = Mid(TextBox1.Text, 1, Len(TextBox1.Text) - 1)
    End If

    ReplyDelete
    Replies
    1. UnknownOctober 4, 2018 at 11:20 PM

      tnx it works

      Delete
    2. UnknownFebruary 10, 2020 at 8:10 PM

      doesn't work, it deletes the number but when I click a new number to replace, it just comes back.
      Ex.
      987, 'deletes 7
      Answer.Text = 98
      'Adds 6
      Answer.Text = 9876

      Delete
  14. AnonymousJanuary 7, 2020 at 10:22 AM

    e

    ReplyDelete

Subscribe to: Post Comments (Atom)