Combo Box (ControlTipText)

[adambc]

ControlTipText appears when the User hovers over the Combo Box ...

Is there anyway of displaying this text in grey in the Combo Box?

Similar to the way in which many online forms do.

Thanks ...

 

[Yongle]

Is the combobox in a userform? Consider this option
Insert a label above the combobox (Label1)
Paste controltip text into Label1 and amend Label1 properties to render the text grey
Make Label1 non-visible until user hovers over the combobox
Leave Label1 visible whilst the mouse is over the combobox

Example code

Private Sub UserForm_Initialize()
    ShowLabel False
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    ShowLabel False
End Sub
Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    ShowLabel True
End Sub
Private Sub ShowLabel(X As Boolean)
    Label1.Visible = X
End Sub

 

[adambc]

Thanks, but that doesn’t give me much/any more than simply adding the text to the ControlTipText Combo Box property ...

What I was hoping for is for the text to be visible in the Combo Box When the UserForm loads ...

My text is “Select From List or Enter Manual Value” (or words to that effect (the Combo Box property is set to allow a manual entry) ...

Any more ideas anyone?

Thanks ...

 

[Yongle]

What I was hoping for is for the text to be visible in the Combo Box When the UserForm loads ...

in which case ....

Private Sub UserForm_Initialize()
    ShowLabel True
End Sub

 

[Yongle]

Another idea

Private Sub UserForm_Initialize()
    ComboBox1.Value = ComboBox1.ControlTipText
End Sub

Private Sub ComboBox1_DropButtonClick()
    ComboBox1.Value = ""
End Sub

 

[Yongle]

Or you could use a label and place it above the combo box so that the text appears to be inside the box
(format it as preferred)

The text disappears when anything is selected or entered manually

Private Sub UserForm_Initialize()
    Label1.Caption = ComboBox1.ControlTipText
End Sub
Private Sub ComboBox1_Change()
    Label1.Visible = False
End Sub