[Visual Basic] 사칙연산 계산기(숫자 지우기/키보드제어)

    Private Sub Btn_clear_Click(sender As Object, e As EventArgs) Handles Btn_clear.Click    ' 숫자 모두 삭제

        Label1.Text = "0"
        Label2.Text = ""
        'first_click = True

        Btn_equal.Focus()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click    ' 하나만 지우는거 

        If Label2.Text.Contains("=") Then   '계산이 완료되었을때
            Label2.Text = ""
        Else    '계산이 완료되지 않았다면
            If Label1.Text.Length > 0 Then ' 문자하나씩 삭제하기
                Label1.Text = Label1.Text.Remove(Label1.Text.Length - 1, 1)
                If (Label1.Text = "") Then  ' 문자를 모두 삭제되었을때 표시될 값
                    Label1.Text = "0"
                End If
            End If
        End If

        Btn_equal.Focus()
    End Sub
    Private Sub key_down(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
        Select Case e.KeyValue
            Case Keys.D1, Keys.NumPad1
                btn1_click(sender, e)
            Case Keys.D2, Keys.NumPad2
                btn2_click(sender, e)
            Case Keys.D3, Keys.NumPad3
                btn3_click(sender, e)
            Case Keys.D4, Keys.NumPad4
                btn4_click(sender, e)
            Case Keys.D5, Keys.NumPad5
                btn5_click(sender, e)
            Case Keys.D6, Keys.NumPad6
                btn6_click(sender, e)
            Case Keys.D7, Keys.NumPad7
                btn7_click(sender, e)
            Case Keys.D8, Keys.NumPad8
                btn8_click(sender, e)
            Case Keys.D9, Keys.NumPad9
                btn9_click(sender, e)
            Case Keys.D0, Keys.NumPad0
                btn0_click(sender, e)

            Case Keys.Add      '더하기
                btn_plus(sender, e)
            Case Keys.Subtract    '빼기
                btn_mins(sender, e)
            Case Keys.Divide  '나누기  
                btn_div(sender, e)
            Case Keys.Multiply    ' 곱하기
                btn_double(sender, e)

            Case Keys.X    'sin
                Button5_Click(sender, e)
            Case Keys.Y  'cos 
                Button4_Click(sender, e)
            Case Keys.Z    ' tan
                Button3_Click(sender, e)

            Case Keys.Decimal  ' 소수점
                btn_dot(sender, e)
            Case Keys.Delete   '지우기(전체)
                Btn_clear_Click(sender, e)
            Case Keys.End  '지우기(하나) 
                Button2_Click(sender, e)
            Case Keys.Enter, Keys.Return    '결과
                btn_ee(sender, e)
        End Select
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Label1.Text = "0"
        Label2.Text = ""
        oper = "0"
        setFirstNum = False
    End Sub

 

---

참고자료(더있었는데 남아있는게 없음..)

javascript keycode 정리