一般的fox..next语句后面都有一个赋值语句，一次引用一个控件属性就相当于一个缓慢的过程，意思就是去获取控件，如果用with，那么就不用从窗体的控件集合中取控件而能够应用with体中的所有语句，即控件在这里，可直接操作with里的项。
|
Private Sub cmdFor_Click()
'一般的for语句循环
Dim ctl As Control
Dim i As Integer
For i = 0 To Me.Controls.Count - 1
Set ctl = Me.Controls(i)
If TypeOf ctl Is CommandButton Then
ctl.FontSize = 8
ctl.Caption = "cmdLike"
End If
Next
End Sub
Private Sub cmdWith_Click()
'利用with语句循环
Dim ctl As Control
Dim j As Integer
For j = 0 To Me.Controls.Count - 1
Set ctl = Me(j)
If TypeOf ctl Is CommandButton Then
With ctl
.FontSize = 8
.Caption = "love love"
End With
End If
Next
End Sub
|
