TextBox.SelStart プロパティ (Access)

SelStart プロパティは、選択したテキストの開始点、またはテキストが選択されていない場合は挿入ポイントの位置を指定または決定します。 値の取得および設定が可能です。整数型 (Integer) の値を使用します。

構文

式。SelStart

式TextBox オブジェクトを表す変数。

注釈

SelStart プロパティは、整数型 ( Integer ) の値を使用します。値の範囲は、0 からコンボ ボックスのテキスト ボックス部分の総文字数までです。

コントロールに対してこのプロパティを使うには、そのコントロールにフォーカスを移動しておく必要があります。 フォーカスをコントロールに移動するには、 SetFocus メソッドを使用します。

SelStart プロパティの値を変更すると、テキストの選択が解除され、通常のカーソルが表示され、SelLength プロパティが 0 に設定されます。

例

次の例では、2 つのイベント プロシージャを使用して、ユーザーによって指定されたテキストを検索します。 検索するテキストは、フォームの Load イベント プロシージャで設定されます。 [検索] ボタン (ユーザーがクリックして検索を開始する) の Click イベント プロシージャは、検索するテキストをユーザーに求め、検索が成功した場合はテキスト ボックス内のテキストを選択します。

Private Sub Form_Load() 
 
 Dim ctlTextToSearch As Control 
 Set ctlTextToSearch = Forms!Form1!Textbox1 
 
 ' SetFocus to text box. 
 ctlTextToSearch.SetFocus 
 ctlTextToSearch.Text = "This company places large orders twice " & _ 
 "a year for garlic, oregano, chilies and cumin." 
 Set ctlTextToSearch = Nothing 
 
End Sub 
 
Public Sub Find_Click() 
 
 Dim strSearch As String 
 Dim intWhere As Integer 
 Dim ctlTextToSearch As Control 
 
 ' Get search string from user. 
 With Me!Textbox1 
 strSearch = InputBox("Enter text to find:") 
 
 ' Find string in text. 
 intWhere = InStr(.Value, strSearch) 
 If intWhere Then 
 ' If found. 
 .SetFocus 
 .SelStart = intWhere - 1 
 .SelLength = Len(strSearch) 
 Else 
 ' Notify user. 
 MsgBox "String not found." 
 End If 
 End With 
 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。