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

[居易锦风]

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

[itlive]

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

[居易锦风]

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

[daisy8675]

可以使用外部的dll完成

http://www.applevb.com/sourcecode/ctl_tips.zip

[居易锦风]

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

[daisy8675]

问题是你有必要加窗体吗？不觉得那样做很多余

如果一定要那样，那么建立另外一个form，设置无边框，设置条件出现。

反正觉得没必要

[东方之珠]

用气泡提示可以做到多行，但不用控件不行，而且要有句柄（hWnd）的控件。ToolTipText属性中即使用Chr(13) & Chr(10)也不能换行。

用多行气泡提示，请参见： http://post.baidu.com/f?kz=97233719

[zdingyun]

Private Sub Form_Load()
    Picture1.AutoRedraw = True
    Picture1.BackColor = &H8000000F
    Picture1.BorderStyle = 0
    Picture1.CurrentX = 100
    Picture1.CurrentY = 100
    Picture1.Print "abc" '写提示内容
End Sub

Private 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 Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture1.Visible = False
End Sub

[awperpvip]

WM_MOUSEHOVER