- 日時: 2011/04/05 11:24
- 名前: 花ちゃん
- ***********************************************************************************
* カテゴリー:[テキストボックス][キー操作][] * * キーワード:TextBox,フォーカス移動,エンターキー,Enter,タブ移動,SetFocus * ***********************************************************************************
--------------------------------------------------------------------------------- No.5277 RE:ReturnキーでTabキーの動作 投稿者:あき☆彡 [2002/07/17(水)0:24分] ---------------------------------------------------------------------------------
>テキストボックスがたくさんあるFormで、Returnキーを押したら次のコントロールに >フォーカスを移動させたいのですが、何かいい方法はないでしょうか? このコードを追加してみて下さい(^-^)/ たぶん大丈夫?(^_^;) ヾ(・・;)ォィォィ
Private Sub Form_Load() Me.KeyPreview = True End Sub
Private Sub Form_KeyPress(KeyAscii As Integer) Dim sName As String If KeyAscii = vbKeyReturn Then If TypeOf Me.ActiveControl Is TextBox Then sName = Me.ActiveControl.Name Me.Controls(sName).Enabled = False Me.Controls(sName).Enabled = True End If End If End Sub
|