エンターキーで画面遷移するには？ (ID:117930)

名前

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

本文 >画面Bを呼び出すだけの処理です。 弱ったな。(^^; まず画面Ｂを別のフォーム（Form2)と解釈して、 「飛ぶ処理」をロードしてフォーカスを当てると勝手に解釈すると。 Private Sub Form_Load() Form1.KeyPreview = True 'これは通常はプロパティで設定する End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Form2.Visible = True Form2.SetFocus End If End Sub ただしフォーム上でリターンを押すということは、フォームに張り付いて リターンを受け取るコントロール上全てで、リターンを押すとForm2にフォーカスが 移動する事になります、やってみると相当へんですが。 テキストボックスの場合は簡単で、 Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn And Trim(Text1.Text) = "1" Then Form2.Visible = True Form2.SetFocus End If End Sub こういうことかな。