[求助]怎样用withEvents调用类方法?

gzh97730

小弟在学习类方法中,调用以下类事件并无响应,请帮忙指点:

'代码目的:双击一文本框,调出对话框提示'pass text!'

'类[cls] code:

'声明使用对象事件

    private withevents mytxt as textbox

'接受外部文本框对象

    sub attach(itText as textbox)

       set mytxt=ittext

    end sub

'调用文本框事件

    private sub mytext_dbclick(cancel as integer)

        msgbox "pass test!"

    end sub

[此贴子已经被作者于2006-3-2 20:52:21编辑过]

okmijn

如果有多个按钮呢

cxm102

3  次了

cxm102

用户发贴最少为 3 才能下载

cxm102

看一看

gzh97730

实在太~好了!感谢哦!

sgrshh29

以下是引用gzh97730在2006-3-2 20:54:00的发言：
不行呀!我把文件起附上来了!各位好心的大哥帮忙看看哪儿出问题了?(在VB6中有效)

在access中与在vb中,确实有点不一样.可能vb中的窗体与access的窗体定义不同.

gzh97730

不行呀!我把文件起附上来了!各位好心的大哥帮忙看看哪儿出问题了?(在VB6中有效)

sgrshh29

好像没有什么问题,把mytext_dbclick(keycode as integer,shift as integer)中的参数拿掉,写成mytext_dbclick()试试看.