TextBox.SelLength プロパティ (Access)

SelLength プロパティは、テキスト ボックスで選択された文字数を指定または決定します。 値の取得および設定が可能です。整数型 (Integer) の値を使用します。

構文

式。SelLength

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

注釈

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

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

SelLength プロパティに負の値を設定すると、実行時エラーが発生します。

例

次の例では、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 のサポートおよびフィードバックを参照してください。