使用控件数组
比如好多Text都是一个名字,只是Index不同而已,不过最好在程序中动态的加,如下面的代码
首先做一个TextBox,并将其Index属性设置为0
在Form_load中加入
For i = 1 To 1000
Load Text1(i)
Text1(i).Text = i
Text1(i).Visible = True
Text1(i).Top = i * 350
Next
比如好多Text都是一个名字,只是Index不同而已,不过最好在程序中动态的加,如下面的代码
首先做一个TextBox,并将其Index属性设置为0
在Form_load中加入
For i = 1 To 1000
Load Text1(i)
Text1(i).Text = i
Text1(i).Visible = True
Text1(i).Top = i * 350
Next
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货