dim i as integer
for i=1 to 100
mytb=me.controls("textbox" & i)
mytb.enable=false
next
Dim lbl() As Label = { Label1, Label2, Label3, .... }
lbl(number).Text = "xxxx" '如果number=14，那么此时lbl(14)就是label14
转载请注明出处:
未经允许不得转载：lxfamn » vb.net 以变量形式调用控件
dim i as integer
for i=1 to 100
mytb=me.controls("textbox" & i)
mytb.enable=false
next
