Placeholder text on user form

[ipbr21054]

On my userform how can we use placeholder text,

I dont wish to use a label above a textbox so have some faint text in the textbox of which disappears when the textbox becomes active etc & starts to write

 

[ExcelToDAX]

How about this article?

 

[Domenic]

Assuming that your textbox is called TextBox1, maybe something like this...

Option Explicit

Const PLACEHOLDER_TEXT As String = "Enter text here"
Const PLACEHOLDRR_FONT_COLOR As String = &HC0C0C0 'light grey

Dim originalFontColor As Long

Private Sub TextBox1_Enter()

    With Me.TextBox1
        If .Value = PLACEHOLDER_TEXT Then
            .Value = ""
            .ForeColor = originalFontColor
        End If
    End With
    
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    With Me.TextBox1
        If Len(.Value) = 0 Then
            .ForeColor = PLACEHOLDRR_FONT_COLOR
            .Value = PLACEHOLDER_TEXT
        End If
    End With

End Sub

Private Sub UserForm_Initialize()

    originalFontColor = Me.TextBox1.ForeColor

    With Me.TextBox1
        .ForeColor = PLACEHOLDRR_FONT_COLOR
        .Value = PLACEHOLDER_TEXT
    End With
    
End Sub

Hope this helps!

 

[ipbr21054]

Many thanks

 

[Domenic]

You're very welcome, cheers!