VB.NET: backspace button code?

Collapse
X
 
  • Time
  • Show
Clear All
new posts
  • korndevil666
    New Member
    • Oct 2006
    • 4

    #1

    VB.NET: backspace button code?

    hello.

    i have written a calculator program in VB.net as im still new and working things out i have a tiny problem. i have 10 buttons zero to nine, a decimal button, plus button, equals button, textbox display, reset button and a backspace button.

    ive done everything except the backspace button. (say if i click a wrong number, i want to go back and click a different 1) but i have no idea what the code is and how i do it.

    thanks, help apprechiated :)
  • albertw
    Contributor
    • Oct 2006
    • 267

    #2
    Originally posted by korndevil666
    hello.

    i have written a calculator program in VB.net as im still new and working things out i have a tiny problem. i have 10 buttons zero to nine, a decimal button, plus button, equals button, textbox display, reset button and a backspace button.

    ive done everything except the backspace button. (say if i click a wrong number, i want to go back and click a different 1) but i have no idea what the code is and how i do it.

    thanks, help apprechiated :)
    hi

    backspace is same as Chr(8)

    Comment

    • korndevil666
      New Member
      • Oct 2006
      • 4

      #3
      Originally posted by albertw
      hi

      backspace is same as Chr(8)

      okay thanks. but what is the code for the button?, havent used chr before

      Comment

      • albertw
        Contributor
        • Oct 2006
        • 267

        #4
        Originally posted by korndevil666
        okay thanks. but what is the code for the button?, havent used chr before
        hi
        you can use the _keydown method

        Code:
        Private Sub AnObject_KeyDown(KeyCode As Integer, Shift As Integer)
        If KeyCode = vbKeyBack Then
        .. enter your code here ...
        End If 
        End Sub
        or the _keypress method

        Code:
        Private Sub AnObject_KeyPress(KeyAscii As Integer)
        If KeyAscii = 8 Then
        .. enter your code here ...
        End If
        End Sub

        Comment

        • korndevil666
          New Member
          • Oct 2006
          • 4

          #5
          Originally posted by albertw
          hi
          you can use the _keydown method

          Code:
          Private Sub AnObject_KeyDown(KeyCode As Integer, Shift As Integer)
          If KeyCode = vbKeyBack Then
          .. enter your code here ...
          End If 
          End Sub
          or the _keypress method

          Code:
          Private Sub AnObject_KeyPress(KeyAscii As Integer)
          If KeyAscii = 8 Then
          .. enter your code here ...
          End If
          End Sub
          ohh, yeah it works, thats alot for your help :)

          Comment

          • gbubeshattur
            New Member
            • Aug 2006
            • 2

            #6
            Hi .. all..
            i am working on login page in maa project using vb.net.
            in that after enterring the username if i press the enter i need that control should pass to the submit buton ..can any one give me the code plz
            thanks in advance
            tq

            Comment

            • salgaonkarayush
              New Member
              • Aug 2007
              • 2

              #7
              Private Sub txtUser_KeyPres s(KeyAscii As Integer)
              If KeyAscii < 48 Or KeyAscii > 122 Then
              txtUser.Text = ""
              MsgBox "Enter only alphabets", vbOKOnly
              KeyAscii = 8
              ElseIf KeyAscii = 58 Or KeyAscii = 63 Or KeyAscii = 59 Or KeyAscii = 60 Or KeyAscii = 61 Or KeyAscii = 62 Then
              txtUser.Text = ""
              MsgBox "Enter only alphabets", vbOKOnly
              KeyAscii = 8
              End If
              i want 2 make my backspace key work normally wat code should i modify or any better way 2 proceed

              Comment

              • salgaonkarayush
                New Member
                • Aug 2007
                • 2

                #8
                can u reply the inner code 4 this 2
                Private Sub AnObject_KeyPre ss(KeyAscii As Integer)
                If KeyAscii = 8 Then
                .. enter your code here ...
                End If
                End Sub

                Comment

                • hectorhoney
                  New Member
                  • Jul 2009
                  • 1

                  #9
                  Originally posted by korndevil666
                  ohh, yeah it works, thats alot for your help :)
                  hi i am reading your problem ........
                  you can make one button in the code view and change name=bbackspace then its text property backspace.in property window.....now clicked backspace button
                  AND USE FOLLOWING CODE
                  Private Sub bbackspace_Clic k(ByVal sender As System.Object, ByVal e As System.EventArg s) Handles bbackspace.Clic k
                  Dim d As New Integer

                  If (TextBox1.Text. Length > 0) Then
                  d = TextBox1.Text.L ength
                  TextBox1.Text = TextBox1.Text.R emove(d - 1, 1)




                  End If





                  End Sub

                  Comment

                  Working...