フォーム＆コントロールプロパティ活用辞典-128 SelStart

Private Sub fraProperty_AfterUpdate()
'[プロパティの設定]オプショングループの更新後処理

  With Me!txtData
    'このプロパティを設定する場合はまずフォーカスを移動
    .SetFocus
    '常に２文字分を選択
    Select Case Me!fraProperty
      Case 1
        '４文字目から４文字分を範囲選択
        .SelStart = 3
        .SelLength = 4
      Case 2
        '８文字目から２文字分を範囲選択
        .SelStart = 7
        .SelLength = 2
      Case 3
        '範囲選択せずにカーソルを最後に移動
        .SelStart = Len(.Text)
        .SelLength = 0
    End Select
  End With

End Sub


#128		SelStart
SelStart プロパティ各コントロールのテキストボックス部分で入力文字が範囲選択されているとき、その先頭の位置を取得または設定します。また、範囲選択されていない場合（SelLengthプロパティが０のとき）には、カーソルのある位置を取得または設定します。このプロパティでは、カーソルがテキストボックス部分の左端にある状態を「０」としてカウントします。よって、カーソルを先頭にもっていきたいときは「０」（SelLengthは０）を、２文字目から"範囲選択"させたい場合には、「１」（SelLengthは１以上）を設定します。テキストボックス、コンボボックス Private Sub fraProperty_AfterUpdate() '[プロパティの設定]オプショングループの更新後処理 With Me!txtData 'このプロパティを設定する場合はまずフォーカスを移動 .SetFocus '常に２文字分を選択 Select Case Me!fraProperty Case 1 '４文字目から４文字分を範囲選択 .SelStart = 3 .SelLength = 4 Case 2 '８文字目から２文字分を範囲選択 .SelStart = 7 .SelLength = 2 Case 3 '範囲選択せずにカーソルを最後に移動 .SelStart = Len(.Text) .SelLength = 0 End Select End With End Sub ４文字目から４文字分を範囲選択８文字目から２文字分を範囲選択カーソルを入力文字列の最後に移動
\| Index \| Prev \| Next \|