学习目标：VB.NET 利用Controls属性获取窗体控件列表

练习平台： Windows10企业版（64位）

测试工具： MicrosoftVisual Studio（版本默认安装）。

程序语言： VB.NET

通过窗体的Controls属性实现，参考代码：

For i = 0 To Me .Controls.Count - 1 '' 获取包含在控件内的控件的集合元素数。

If TypeOf Me .Controls(i) Is TextBox Then ' 如果是Windows 文本框控件

' 窗体中第i 个控件为文本框，写入 ListBox1.Items中

ListBox1.Items.Add( "TextBox 控件NAME ：" & Me .Controls(i).Name)

End If

Next i

Catch ex As Exception

MsgBox(ex)

End Try

点击下载源码：

近日，想整理下我自己的 vb.net 应用程序 中 ，自己定义的类、 控件 、 窗体 等对象，希望能够获得它们的“属性”、“字段”、“ 方法 ”、“事件”等名称。查阅了“反射”（Reflection）相关资料，写了以下一段代码，分享给朋友们。     当然，由于本人的水平有限，有些功能还没完善，比如“按对象名排序”的问题，比如“获得属性、 方法 的参数”的问题，等等。此文抛砖引玉，希望能够得到大侠们的指点。   Private Sub GetAssemblyObject(ByVal lAssembly As Reflection.Assembly)         Dim TT1, TT2, TT3 As S vb.net 操作TreeView 控件 ，生成树节点的实例代码，其 中 遍历 采用递归 方法 。 ----------------------------------------------- Public Class Form2 Class nn Public name As String Public parent As String Public Private Sub 清理并初始化 控件 () For Each 控件 As Control In Me.Controls '循环当前 窗口 的所有 控件 '清理所有ComboBox 控件 If TypeOf 控件 Is ComboBox Then '如果当前 控件 类型是 ComboBox Dim 组合框 控件 = TryCast( 控件 , ComboBox) '把...   在编写Windows 窗体 应用程序时，我们经常会用到panel容器，一来便于 控件 排版，而来方便编程。有时候我们将创建好的 控件 拖入到容器 中 后，在 遍历 容器内 控件 时，发现容器内 控件 遍历 的 顺序 并不是我们需要的 顺序 ，那怎么办呢？ 一、容器内 控件 的 遍历 顺序 规则   panel容器内的 控件 遍历 顺序 为：按加入容器的先后排列的，先加入的 遍历 顺序 在前，后加入的 遍历 顺序 在后。容器内 控件 的tab 顺序 和 遍历 顺序 无关。 七月的风，八月的雨，卑微的我喜欢遥远的你……1，半夜好哦，大家。长期关注我们EH公众号的朋友都知道，老祝家有个丫头在统计局上班，她曾经眼睛都不眨的对我说过这样一句话：排序是数据分析与处理过程 中 最常见也是最重要的问题之一，搞定排序可以提升工作效率3.485626%……看在老祝爱发红包的份上，我当然对她这话发自肺腑的相信，所以曾发过两篇推文：如何使用 VB A代码对表格 中 的数据排序处理？【Exc... 　　前两日，写了一篇“ 遍历 组合的实现—— VB 2005”。在数学分支里，排列与组合是不分家的。于是，动手写下本文。在上一文 中 ，采用了递归调用，虽然便于理解，但是算法的效率上打个折扣。本文一并重写，改为循环调用。 　　代码赋予其后，用的是 VB 2005 　　两个类， 一个 是clsPermutation，用来计算排列的； 一个 是clsCombination，用来计算组合的。下面，把各个函数说明一下。 vb.net 中 每 一个 form 窗体 中 都包含 一个 controls集合，它包含了自动获取 窗体 的 控件 ，即 窗体 中 有什么 控件 它里面就有什么 控件 ，例如它包含Text,ListText,comboBox,botton等 控件 。 1、首先是大家大部分在机房 中 都会用到的，即判断文本框Text和组合框ComboBox是否为空，原理：首先判断是否是文本框Text和组合框ComboBox，如果是再给予判断与相应的提示。如果说是要判断部分的文本框Text和组合框ComboBox，则可以设置 一个 数组，把部分文本框Text和组合框Co Public Class frmDl Dim x As Single = 0 Dim y As Single = 0 Private Sub frmDl_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load x = Me.Width y = Me.Height setTag...