面一致。
■ 添加代码
'是否显示提示信息
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles CheckBox1.CheckedChanged
ToolTip1.Active = CheckBox1.Checked
End Sub
'是否显示提示信息，当窗体没有获得焦点时
Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles CheckBox2.CheckedChanged
ToolTip1.ShowAlways = CheckBox1.Checked
End Sub
'提示信息延迟时间
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles TextBox1.TextChanged
ToolTip1.AutomaticDelay = Val(TextBox1.Text) * 1000
End Sub
'提示信息弹出时间
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles TextBox2.TextChanged
ToolTip1.AutoPopDelay = Val(TextBox2.Text) * 1000
End Sub
'提示信息刷新时间
Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles TextBox3.TextChanged
ToolTip1.ReshowDelay = Val(TextBox3.Text) * 1000
End Sub
■ 运行程序
单击菜单“调试|启动”或单击 图标运行程序。
小结
我们在本实例中主要讲解了 ToolTip 控件的使用方法。ToolTip 控件几乎在我们的每个
程序中都要使用。相信大家一定会掌握好这个控件的。
