关于vb.net跨窗口遍历的信息

vb.net 历遍项目的窗体

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

成都创新互联公司自2013年创立以来,是专业互联网技术服务公司,拥有项目做网站、成都网站建设网站策划,项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命,1280元西乌珠穆沁做网站,已为上家服务,为西乌珠穆沁各地企业和个人服务,联系电话:18982081108

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

VB.NET 遍历 DataGridView

遍历的例子:

Dim i, j As Integer

For i = 0 To DataGridView1.RowCount - 1

  For j = 0 To DataGridView1.ColumnCount - 1

MsgBox(DataGridView1.Item(j, i).Value)

  Next

Next

注意:与Excel的单元格命名规则不一样,这里的 Item(j, i) 中,列号 j 在前,行号 i 在后。

vb.net中如何遍历程序窗体中的控件?并读写控件的数据。

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

这段代码可行,但不能遍历菜单和工具栏,要按需要修改

vb.net panel里的控件如何遍历

Public Sub ReSetText(Control ctrl)        

Dim ct As Control

For Each ct In ctrl.Controls

Try

For Each ct2 As Control In ct.Controls

ReSetText(ct2)

Next

Catch

End Try

If (TypeOf ct Is TextBox) Then

ct.Text = ""

ElseIf (TypeOf ct Is ComboBox) Then

Dim cb As System.Windows.Forms.ComboBox = DirectCast(ct, System.Windows.Forms.ComboBox)

cb.SelectedIndex = -1

End If

Next

End Sub

因为textbox在窗体里的panel里,你只遍历窗体的控件是不够的。

vb.net 遍历正在运行的虽有窗口和句柄

For Each i As System.Diagnostics.Process In System.Diagnostics.Process.GetProcesses

Next

关于遍历VB.net窗体里面控件的问题

可以的,需要判断控件类型并做一下类型转换。

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


网页标题:关于vb.net跨窗口遍历的信息
分享链接:http://bzwzjz.com/article/hjdehe.html

其他资讯

Copyright © 2007-2020 广东宝晨空调科技有限公司 All Rights Reserved 粤ICP备2022107769号
友情链接: 网站制作 网站设计 高端网站建设 营销型网站建设 营销型网站建设 梓潼网站设计 成都定制网站建设 上市集团网站建设 高端网站设计 高端网站设计 成都模版网站建设 成都网站制作 成都网站建设公司 企业网站制作 成都网站建设 成都响应式网站建设公司 成都网站设计 外贸营销网站建设 移动网站建设 网站建设 重庆企业网站建设 重庆网站制作