"VB.NET高级篇实例71：ToolTip控件详解与应用"

";Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load ToolTip1.Active = False End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click If CheckBox1.Checked = True Then ToolTip1.Active = True Else ToolTip1.Active = False End If End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click ToolTip1.AutomaticDelay = Integer.Parse(TextBox1.Text) ToolTip1.AutoPopDelay = Integer.Parse(TextBox2.Text) ToolTip1.InitialDelay = Integer.Parse(TextBox3.Text) End Sub Private Sub Label1_MouseHover(sender As Object, e As EventArgs) Handles Label1.MouseHover ToolTip1.SetToolTip(Label1, "This is a test tooltip message.") End Sub Private Sub Label2_MouseHover(sender As Object, e As EventArgs) Handles Label2.MouseHover ToolTip1.SetToolTip(Label2, "Another test tooltip message.") End Sub Private Sub Label3_MouseHover(sender As Object, e As EventArgs) Handles Label3.MouseHover ToolTip1.SetToolTip(Label3, "And one more test tooltip message.") End Sub End Class End Sub 在本实例中，我们通过使用ToolTip控件来显示提示信息。通过设置CheckBox控件的Checked属性来控制是否显示提示信息。同时，通过设置TextBox控件来设置显示提示信息的时间。当鼠标悬停在Label控件上时，通过SetToolTip方法来设置显示的提示信息内容。从而实现了显示、隐藏提示信息以及设置提示信息的时间功能。 通过本实例的学习，我们掌握了如何使用ToolTip控件来显示提示信息，并且了解了如何通过代码来控制提示信息的显示与隐藏，以及设置显示时间。ToolTip控件在Windows应用程序中经常被使用，能够提高用户体验，让用户更加方便地获取信息。希望通过本实例的学习，能够帮助大家更好地理解和应用ToolTip控件。"