VB.NET, C#, PowerShell Tipsサイト

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    '検索する文字列をセット
    Dim SearchStr As String = "ABC"
    '見つかった位置を保存するための変数
    Dim FindPos As Integer

    '文字列を検索する
    FindPos = RichTextBox1.Find(SearchStr)

    '指定文字列が見つかったか？
    If FindPos > -1 Then
        '見つかった位置から、文字数分を選択
        RichTextBox1.Select(FindPos, SearchStr.Length)
        'フォーカスを当てる（フォーカスがはずれると選択が無効になってしまうため）
        RichTextBox1.Focus()
    End If
End Sub