关于怎么在窗体上加ToolTip提示

Question

想在窗体上加ToolTip多行提示
但form本身没有ToolTip属性
怎么去做?

Answer 1

可以放一个image控件，然后设置image的tooltip属性。

Answer 2

先谢谢itlive了
但我不想在窗体上加任何控件,因为我要在上面绘图

Answer 3

可以使用外部的dll完成http://www.applevb.com/sourcecode/ctl_tips.zip

Answer 4

我用过ctl_tips这个,但窗体还是加不上,只能加在还有ToolTip的控件上

Answer 5

问题是你有必要加窗体吗？不觉得那样做很多余如果一定要那样，那么建立另外一个form，设置无边框，设置条件出现。反正觉得没必要

Answer 6

用气泡提示可以做到多行，但不用控件不行，而且要有句柄（hWnd）的控件。ToolTipText属性中即使用Chr(13) & Chr(10)也不能换行。用多行气泡提示，请参见：    http://post.baidu.com/f?kz=97233719

Answer 7

Private Sub Form_Load()
    Picture1.AutoRedraw = True
    Picture1.BackColor = &H8000000F
    Picture1.BorderStyle = 0
    Picture1.CurrentX = 100
    Picture1.CurrentY = 100
    Picture1.Print "abc" '写提示内容
End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture1.Visible = True
    Picture1.Left = X
    Picture1.Top = Y
End SubPrivate Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture1.Visible = False
End Sub