- 日時： 2009/12/27 15:26
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[テキストボックス][キー操作][] *
* キーワード：TextBox,フォーカス移動,エンターキー,Enter,タブ移動,SetFocus *
***********************************************************************************
No.5276 Re:ReturnキーでTabキーの動作 投稿者：ＮＡＯ★ [2002/07/16(火)21：41分]
CommandButtonコントロールのDefaultプロパティをTrueにしたものをひとつ貼り付けます。
それでそのコントロールに次のような処理をさせれば可能です。
Private TabOrder As Integer
Private stTab As Integer, edTab As Integer
Private Sub Command1_Click()
Dim wk As Control
TabOrder = TabOrder + 1
If TabOrder > edTab Then
TabOrder = stTab
End If
For Each wk In Form1.Controls
If wk.TabIndex = TabOrder Then
wk.SetFocus
End If
Next
End Sub
Private Sub Form_Load()
stTab = 0 'テキストボックスのTabIndexの最小値
edTab = 3 'テキストボックスのTabIndexの最大値
End Sub
つまり、Enter キーが押されたときはこのボタンがクリックされたのと同じ
イベントが発生するので、ここでつぎのTabIndexをサーチしているというわけです。
|
ReturnキーでTabキーの動作(VB6.0)