Soru Userform'da Textbox İçine Kaybolan Açıklama Hakkında

[RBozkurt]

Merhaba
Ekte paylaştığım dosyada 6 adet textbox vardır.
Yukarı 3'lü "Adı Soyadı"
Aşağı 3'lü "Unvan" şeklinde açık gri, tıklayınca kaybolan açıklama nasıl eklenebilir?
Teşekkür ederim.

Aşağıdaki gibi giriş ekranlarında olan mantık.

 

[Muzaffer Ali]

Merhaba.
TextBox PasswordChar özelliğine "*" yazarsanız istediğiniz olur.

 

[RBozkurt]

Sayın @Muzaffer Ali istediğim "*" çıkması değil de açılınca orda "Adı Soyadı" yazması
Kutuya tıklayınca içindeki referans metin kaybolacak.

 

[Muzaffer Ali]

O zaman aşağıdaki kodlar ile yapabilirsiniz
Her TextBox için aşağıdaki gibi yapmalısınız.

Private Sub UserForm_Initialize()
    TextBox1.Text = "Adı Soyadı"
    TextBox1.ForeColor = vbGrayText
End Sub

Private Sub TextBox1_Enter()
    If TextBox1.Text = "Adı Soyadı" Then
        TextBox1.Text = ""
        TextBox1.ForeColor = vbBlack
    End If
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox1.Text = "" Then
        TextBox1.Text = "Adı Soyadı"
        TextBox1.ForeColor = vbGrayText
    End If
End Sub

 

[RBozkurt]

O zaman aşağıdaki kodlar ile yapabilirsiniz
Her TextBox için aşağıdaki gibi yapmalısınız.

Private Sub UserForm_Initialize()
    TextBox1.Text = "Adı Soyadı"
    TextBox1.ForeColor = vbGrayText
End Sub

Private Sub TextBox1_Enter()
    If TextBox1.Text = "Adı Soyadı" Then
        TextBox1.Text = ""
        TextBox1.ForeColor = vbBlack
    End If
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox1.Text = "" Then
        TextBox1.Text = "Adı Soyadı"
        TextBox1.ForeColor = vbGrayText
    End If
End Sub

Teşekkürler sayın @Muzaffer Ali elinize sağlık.
Tüm kutular için ayarladım. İstediğim şekilde gözüküyor.

İlk açılışta kutular boş ama tıklayıp çıkınca gözüküyor. Peki ilk açılınca gözükmesi için ne yapmalıyım?

 

[Muzaffer Ali]

Yukarıdaki koda bunu da eklemiştim.

Private Sub UserForm_Initialize()
    TextBox1.Text = "Adı Soyadı"
    TextBox1.ForeColor = vbGrayText
End Sub