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

Question

本帖最后由 bcrun 于 2010-11-21 11:38:14 编辑

Answer 1

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代码块