主题：按钮禁止后的提示语

窗体有个按钮，希望当满足某个条件后，按钮是禁止状态，但同时鼠标悬停上面，能有个提示语，提示用户为啥按钮不能用了

timertick事件

 

http://www.foxtable.com/webhelp/scr/1301.htm

 

 

Dim cs() As String = {"button1", "button2", "button3"}
Dim p = System.Windows.Forms.Cursor.Current.Position
For Each c As String In cs
    Dim obj = e.form.controls(c).basecontrol
    Dim rc = obj.RectangleToScreen(obj.ClientRectangle)
    output.show(obj.name & rc.tostring & p.tostring)
    If rc.contains(p) Then
        msgbox(obj.name)
        Exit For
    End If
Next