myform.Controls.Item（ⅰ） [英] myform.Controls.Item(i)

问题描述

表格：

addlist（me）


模块：


子添加列表（ByVal myform作为表格）


将myList作为新列表框调暗（）


myList = myform.Controls.Item（1）


mylist.items.add（" test"）

End Sub

我有很多列表框和文本框，我可以找到他们的控制索引

使用的数字，如myform.control.item（i）。

你可以帮助我吗？

推荐答案

*" Murat Kelleci" < overflow_at_softhome_net> scripsit：

* "Murat Kelleci" <overflow_at_softhome_net> scripsit:

表格：
addlist（me）

模块：

子添加列表（ByVal myform As Form）

Dim myList As New ListBox（）


''As New''在这里没有意义。跳过''新''。

myList = myform.Controls.Item（1）

mylist.items.add（" test"）
<结束Sub

我有很多列表框和文本框，我可以找到他们的控制索引
使用的数字，如myform.control.item（i）。

Form:
addlist(me)

Module:

Sub addlist(ByVal myform As Form)

Dim myList As New ListBox()
''As New'' doesn''t make sense here. Skip the ''New''.
myList = myform.Controls.Item(1)

mylist.items.add("test")

End Sub
I have many listboxes and text boxes and i can find their control index
number to use like myform.control.item(i).

???


-

Herfried K. Wagner [MVP]

< http://www.mvps.org/dotnet>

???

--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet>

>我有很多列表框和文本框，我可以找到他们的控制索引

> I have many listboxes and text boxes and i can find their control index

使用的数字，如myform.control.item（i）。
你能帮帮我吗？

number to use like myform.control.item(i).
Can u help me?

我不明白你的问题，请你重新说出来吗？


真诚，

- -

Sebastian Zaklada

技术软件
http://www.skilledsoftware.com

**************************** ********

SQL源代码管理2003 - 用于

SQL Server源安全集成

和自定义数据库文档

Dim c As Windows.Forms.Control


For Each c In Me.Controls


如果c.GetType.ToString（）=" System.Windows.Forms.TextBox"然后


MsgBox（c.Text）


结束如果


下一页


问候 - OHM

Murat Kelleci写道：

Dim c As Windows.Forms.Control

For Each c In Me.Controls

If c.GetType.ToString() = "System.Windows.Forms.TextBox" Then

MsgBox(c.Text)

End If

Next

Regards - OHM

Murat Kelleci wrote:

表格：
addlist（me）
<模块：

子添加列表（ByVal myform As Form）

Dim myList As New ListBox（）

myList = myform.Controls。项目（1）

mylist.items.add（测试）

结束子

我有很多列表框和文本框我可以找到像myform.control.item（i）一样使用的控制索引号。
你能帮助我吗？

Form:
addlist(me)

Module:

Sub addlist(ByVal myform As Form)

Dim myList As New ListBox()

myList = myform.Controls.Item(1)

mylist.items.add("test")

End Sub
I have many listboxes and text boxes and i can find their control
index number to use like myform.control.item(i).
Can u help me?

问候 - OHM #OneHandedMan {at} BTInternet {dot} com

Regards - OHM# OneHandedMan{at}BTInternet{dot}com

这篇关于myform.Controls.Item（ⅰ）的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！