''' <summary> ''' 设置ToolTip ''' </summary> ''' <param name="Con">按钮控件</param> ''' <param name="strToolTip"><a href="/tag/tishi/" target="_blank" class="keywords">提示</a>信息</param> ''' <remarks></remarks> 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() '//确定<a href="/tag/yonghu/" target="_blank" class="keywords">用户</a>必须指向关联控件多长时间后，工具<a href="/tag/tishi/" target="_blank" class="keywords">提示</a>字符串才<a href="/tag/xianshi/" target="_blank" class="keywords">显示</a>。 / Tool.InitialDelay = 500 '//设置鼠标从与工具<a href="/tag/tishi/" target="_blank" class="keywords">提示</a>关联的一个控件移到另一个控件上时，后面的控件如果也有<a href="/tag/tishi/" target="_blank" class="keywords">提示</a>，/ '//则后面的控件<a href="/tag/tishi/" target="_blank" class="keywords">提示</a>字符在设置的时间后才<a href="/tag/xianshi/" target="_blank" class="keywords">显示</a>。 / Tool.ReshowDelay = 100 '//确定控件<a href="/tag/tishi/" target="_blank" class="keywords">提示</a>字符串<a href="/tag/xianshi/" target="_blank" class="keywords">显示</a>多长时间。/ Tool.AutoPopDelay = 5000 Tool.SetToolTip(Con,strToolTip) Catch ex As Exception Throw ex End Try End Sub

然后在按钮的 MouseLeave 事件中调用此方法，传入 要设置提示信息的控件及要提示的信息 即可。