カーソルを指定位置に設定
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　玄関へお回り下さい。
テキストボックスにフォーカスが移った時カーソルを指定位置に移動　　（０４８）
　　 SelLength プロパティは、選択されたテキストの文字数を設定します。
　　　　　 値の取得も可能です。

SelStart  プロパティは、選択されたテキストの開始点を設定します。
          値の取得も可能です。テキストが選択されていないときは、
          挿入ポインターの位置を示します。

SelText   プロパティは、現在選択されているテキストを含む文字列を
          設定します。値の取得も可能です。文字が選択されていない
          ときは、長さ 0 の文字列 ("") を返します。

テキストボックスを４個とラベル１個を貼り付けテキストボックスに適当な文字を入力して下記
コードを試して見て下さい。

テキストボックス内に入力されている文字の左端から７文字を選択表示する

Private Sub Text1_GotFocus()
　　Text1.SelStart = 0
　　Text1.SelLength = 7
　　Label5.Caption = Text1.SelText
End Sub


テキストボックス内に入力されている文字の最後にカーソルを移動

Private Sub Text2_GotFocus()
　　Text2.SelStart = Len(Text2.Text)
　　Label5.Caption = Text2.SelText
End Sub


テキストボックス内に入力されている文字の全部選択表示する

Private Sub Text3_GotFocus()
　　Text3.SelStart = 0
　　Text3.SelLength = Len(Text3.Text)
　　Label5.Caption = Text3.SelText
End Sub


テキストボックス内に入力されている指定文字の位置に移動

Private Sub Text4_GotFocus()
　　Text4.SelStart = InStr(Text4.Text, "花")
　　Label5.Caption = Text4.SelText
End Sub

指定文字の左側に移動する場合マイナス１をその場合エラーチェックも忘れずに。




2002/05/12