UserForm (Adding Comments)

[Roccafelie]

Hello Everyone,

I have a short question...I have some text listed on my UserForm and I want to add "custom comments" explaning each text field when user scroll the mouse on the text field. Is that possible ?

Thank you in advance

 

[al_b_cnu]

Hi, Welcome to the board!

Try entering your comments in the 'ControlTipText' property of the required controls

 

[Roccafelie]

Thank you mate, you made my day!...One more question

I want those comments be printed when I command

UserForm.PrintForm

is that possible ?

Hi, Welcome to the board!

Try entering your comments in the 'ControlTipText' property of the required controls

 

[al_b_cnu]

Hi,

Never used .PrintForm personally, but depending on what you require, you may possibly be able to copy the comment to a label (using the control's MouseMove event or click event), which would then be printable.

For example if your userform has 3 controls, TaxtBox1, CommandButton1 and Label1, the following code will place the ControlTipText into Label1:

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Label1.Caption <> CommandButton1.ControlTipText Then
    Label1.Caption = CommandButton1.ControlTipText
End If
End Sub

Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Label1.Caption <> TextBox1.ControlTipText Then
    Label1.Caption = TextBox1.ControlTipText
End If

End Sub