フォーム1でエンターキーを押したらフォーム2に移動するといったものを作りたいのですが、どうすればいいのでしょうか?
つまりForm1のKeyPressイベントで、KeyAsciiがAsc(vbCr)の時にForm2が表示されればいいんだな?
……さ、後は"(,,゜Д゜) ガンガレ!"
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyenter
jettosetto2.Visible = True
End Select
End Sub
といったコードを書いてみたんですが、うまくいきません。
どう変えればいいのでしょうか?
連レスすいません。そのままコピペしてしまったので・・・
jettosetto2 のところは Form2 です。
vbKeyenterってなんだ!?…きっとvbKeyReturnではないかと(orz
ああ本当だ馬鹿なことしてました。
できました。ありがとうございました。
ツイート | ![]() |