- 日時: 2013/02/16 23:21
- 名前: 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===
テキストボックスにフォーカスが移った時背景色と前景色を変更する(視覚化する)
'----------------------------------------------------------------------------------
Private Sub TextBox6_Enter(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles TextBox6.Enter
'背景色と前景色を設定する With TextBox6 .SelectionStart = .TextLength '選択状態にならないように .BackColor = Color.Yellow .ForeColor = Color.Red End With
End Sub
Private Sub TextBox6_Leave(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles TextBox6.Leave
'背景色と前景色を元に戻す TextBox6.BackColor = Color.FromKnownColor(System.Drawing.KnownColor.Window) TextBox6.ForeColor = Color.FromKnownColor(System.Drawing.KnownColor.WindowText)
End Sub
|