''' <summary> ''' 设置ToolTip ''' </summary> ''' <p<a href="https://www.jb51.cc/tag/ara/" target="_blank" class="keywords">ara</a>m name="Con">按钮控件</p<a href="https://www.jb51.cc/tag/ara/" target="_blank" class="keywords">ara</a>m> ''' <p<a href="https://www.jb51.cc/tag/ara/" target="_blank" class="keywords">ara</a>m name="strToolTip"><a href="https://www.jb51.cc/tag/tishi/" target="_blank" class="keywords">提示</a>信息</p<a href="https://www.jb51.cc/tag/ara/" target="_blank" class="keywords">ara</a>m> ''' <remarks></remarks> Public Sub SetToolTip(ByRef Con As Control,ByVal strToolTip As String) Dim Tool As Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.Windows.Forms.ToolTip Try '//SetToolTip Tool = New Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.Windows.Forms.ToolTip() '//确定<a href="https://www.jb51.cc/tag/yonghu/" target="_blank" class="keywords">用户</a>必须指向关联控件多长时间后，工具<a href="https://www.jb51.cc/tag/tishi/" target="_blank" class="keywords">提示</a>字符串才<a href="https://www.jb51.cc/tag/xianshi/" target="_blank" class="keywords">显示</a>。 / Tool.InitialDelay = 500 '//设置鼠标从与工具<a href="https://www.jb51.cc/tag/tishi/" target="_blank" class="keywords">提示</a>关联的<a href="https://www.jb51.cc/tag/yige/" target="_blank" class="keywords">一个</a>控件移到另<a href="https://www.jb51.cc/tag/yige/" target="_blank" class="keywords">一个</a>控件上时，后面的控件如果也有<a href="https://www.jb51.cc/tag/tishi/" target="_blank" class="keywords">提示</a>，/ '//则后面的控件<a href="https://www.jb51.cc/tag/tishi/" target="_blank" class="keywords">提示</a>字符在设置的时间后才<a href="https://www.jb51.cc/tag/xianshi/" target="_blank" class="keywords">显示</a>。 / Tool.ReshowDelay = 100 '//确定控件<a href="https://www.jb51.cc/tag/tishi/" target="_blank" class="keywords">提示</a>字符串<a href="https://www.jb51.cc/tag/xianshi/" target="_blank" class="keywords">显示</a>多长时间。/ Tool.A<a href="https://www.jb51.cc/tag/utop/" target="_blank" class="keywords">utop</a>opDelay = 5000 Tool.SetToolTip(Con,strToolTip) Catch ex As Exception Throw ex End Try End Sub
然后在按钮的 MouseLeave 事件中调用此方法，传入 要设置提示信息的控件及要提示的信息 即可。
