VB变态优化之 跳出陷阱，还我自由

superzmy

当你的程序在陷入了调用的深渊～
当你想要立刻结束这次的调用！
而苦于不能连续性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 编辑 ]

ben1222

这个...有后遗症...
编译成exe后...
发生错误:
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
｜工程１　　　　　　　　　　　　　　　　　　　　　　　Ｘ｜
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
｜　　＾　　　运行时错误'458';　　　　　　　　　　　　　｜
｜　／！＼　　　　　　　　　　　　　　　　　　　　　　　｜
｜　－－－　变量使用了Visual Basic不支持的Automation类型｜
｜　　　　　　　　　　　　　　　　　　　　　　　　　　　｜
｜　　　　　　　　　　［　确定　］　　　　　　　　　　　｜
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

jay36

呵呵 看样子空欢喜了呢

liusai

同上

superzmy

啊……
那就算了……我想删帖

yyfearth

有什么用呢？

仙剑魔

如果成功了,这将会是我梦寐以求的代码!!!

superzmy

用汇编应该很简单，push一下就OK了

superzmy

和vbaStrVarCopy类似的API很多，你试试其他几个，说不定你的就OK了

VBProFan

原帖由 jay36 于 2007-2-5 19:01 发表
呵呵 看样子空欢喜了呢

也不用那么悲观，错误处理直接忽略458错误就可以了，呵呵，这种方法还是蛮强的，岂能错过？