Enterキーにてコマンドボックスにフォーカスを移動するには？ (ID:126943)

名前

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

本文 最近、VBを始めた超初心者ですがよろしくお願い致します。 現在、手始めに電卓を一から作っているのですがテンキーから数字及び +-*/を各入力して最後にエンターキーで答えを出すようにしているのですが どうしてもエンターキーを押すときのみ=ボタンの上にフォーカスが移動されないのです。 ですのでその状態でエンターを押しても現在、フォーカスがあるボタンの数字が入ってしまいます。さっぱりわからず頭を抱えております。 一応、下記にテンキー入力の所とイコールボタン(Command1)のソースを書いておきますのでご指導の程、よろしくお願いします。 ---------------------------------------------------------------------- Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 'キーボード入力対応 If KeyCode = 13 Then Command1.SetFocus Command1_Click ElseIf KeyCode = 96 Then Command11.SetFocus Command11_Click ElseIf KeyCode = 97 Then Command2.SetFocus Command2_Click ElseIf KeyCode = 98 Then Command3.SetFocus Command3_Click ElseIf KeyCode = 99 Then Command4.SetFocus Command4_Click ElseIf KeyCode = 100 Then Command5.SetFocus Command5_Click ElseIf KeyCode = 101 Then Command6.SetFocus Command6_Click ElseIf KeyCode = 102 Then Command7.SetFocus Command7_Click ElseIf KeyCode = 103 Then Command8.SetFocus Command8_Click ElseIf KeyCode = 104 Then Command9.SetFocus Command9_Click ElseIf KeyCode = 105 Then Command10.SetFocus Command10_Click ElseIf KeyCode = 107 Then Command12.SetFocus Command12_Click ElseIf KeyCode = 109 Then Command13.SetFocus Command13_Click ElseIf KeyCode = 106 Then Command14.SetFocus Command14_Click ElseIf KeyCode = 111 Then Command15.SetFocus Command15_Click ElseIf KeyCode = 27 Then Command16.SetFocus Command16_Click End If End Sub ---------------------------------------------------------------------- Private Sub Command1_Click() If Label1.Caption = "0." Then MsgBox "最初の数字を入れてください", vbOKOnly, "警告" Label1.Caption = "0." Else Label3.Caption = Y Select Case 演算 Case 1 B = Val(X) + Val(Y) Case 2 B = Val(X) - Val(Y) Case 3 B = Val(X) * Val(Y) Case 4 B = Val(X) / Val(Y) End Select X = Str(B) Y = "" B = "" ' 前後 = 1 ' A = 1 End If Label1.Caption = X End Sub ----------------------------------------------------------------------