VB6.0にて計算機を作るには (ID:126449)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

Option Explicit

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
    Case vbKeyF1
        Call cmd_Click(0)
    Case vbKeyF2
        Call cmd_Click(1)
    Case vbKeyF12
        Call cmd_Click(2)
    End Select
End Sub

Private Sub Form_Load()
    'オブジェクトのキーイベントよりフォームのキーイベントを先に実行させます。
    Form1.KeyPreview = True
    Cbo1.AddItem "足し算"
    Cbo1.AddItem "引き算"
    Cbo1.AddItem "掛け算"
End Sub
Private Sub cmd_Click(Index As Integer)
    Select Case Index
        Case 0
            Txt1.Text = ""
            Txt2.Text = ""
            Txt3.Text = ""
            'コンボボックスの中身をクリアするときは通常このように書きます！！
            Cbo1.ListIndex = -1
            Txt1.SetFocus
        Case 1
            Select Case Cbo1.ListIndex
                Case 0
                    Txt3.Text = CStr(CInt(Txt1.Text) + CInt(Txt2.Text))
                Case 1
                    Txt3.Text = CStr(CInt(Txt1.Text) - CInt(Txt2.Text))
                Case 2
                    Txt3.Text = CStr(CInt(Txt1.Text) * CInt(Txt2.Text))
            End Select
        Case 2
            'Endは強制終了なので、極力使わないようにしましょう。
            'フォームのアンロードというような処理にします。
            Unload Form1
    End Select
End Sub

←解決時は質問者本人がここをチェックしてください。

戻る