有text1(9),text2(9),text3(9)三个数组text 控件，如何利用循环分别给他们付值！（马上给分）

炜娓道来程序人生 2004-09-10 12:22:46

有text1(9),text2(9),text3(9)三个数组text 控件，如何利用循环分别给他们付值！

...全文

267 17 打赏收藏转发到动态举报

写回复

用AI写文章

17 条回复

切换为时间正序

请发表友善的回复…

发表回复

RUKYO 2004-09-12

打赏
举报

'改一下：

Private Sub Command1_Click()
On Error Resume Next
Dim mCtrl As Control
For Each mCtrl In Form1
If TypeOf mCtrl Is TextBox Then
If mCtrl.Index = "9" Then
Select Case Right(mCtrl.Name, 1)
Case "1"
mCtrl.Text = "111"
Case "2"
mCtrl.Text = "222"
Case "3"
mCtrl.Text = "333"
End Select
End If
End If
Next mCtrl
End Sub

RUKYO 2004-09-12

打赏
举报

Private Sub Command1_Click()
Dim mCtrl As Control
For Each mCtrl In Form1
If TypeOf mCtrl Is TextBox Then
If mCtrl.Index = "9" Then
Select Case Right(mCtrl.Name, 1)
Case "1"
mCtrl.Text = "111"
Case "2"
mCtrl.Text = "222"
Case "3"
mCtrl.Text = "333"
End Select
End If
End If
Next mCtrl
End Sub

wwqna 2004-09-11

打赏
举报

text后面的数字是不能自己动态添加的，它就像变量
你说你能改变量的名字吗？

aceleung 2004-09-11

打赏
举报

freewzf1919 2004-09-11

打赏
举报

1、先写一个寻找TEXT控件的函数
private function FindControls(txtName as string, _
iIndex as integer) as textbox
For i = 1 To Me.Controls.Count

If TypeOf Me.Controls(i - 1) Is TextBox Then

If Me.Controls(i - 1).Name = txtName and me.controls(i-1).index=iIndex Then
findcontrols=me.controls(i-1)
exit function
End If

End If

Next

end function

2、
for j = 0 to 2
for i = 0 to 8
findcontrols("text"& j,i).text = ""
next i
next j

northwolves 2004-09-11

打赏
举报

可以用一个TEXT1控件数组，如：text1(0)- text1(26)

tangbq 2004-09-11

打赏
举报

设计有问题,建议搂主改改

Andy__Huang 2004-09-10

打赏
举报

for i=0 to 9
text1(i).text="aaa"
text2(i).text="abb"
text3(i).text="add"
next

炜娓道来程序人生 2004-09-10

打赏
举报

大家搞清楚是
text1(0)....text1(9)
text2(0)....text2(9)
text3(0)....text3(9)

////////// 提示错误////////
for j = 0 to 8
for i = 0 to 6
text"& j &"(i) = ""
next i
next j
//////////////////////////

longki 2004-09-10

打赏
举报

数组设计不科学!

efengxu 2004-09-10

打赏
举报

你为什么不 text1(0),text1(2),text1(3)呢？？
干吗非要那样啊？？

zyg0 2004-09-10

打赏
举报

For Each a In Me
If TypeOf a Is TextBox And a.Index = 9 Then
a.Text = ""
End If
Next

ryuginka 2004-09-10

打赏
举报

smalle 2004-09-10

打赏
举报

VB不可以直接运行一个符串，所以不能实现你现在的要求。但在网页中VBScript就可以。

wumylove1234 2004-09-10

打赏
举报

你要构造控件的名称,基本实现不了.

好像以前听说有人弄过.通过什么呢?想不起来了.好像是VBA吧.

VB没有VFP中的&,如果有这个,就能搞定了.

炜娓道来程序人生 2004-09-10

打赏
举报

我是要能控制text后面的数字的，如有时我可能只用text1,
有时用，text1,text2,有时全用，
text后面的数字是根据数据库检测到的数据条数来确定的
检测到一条的话就只用text1(9)
九条的话就用text9(9)

leolan 2004-09-10

打赏
举报

Private Sub Form_Load()
Dim i As Integer

For i = 1 To Me.Controls.Count

If TypeOf Me.Controls(i - 1) Is TextBox Then

If Me.Controls(i - 1).Name = "Text1" _
Or Me.Controls(i - 1).Name = "Text2" _
Or Me.Controls(i - 1).Name = "Text3" Then
Me.Controls(i - 1).Text = ""
End If

End If

Next

End Sub