자료실

부자는 돈을 써서 시간을 아끼지만 가난한 사람은 시간을 써서 돈을 아낀다

vb.net

IT HUB를 찾아주셔서 감사합니다.

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

페이지 정보

profile_image
작성자 하나를하더라도최선을
댓글 0건 조회 4,764회 작성일 22-09-20 15:18

본문

    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

댓글목록

등록된 댓글이 없습니다.