with 竟然是可执行语句！

VBProFan

之前我一直以为 with 的设计只是为了书写代码简洁，编译器编译前会把 with 后面的内容复制到被它括起来的代码段内每个“.”开始的语句前面。但是刚才我发现我错了：

1.   With adoFriendFilter.Recordset
   
2.     adoFriendFilter.RecordSource = "select * from tbl"
   
3.     adoFriendFilter.Refresh
   
4.     .MoveFirst
   
5.   End With
   

复制代码

出错： Object variable or With block variable not set.

1.   adoFriendFilter.RecordSource = "select * from tbl"
   
2.   adoFriendFilter.Refresh
   
3. 
   
4.   With adoFriendFilter.Recordset
   
5.     .MoveFirst
   
6.   End With
   

复制代码

正常运行。

acme_pjz

你好火星啊

之前我一直以为 with 的设计只是为了书写代码简洁，编译器编译前会把 with 后面的内容复制到被它括起来的代码段内每个“.”开始的语句前面。

那你来看看这个代码：

Form1.frm

Private Function Test() As Form
MsgBox "Test"
Set Test=Form1
End Function

Private Sub Command1_Click()
With Test
  .Caption="1"
  .Caption="2"
  .Caption="3"
End With
End Sub

如果是按照你的理论，那么就应该弹出三个MsgBox才对，但是实际上只弹出一个……

另外就是我经常使用如下语法：

With New Class1
  .....
End With

如果按照你的理论的话就会不停的创建新的实例了

VBProFan

acme_pjz 发表于 2015-8-24 21:20
你好火星啊

那你来看看这个代码：

那如何解释我一楼的例子？

VBProFan

我知道了，不能 with 一个 null 对象

wxf666

with 是可执行的。。

前几天碰到VB未知异常。。调试后发现 执行到 with 一个控件的公有类对象 时直接崩了。。

icecept

那不是执行，而是VB的斟错功能，检测到了with块中语句的错误。只限调用对象类的情况。