VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > VB.net教程 >
  • vb.net教程之提示信息

提示信息

实例说明

在本实例中,我们将介绍使用如何使用ToolTip控件来显示提示信息。程序运行后,可以设置显示提示信息的时间以及是否显示提示信息。程序运行结果如图71-1所示。

图71-1  运行结果

技术要点

l  ToolTip控件
l  显示/隐藏提示信息
l  显示提示信息的时间

实现过程

■ 新建项目

打开Visual Studio.NET,选择“新建项目”,在项目类型窗口中选择“Visual Basic项目”,在模板窗口中选择“Windows应用程序”,在名称域中输入“ToolTipExam”,然后选择保存路径。单击“确认”。

■ 添加控件

向窗体上添加一个Label控件,用于测试提示信息。添加一个GroupBox控件,在GroupBox控件上放置两个CheckBox控件,然后再添加三个Label控件和三个TextBox控件,用于设置提示时间。最后添加两个Button控件。

■ 设置属性

对窗体上的控件设置属性,在本实例中,我们只需要将所有控件的Text属性改为和界面一致。

■ 添加代码

'是否显示提示信息
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控件几乎在我们的每个程序中都要使用。相信大家一定会掌握好这个控件的。


相关教程