从品牌网站建设到网络营销策划,从策略到执行的一站式服务
可以的,需要判断控件类滑迅型并做一肆让顷裂陆下类型转换。
创新互联长期为千余家客户提供的网站建设服务,团队从业经验10年,关注不同地域、不同群体,并针对不同对象提供差异化的产品和服务;打造开放共赢平台,与合作伙伴共同营造健康的互联网生态环境。为无极企业提供专业的成都做网站、网站制作,无极网站改版等技术服务。拥有十多年丰富建站经验和众多成功案例,为您定制开发。
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
For Each i As System.Diagnostics.Process In System.Diagnostics.Process.GetProcesses
Next
Private Sub 槐枣Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myAssembly As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()
Dim TheTypes As Type() = myAssembly.GetTypes()
Dim myType As Type
宽羡 For Each myType In TheTypes
If myType.BaseType.ToString = "System.Windows.Forms.Form" Then
慎明拍 ListBox1.Items.Add(myType.Name)
End If
Next
End Sub
Public Sub GetAllControls(ByVal InContainer As Control, ByRef RecieveList As ListBox)
For i As Integer = 0 To InContainer.Controls.Count - 1
If InContainer.Controls.Item(i).Text "" Then
GetList.Items.Add(InContainer.Controls.Item(i).Text vbCrLf)
End If
侍绝 If InContainer.Controls.Item(i).Controls.Count 0 Then
GetAllControls(InContainer.Controls.Item(i), 茄谈碧GetList)
End If
Next
End Sub
这段代码可行,但不能遍历菜单和工颤举具栏,要按需要修改
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图