Question

VB6.0 中，文本框建立数组后，如：text1.text text2.text text3.text 这三个数1.2.3能不能用变量代替呢？

补充也放不下,怎么办呢?

Answer 1

你说的是控件数组吗？那么数组内的各个控件的name应该是相同的，比如都是text1，而它们的index属性则表示其不同的索引号，这样就可以用text1(1).text、text1(2).text、text1(3).text......来使用各控件了，也可以用变量，如：
x=2
text1(x).text="Hello!"

追问

不是的.我是指的,数组编号和文框编号同时都用变量 text变量(数组变量).text=某某

Answer 2

不太明白你的意思 我的理解
1,用变量代替 text1.text 中的1 这种情况是可以的,text1只是一个控件名,你可以任意修改.只要引用时保证和你的控件名一样就可以了
2,用变量代替 text1.text 这种情况是不可以,但你可以 text1.text=a a=text1.text 其中a 为变量名
希望能对你有所帮助

Answer 3

for i=1 to 3
me("text" & i).text=i
next
建议使用控件数组

追问

为什么,运行不了,说这句有问题me("text" & i).text=i

追答

你得有text1、text2、text3这三个控件（数组）：
用me("text1")(0).text="111111"

一段完整代码：
Private Sub Command1_Click()
For i = 1 To 3
Set t = Me("text" & i)
If TypeOf t Is TextBox Then
t.Text = i & " " & j
Else
For j = 0 To t.Count - 1
t(j).Text = i & " " & j
Next
End If
Next
End Sub

追问

朋友很有心,很详细回答了,谢谢!换个问题吧!下面这个子程序是文本框输入限制,怎么可以改成适用于文本框控件数组的呢?
这里放不下,我放在补充里面看看!
完了,补充也放不下,怎么办呢?
怎么才可以让你看到?

追答

仅限于输入数字：
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End Sub
仅限于输入字母，并转换为大写：
Private Sub Text2_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii > 96 And KeyAscii 90 Or KeyAscii < 64 Then KeyAscii = 0
End Sub
如果开工资的话，你那5分就有点寒酸了。

Answer 4

你说清楚点，或者8.13日晚上8点hi我