<

[vb.net] TextBox 기본 문구/안내 문구(Default Text) 설정 > vb.net

본문 바로가기

vb.net

[Controls] [vb.net] TextBox 기본 문구/안내 문구(Default Text) 설정

익명
2022-09-20 15:18 349 0

본문

    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

댓글목록0

등록된 댓글이 없습니다.
게시판 전체검색