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

居易锦风 2007-12-14 10:19:11
想在窗体上加ToolTip多行提示
但form本身没有ToolTip属性
怎么去做?
...全文
47 点赞 收藏 8
写回复
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
awperpvip 2007-12-14
WM_MOUSEHOVER
回复
zdingyun 2007-12-14
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

回复
东方之珠 2007-12-14
用气泡提示可以做到多行,但不用控件不行,而且要有句柄(hWnd)的控件。ToolTipText属性中即使用Chr(13) & Chr(10)也不能换行。

用多行气泡提示,请参见: http://post.baidu.com/f?kz=97233719
回复
daisy8675 2007-12-14
问题是你有必要加窗体吗?不觉得那样做很多余

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

反正觉得没必要
回复
居易锦风 2007-12-14
我用过ctl_tips这个,但窗体还是加不上,只能加在还有ToolTip的控件上
回复
daisy8675 2007-12-14
可以使用外部的dll完成

http://www.applevb.com/sourcecode/ctl_tips.zip
回复
居易锦风 2007-12-14
先谢谢itlive了
但我不想在窗体上加任何控件,因为我要在上面绘图
回复
itlive 2007-12-14
可以放一个image控件,然后设置image的tooltip属性。
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7451

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告