VB.NET为每一个控件创建气泡提示
来源:互联网 发布:社交网络的好处英文 编辑:程序博客网 时间:2024/05/17 03:12
在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
- VB.NET为每一个控件创建气泡提示
- asp.net验证控件气泡提示效果源代码
- asp.net验证控件气泡提示效果源代码
- 为Edit加气泡提示
- [VB.NET]如何自动为控件取名?
- [VB.NET]控件:动态增加,动态创建?
- AE创建气泡式的提示框
- vb.net & 文本框为空提示,一键清空文本框所有内容
- vb.net & 文本框为空提示,一键清空文本框所有内容
- 用VB实现托盘图标+气泡提示的效果
- 在VC++6.0与VB中使用气泡提示
- 这么详细的分类 VB/VB.NET源代码网站你见过没有? VB/VB.NET中的每一个方法,每一个操作,每一个函数,每一个类.每一个属性,每一个事件都有相应的范例代码
- [VB.NET]提示信息
- 气泡提示
- vb.net 为PrintPreviewDialog控件添加新按钮
- 在VB.Net中创建使用控件数组
- [VB.NET]使用CuteEditor错误 前台创建控件出错 急!!
- 在VB.Net中创建使用控件数组
- 自定义控件(一)
- Java 枚举
- flex CurrencyValidator flex 教程 flex培训 flex源码 flex实例
- 软件计划
- 最短路径
- VB.NET为每一个控件创建气泡提示
- 软件工程管理
- 软件测试
- Java JDK 1.6 API 中文文档下载
- 面向对象技术
- ThinkingRock
- 用户界面设计
- Windows消息机制概述
- 软件质量管理