请问下面这代码如何跳转至其他过程

glchenjin 发布于 2014-08-17 22:39， 519 次点击

Public WithEvents EvtHandler3 As
Private Sub EvtHandler1_Click(ByVal CommandBarControl As Object, handled As Boolean, CancelDefault As Boolean)
    'On Error Resume Next
    MsgBox "常用规"
    handled = True
    CancelDefault = True
End Sub

我有个过程
sub kk ()
MsgBox "运行这段代码"
end sub

怎么改MsgBox "常用规"，让程序运行至MsgBox "运行这段代码"

5 回复

风吹过b2014-08-17 23:10

call kk
---------------
新手中的新手？？

glchenjin2014-08-18 00:07

回复 2 楼风吹过 b

不好意思，我做的是外接程序，用call kk 说编译错误：子程序或函数未定义

风吹过b2014-08-18 08:26

外接程序？什么意思？

放在其他窗体中？把窗体文件加到工程中，然后调用 call 窗体名.过程名 ,要求使用 public 定义
放在 BAS 文件里？把BAS 加到工程里去。
放在类文件里？申请一个类的实例，然后调用 call 类名.过程名
VB编译成 DLL ，申明类实例，然后调用。
VC或其他编译成 W32 的DLL ，申明函数\过程定义，然后调用。

不知你是哪个情况的外接程序？

Artless2014-08-18 11:52

Private Sub EvtHandler1_Click(ByVal CommandBarControl As Object, handled As Boolean, CancelDefault As Boolean)
和
sub kk ()
不同工程？

glchenjin2014-08-19 23:26

谢谢，我已经解决了