Clear text in textbox upon clicking the textbox

[hanikas]

I'm trying to create a text box that, when clicked, deletes the contents that I have put in it. For example, I have a text box that says "HH:MM". As it suggest, this textbox would be for users to enter the time. When it is clicked, I want my text to disappear so they can enter what they want. Thank you

 

[Rick Rothstein]

I'm trying to create a text box that, when clicked, deletes the contents that I have put in it. For example, I have a text box that says "HH:MM". As it suggest, this textbox would be for users to enter the time. When it is clicked, I want my text to disappear so they can enter what they want. Thank you

Where is the TextBox located... on a UserForm or on a Worksheet? If on a Worksheet, what kind of TextBox is it... an ActiveX or Forms (from the Insert tab, Text panel, Text Box button) one?

 

[hanikas]

The textbox is on a UserForm

 

[Rick Rothstein]

The textbox is on a UserForm

I am not sure of your complete, intended interface for the UserForm, but for the question you asked, as you asked it, just set the Text property of the Text to the empty string in the MouseDown event...

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, _
                               ByVal X As Single, ByVal Y As Single)
  TextBox1.Text = ""
End Sub

 

[mikerickson]

You could do something like this

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    With Me.TextBox1
        If .Text = "HH:MM" Then
            .Text = vbNullString
            .ForeColor = RGB(0, 0, 0)
        End If
    End With
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    With Me.TextBox1
        If .Text = vbNullString Then
            .Text = "HH:MM"
            .ForeColor = RGB(130, 130, 130)
        End If
    End With
End Sub

Private Sub UserForm_Initialize()
    Rem can be set a design time
    TextBox1.Text = "HH:MM"
    TextBox1.ForeColor = RGB(130, 130, 130)
End Sub