如何应用控件数组跟数组
我要画80个按钮
然后每个按钮的代码就一行不同
我觉得可以用数组来实现
PS:程序的目的其实是通过按键来改变一个文本框里某一行中的某一个数
但是这个只学了2堂课 根本就没学会 所以请求大家
代码如下
Open "C:\55.txt" For Input As #1
b = ""
Do Until EOF(1)
Line Input #1, nextline
b = b & nextline & Chr(13) & Chr(10)
Loop
Close #1
For I = 0 To 32
p = InStr(p + 1, b, vbCrLf)

Next

s = Left(b, p + 29) & 180000 & Right(b, Len(b) - p - 35)
Open "C:\55.txt" For Output As #1

Print #1, s

Close #1
按钮二的代码的话就是把
s = Left(b, p + 29) & 180000 & Right(b, Len(b) - p - 35)
这一句里面的180000+1=180001
然后按钮三为180003
以此类推要复制80段代码 这个肯定是最笨的办法了

那么最简单的方法是什么呢
是不是首先创建一个控件数组按钮1 然后再复制79个按钮1 自己按顺序排列好
然后对按钮1的代码如下
sub。。

。。。高手的回答。。。

end sub


嘿嘿 谢谢大家哈


[解决办法]
不同的代码放在多分支语句中

VB code

Private Sub Command1_Click(Index As Integer)    '相同语句    '...    '不同语句    Select Case Index        Case 0        Case 1        Case 2        '.        '.        '.        Case 79            End Select    '相同语句End Sub
[解决办法]
控件数组
Private Sub Command1_Click(Index As Integer)
……
s = Left(b, p + 29) & CStr(180000 + Index) & Right(b, Len(b) - p - 35)


[解决办法]
Private Sub Command1_Click(Index As Integer)

Open "C:\55.txt" For Input As #1
b = ""
Do Until EOF(1)
Line Input #1, nextline
b = b & nextline & Chr(13) & Chr(10)
Loop
Close #1

For I = 0 To 32
p = InStr(p + 1, b, vbCrLf)
Next

s = Left(b, p + 29) & (180000 + Index) & Right(b, Len(b) - p - 35)
Open "C:\55.txt" For Output As #1
Print #1, s
Close #1

End Sub