如何遍历全部控件-递归方法
来源:互联网 发布:linux中telnet 用法 编辑:程序博客网 时间:2024/05/22 01:56
'**********************************************************************
'* 函数名称: SetTextBoxBlank
'* 函数描述: 将一个窗体或容器内所有的文本框Text值清空.
'* 参数列表: objContain:传入要设置其包含文本框的容器(可以是窗体或其它容器),
'* bDepth:是否深度处理,True会把其下面子容器中的所有文本框值清空,False则只清空当前容器,对子容器没有影响。
'* 返 回 值: x=无
'* 作 者: Itc-Lsg
'* 创建日期: 2007-12-22
'**********************************************************************
Public Sub SetTextBoxBlank(ByRef objContain As Object, Optional ByVal bDepth As Boolean = True)
Dim tContain As Control
For Each tContain In objContain.Controls
If tContain.GetType().ToString = "System.Windows.Forms.TextBox" Then
tContain.Text = ""
ElseIf tContain.Controls.Count > 0 Then
If bDepth = True Then
SetTextBoxBlank(tContain)
End If
End If
Next
End Sub
'* 函数名称: SetTextBoxBlank
'* 函数描述: 将一个窗体或容器内所有的文本框Text值清空.
'* 参数列表: objContain:传入要设置其包含文本框的容器(可以是窗体或其它容器),
'* bDepth:是否深度处理,True会把其下面子容器中的所有文本框值清空,False则只清空当前容器,对子容器没有影响。
'* 返 回 值: x=无
'* 作 者: Itc-Lsg
'* 创建日期: 2007-12-22
'**********************************************************************
Public Sub SetTextBoxBlank(ByRef objContain As Object, Optional ByVal bDepth As Boolean = True)
Dim tContain As Control
For Each tContain In objContain.Controls
If tContain.GetType().ToString = "System.Windows.Forms.TextBox" Then
tContain.Text = ""
ElseIf tContain.Controls.Count > 0 Then
If bDepth = True Then
SetTextBoxBlank(tContain)
End If
End If
Next
End Sub
- 如何遍历全部控件-递归方法
- 遍历二叉树的全部方法(递归+非递归)
- 递归遍历页面控件
- 递归遍历控件
- WinForm递归遍历控件
- 递归遍历文件夹中的全部文件
- 递归方法遍历树节点,使用Dev的TreeList控件
- 所有的控件递归遍历
- 如何递归遍历磁盘文件
- C# TreeView递归遍历方法
- 递归遍历方法的实现
- C# TreeView递归遍历方法
- 递归方法实现遍历数组
- 递归的妙用—遍历子控件
- 递归的妙用—遍历子控件
- 递归的妙用—遍历子控件
- 递归遍历winForm 上所有控件
- 递归遍历UI/遍历控件/动态加载UI
- OpenLDAP的schema书写
- 借用管理员的登录方式渗透
- 数据库常用函数备忘
- 试用 Live Writer 编写日志
- 利用odbc来拿本机权限
- 如何遍历全部控件-递归方法
- 三个细节鉴别女人的“质地”
- 电脑使用常用技巧54条
- 一个.NET程序员为什么学习Ruby on Rails?
- UNC地址
- 一段js的代码,用来控制弹出窗口的位置
- 世界顶级防火墙Look n Stop 中文版 使用指南
- win2000/2003 Php+ZendOptimizer+Mysql+eaccelerator配置及基础优化全攻略
- 容器PlaceHolder