Controls [vb.net] TextBox 기본 문구/안내 문구(Default Text) 설정
페이지 정보
본문
Private Sub BhsTextBox_x_LostFocus(sender As Object, e As EventArgs) Handles BhsTextBox1.LostFocus, BhsTextBox2.LostFocus
Dim btb As CustomControls.bhsTextBox = DirectCast(sender, CustomControls.bhsTextBox)
If btb.Texts.Length = 0 Then btb.Texts = btb.Tag
If btb.Texts = btb.Tag Then
btb.ForeColor = Color.LightGray
Else
btb.ForeColor = Color.DimGray
End If
End Sub
Private Sub BhsTextBox_x_GotFocus(sender As Object, e As EventArgs) Handles BhsTextBox1.GotFocus, BhsTextBox2.GotFocus
Dim btb As CustomControls.bhsTextBox = DirectCast(sender, CustomControls.bhsTextBox)
If btb.Texts = btb.Tag Then
btb.Texts = ""
btb.ForeColor = Color.LightGray
Else
btb.ForeColor = Color.DimGray
End If
End Sub
Private Sub BhsTextBox_x_TextChanged(sender As Object, e As EventArgs) Handles BhsTextBox1.TextChanged, BhsTextBox2.TextChanged
Dim btb As CustomControls.bhsTextBox = DirectCast(sender, CustomControls.bhsTextBox)
If btb.Texts = btb.Tag Then btb.Texts = ""
If btb.Texts = btb.Tag Then
btb.ForeColor = Color.LightGray
Else
btb.ForeColor = Color.DimGray
End If
End Sub
.BhsTextBox1.Tag = "휴대폰 번호를 입력하세요."
.BhsTextBox1.Texts = .BhsTextBox1.Tag
.BhsTextBox2.Tag = "이름을 입력하세요."
.BhsTextBox2.Texts = .BhsTextBox2.Tag
- 이전글[vb.net] 동적 DLL 폼 (Control) 불러오기 및 클래스 (Class) 함수 불러오기 예제 22.10.13
- 다음글[vb.net] DataGridView의 CellValidating 이벤트를 활용한 셀 변경 값, 변경 이전 값을 비교하여 이벤트 처리 및 셀값 변경 취소 21.08.17
댓글목록
등록된 댓글이 없습니다.