vb点虐 读取控件索引 vbnet showdialog

vb点虐 ListView1中只有一列,怎么获得所有子项的索引,或者怎么计算一共有多少行?不是选中项,是所有.

For Each itm As ListViewItem In Me.ListView1.Items

我们拥有十年网页设计和网站建设经验，从网站策划到网站制作，我们的网页设计师为您提供的解决方案。为企业提供成都网站建设、网站设计、微信开发、重庆小程序开发公司、手机网站制作设计、HTML5建站、等业务。无论您有什么样的网站设计或者设计方案要求，我们都将富于创造性的提供专业设计服务并满足您的需求。

Debug.Print(itm.SubItems(0).Text) '显示每行的第一列

Next

vb点虐 中如何遍历程序窗体中的控件？并读写控件的数据。

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点虐 如何根据元素找到它所在数组的index值？有现成函数吗？

sender就是你要的button了，不需要什么index，要计算index，则通过sender去判断

sub sub1(sender as object,e as eventargs)

sender.text="button1"’设置所点击button控件的text属性。

end sub

addhandler button.click, addressof sub1