VB6 - テキストボックス間のタブ移動。テキストボックス値の最後に常にカーソルフォーカスを取得する方法

Question

フォームは、それぞれ8桁の長さの一連のテキストボックスがあります。フォームを循環して最初の4桁（0123）を入力するボタンがあります。テキストボックスの間にタブを置くと、どのようにしてカーソルのフォーカスを行の最後、つまり4桁目の後にすることができますか？ありがとう:)

Answer 1

このコードをフォームのソースファイルに置きます。

Private Sub Text1_GotFocus() 
    Text1.SelStart = Len(Text1.Text) 
End Sub 

これは、Text1という名前のテキストボックスがあることを前提としています。フォーカスがあると、カーソルはテキストボックスの最後に配置されます。

Answer 2

Private Sub Text1_GotFocus() 
    Text1.SelStart = 4 
End Sub 

Answer 3

wqwのポイントが正しい場合は、これをタブで押すだけで、マウスでクリックしない場合は、既存の回答をforms_KeyUpイベントと組み合わせます。キーアップが9の場合はタブボタンで、 Selstartメソッドを呼び出すことができます。

Answer 4

一連のテキストボックスがあると述べたので、Form_Loadのすべてのコントロールのテキストボックスの最後にカーソル位置を設定する単一の方法を使用できます。これは、各テキストボックスのイベントハンドラよりもはるかに少ないコードを必要とします。

Dim o As Variant 
For Each o In Form1.Controls 
    If TypeName(o) = "TextBox" Then 
     Dim x As TextBox 
     Set x = o 
     x.SelStart = Len(x.Text) 
    End If 
Next 

しかし、ユーザーは、彼らが出て、戻ってテキストボックスに来るとき、それは変更されたままになりますテキストボックスのいずれかのカーソル位置を変更したとき。シナリオに応じて、これは望ましい動作である場合とそうでない場合があります。たとえば、テキストボックスが最初にフォーカスを取得すると、カーソルは最後にあります。ユーザがカーソルの位置を変更し、同じテキストボックスに戻って来ることを決定した場合、カーソルはそれらを離したところにある。