Question

VB怎么用变量显示label控件的名称

例如我有10个label控件，名字分别是L1,L2,L3.......L10,
然后有一个for循环
for i=1 to 10
（）.Caption=rs("hkf")
next i
也就是当i=1时，L1等于rs("hkf")；当i=2时rs("hkf")，L2等于......当i=10时，L10等于rs("hkf")
rs("hkf")是从数据库抓出来的数据

Answer 1

这个问题最标准、最官方的方法，是把你这10个Label弄成控件数组，比如是L(0),L(1),L(2)....L(9)，然后：

For i = 0 To 9
    L(i).Caption = rs("hkf")
Next i

关于控件数组的问题请自己查教材或百度。

如果坚持不用控件数组，则可以这样：

For i = 1 To 10
    Controls("L" & i).Caption = rs("hkf")
Next i

这是一种歪门邪道的方法，效率上比控件数组要差一些，所以不建议用。

Answer 2

Private Sub Command1_Click()
Label1.Caption = Val(Label1.Caption) + 1
End Sub