VB.NET为每一个控件创建气泡提示

在NET中如果是ToolStrip1工具栏，默认的气泡提示即是该按钮的text属性值。

如果是其他控件呢？不如说TextBox控件，以下代码可实现：

Dim toolTip1 As New ToolTip()

toolTip1.AutoPopDelay = 5000 '显示停留5秒

toolTip1.InitialDelay = 1000 '1秒后显示

toolTip1.ReshowDelay = 500 '从一个控件移到另一个控件0.5秒后显示

toolTip1.ShowAlways = True '在窗口不活动时也显示

ToolTip1.SetToolTip(TextBox1,"提示内容")

进一步，如果控件数量比较多，以下递归方法看可通过设置控件的Tag属性来产生气泡提示而不必一个一个手工绑定。（在窗体上画一个Button1，TextBox1，Panel1，再在Panel1上画一个Button2）

Private Sub Form1_Load(ByVal sender As Object,ByVal e As System.EventArgs) Handles MyBase.Load

''''''''''''''''''''''''''

'此句必须放在 toolTip1 绑定控件前

TextBox1.Tag = "请输入数字" & vbCrLf & "0123456789"

Button1.Tag = "按钮"

Button2.Tag = "海洋"

Panel1.Tag = "pannnnnnnnnnnnn"

''''''''''''''''''''''''''

BindingControlToToolTip(Me)

End Sub

Sub BindingControlToToolTip(ByVal parent As Control)

Dim toolTip1 As New ToolTip()

toolTip1.AutoPopDelay = 5000 '显示停留5秒

toolTip1.InitialDelay = 1000 '1秒后显示

toolTip1.ReshowDelay = 500 '从一个控件移到另一个控件0.5秒后显示

toolTip1.ShowAlways = True '在窗口不活动时也显示

For Each ctrl As Control In parent.Controls

toolTip1.SetToolTip(ctrl,ctrl.Tag)

'递归调用过程，保证子窗体上（如panel）的空间也绑定。

BindingControlToToolTip(ctrl)

Next

End Sub