7,763
社区成员
发帖
与我相关
我的任务
分享十万火急，求助各位大虾
我调用API是时候
Public Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean
ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0
End Function
我调用的是 ExecuteLine "Form1.Show" 在调试的时候顺利通过，可是编译之后一运行却是跳也来了，没有任何提示，这是为什么呀，望各位援手，十万火急
Public Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean
ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0
End Function
我调用的是 ExecuteLine "Form1.Show" 在调试的时候顺利通过，可是编译之后一运行却是跳也来了，没有任何提示，这是为什么呀，望各位援手，十万火急
...全文
请发表友善的回复…
发表回复
adong1980 2004-10-22
- 打赏
- 举报
5~~~~~~~~~~~~~有没有人回答,不然我结贴另外再问了,5~~~~~~~~~~
yiliao 2004-10-20
- 打赏
- 举报
关注
northwolves 2004-10-20
- 打赏
- 举报
vba6.dll 的应用是存在一些问题
jam021 2004-10-20
- 打赏
- 举报
关注,帮你顶!
lyxhappy 2004-10-20
- 打赏
- 举报
关注！帮你UP！
jordi2014 2004-10-20
- 打赏
- 举报
改成这样试试：
Public Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean
ExecuteLine = EbExecuteLine(byval StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0
End Function
Public Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean
ExecuteLine = EbExecuteLine(byval StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0
End Function
