谁能帮心解释一下这段的代码

本帖最后由 bcrun 于 2010-11-21 11:38:14 编辑操作控件位置的
循环找控件然后赋值 so..

Dim A, B '定义2个Variant类型变量A,B

'这里实际上是2行，用:将2行代码和在一行写

'第一行

'A = Me.Controls("Text" & 0).Left Me表示自己，如果写在窗体中，则表示窗体，Controls表示窗体上控件的集合

'Me.Controls("Text" & 0)表示查找Name为 Text0 的控件，

'Me.Controls("Text" & 0).Left表示这个控件的左边界

'A = Me.Controls("Text" & 0).Left 通过vb的晚绑定，指定A的类型为Integer并将名为Text0控件的左边界赋值给A

'第二行

'B = 0 不用解释了吧

A = Me.Controls("Text" & 0).Left: B = 0

'With关键字，表示省略.前面部分

With Me.subform

    For i = 0 To 2 '循环0~2

        Me.Controls("Text" & i).Left = A + B '结合刚才的注解，将A+B设置为指定控件的左边界

        Me.Controls("Text" & i).Width = .Controls(i).ColumnWidth '将指定控件的宽度设置为subform对应索引位置子空间的宽度

        B = B + .Controls(i).ColumnWidth 'B变量自增一个subform对应索引位置控件的宽度

    Next i '下一次循环

End With'结束with代码块

用控件数组不用写得这么复杂。

补充：VB ,  基础类