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

名前

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

本文 現在はこんな感じなのですが、ファンクションキーの割り当てがうまくいきません。 F1キーしか割り当てられていないようです。 Option Explicit Private Sub Form_Load() 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 = "" 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 End Select End Sub Private Sub Cmd_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyF1 Cmd(0) = vbKeyF1 Case vbKeyF2 Cmd(1) = vbKeyF2 Case vbKeyF12 Cmd(2) = vbKeyF12 End Select End Sub