大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
可以的,需要判断控件类型并做一下类型转换。
苍梧网站建设公司成都创新互联,苍梧网站设计制作,有大型网站制作公司丰富经验。已为苍梧上千多家提供企业网站建设服务。企业网站搭建\成都外贸网站建设要多少钱,请找那个售后服务好的苍梧做网站的公司定做!
For Each c As Control In Me.Controls
If TypeOf(c) Is TextBox Then
Dim t As TextBox = CType(c ,TextBox)
'调用t的方法即可
End If
Next
这个不是遍历吧!只是简单将数组中的数取出来而已;
msgbox(os(a))
For Each ctl As Control In Me.Controls If TryCast(ctl, TextBox) Nothing Then Dim txt As TextBox = TryCast(ctl, TextBox) txt.Text = "" End If
c# 用程序转的,也不知道对不对。你看看有没有帮助 ,这是遍历所有控件,还有一个办法就是重载form的消息处理函数应该也是可以的。
STAThread _
Public Shared Sub Main(args As String())
Dim button = New Button()
button.Text = "我是按钮"
button.Dock = DockStyle.Fill
Dim form = New Form()
form.Controls.Add(button)
CapturehMouseClickEvent(form)
form.ShowDialog()
End Sub
Private Shared Sub CapturehMouseClickEvent(control As Control)
AddHandler control.Click, AddressOf ControlOnClick
For Each subControl As Control In control.Controls
CapturehMouseClickEvent(subControl)
Next
End Sub
Private Shared Sub ControlOnClick(sender As Object, eventArgs As EventArgs)
Debug.WriteLine("控制被单击")
End Sub
as3遍历对象所有属性的方法(包含Flex)
1、所有对象,包括静态属性和动态属性
ObjectUtil.getClassInfo(this._arr[0]).properties as Array
2、仅能遍历静态属性
var o:Object=new Object();
o.name='mm';
o.type='size';
o.size='32D';
for (var i:String in o)
{
trace(i);
trace(o[i]);
}
3、可以遍历所有属性,需要解析XML,比较麻烦
flash.utils.describeType
var oXml:XML=describeType(o);