コントロールをEnterキーで移動するには？ (ID:79963)

名前

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

本文 こんにちは テキストボックスを幾つかコピーしておいて Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = Asc(vbCr) Then 'Asc(vbCr) = 13 If Index + 1 > Text1.UBound Then Text1(0).SetFocus Else Text1(Index + 1).SetFocus End If End If End Sub これで順番にぐるぐると。 ただしあたりまえのことですが "Text1.MultiLine=True"の 時は使えません、念のために。