- 日時： 2013/02/16 21:14
- 名前： VBレスキュー(花ちゃん)
- ***********************************************************************************
* カテゴリー：[テキストボックス][][] *
* キーワード：TextBox,文字列を検索,指定の文字,フォーカスが移った時,選択状態 *
***********************************************************************************
'----------------------------------------------------------------------------------
SampleNo：040
投 稿 日：2013/02/16
投 稿 者：VBレスキュー(花ちゃん)
動作確認：Windows Vista / Windows 7 / VB2010 Pro SP1Rel / Framework 4.0 SP1Rel で
[Option Compare Text][Option Explicit On][Option Infer On][Option Strict On]で確認
'========1=========2=========3=========4=========5=========6=========7=========8===
テキストボックスにフォーカスが移った時、指定の文字を選択状態にする。
テキストボックスで、指定の文字を検索し選択する。
テキストボックスには、RichTextBox の Find メソッド のようなものがないので、
String.IndexOf メソッド を使って、指定文字を検索しました。
'----------------------------------------------------------------------------------
Private Sub TextBox5_Enter(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles TextBox5.Enter
'指定の文字を検索して見つかったら選択状態にする
Dim target As String = "かき"
'指定した文字がこのインスタンス内で最初に見つかった位置を取得
Dim findPos As Integer = TextBox5.Text.IndexOf(target)
If findPos > -1 Then '見つかった場合の処理
TextBox5.Select(findPos, target.Length)
Else '見つからなかった場合の処理
TextBox5.SelectionStart = TextBox5.TextLength
End If
End Sub
|
テキストボックスにフォーカスが移った時指定の文字を選択状態にする(VB.NET)