'''
''' 设置ToolTip
'''
''' 按钮控件
''' 提示信息
'''
Public Sub SetToolTip(ByRef Con As Control,ByVal strToolTip As String)
Dim Tool As System.Windows.Forms.ToolTip
Try
'//SetToolTip
Tool = New System.Windows.Forms.ToolTip()
'//确定用户必须指向关联控件多长时间后,工具提示字符串才显示。 /
Tool.InitialDelay = 500
'//设置鼠标从与工具提示关联的一个控件移到另一个控件上时,后面的控件如果也有提示,/
'//则后面的控件提示字符在设置的时间后才显示。 /
Tool.ReshowDelay = 100
'//确定控件提示字符串显示多长时间。/
Tool.AutoPopDelay = 5000
Tool.SetToolTip(Con,strToolTip)
Catch ex As Exception
Throw ex
End Try
End Sub
然后在按钮的 MouseLeave 事件中调用此方法,传入 要设置提示信息的控件及要提示的信息 即可。
总结
如果觉得编程之家网站内容还不错,欢迎将编程之家网站推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
小编个人微信号 jb51ccc
喜欢与人分享编程技术与工作经验,欢迎加入编程之家官方交流群!