|
当你的程序在陷入了调用的深渊~
当你想要立刻结束这次的调用!
而苦于不能连续性exit sub呢?
而不想用If 全局变量 then exit sub
那就试试vbaStrVarCopy 吧,哈哈哈……
Option Explicit
Private Declare Function vbaStrVarCopy Lib "msvbvm60.dll" Alias "__vbaStrVarCopy" (ByVal ptr As Long) As String
Private Sub Form_Click()
Debug.Print "1"
a
Debug.Print "2"
End Sub
Private Sub a()
Debug.Print "3"
vbaStrVarCopy (StrPtr("我"))
Debug.Print "4"
End Sub
发现什么?
立即窗口里,只打印出1,3
2和4呢?
我怎么没看见exit sub呢?
哈哈哈,神奇吧
(此代码今日刚试出来,有没什么后遗症,不知道……)
[ 本帖最后由 superzmy 于 2007-2-4 23:21 编辑 ] |
|