您的位置：程序门 -> vb -> 基础类

怎样能自定义一个类似于button1_click（)一样的自定义事件,比如xxxxx_yyyyyy（)和xxxxx_zzzzz（)

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

怎样能自定义一个类似于button1_click（)一样的自定义事件,比如xxxxx_yyyyyy（)和xxxxx_zzzzz（)

发表于：2008-01-04 19:45:26 楼主

我现在在写一个读卡器,我希望能自定义一个事件让读卡器一直留意端口,如果发现能够成功获取卡的序列号（就是说有卡进入范围),就raise一个事件,查了很多资料,vb6的自定义时间都写的是本来就有的mouseup,mousedown一类的,没有看见完全自定义的事件

发表于：2008-01-05 13:13:581楼得分:0

自定义事件要你自己加,当然看不到现成的.

首先需要声明:
public/private event myevent（参数……)

然后就可以在你认为合适的地方用raise触发事件了。

发表于：2008-01-05 14:40:072楼得分:0

如楼上所说，一个简单的例子
public event myevent（)
private sub timer1_timer（)
raiseevent myevent
end sub

发表于：2008-01-05 18:01:423楼得分:0

我测试了下,我自己做了一个叫usercontrol1的activex控件,里面加了一个timer控件,我想每1秒触发一次"自己定义"的事件来作为测试,我这样写的

public event tt（)

private sub timer1_timer（)
raiseevent tt
end sub

private sub usercontrol_tt（)
msgbox （"cc")
end sub

结果控件启动后理都不理我
把private sub usercontrol_tt（)的申明改成private sub usercontrol1_tt（)
并且加了一个dim withevents usercontrol1 as usercontrol也不行

发表于：2008-01-05 20:18:074楼得分:0

vb.net code


'控件部分代码:
public event myevent（)

private sub timer1_timer（)
    raiseevent myevent
end sub



'调用控件的窗体的代码:
private withevents mycontrol as xxxxx

private sub mycontrol_myevent（)
    msgbox "..........."
end sub

发表于：2008-01-05 20:31:365楼得分:0

谢谢楼上的,我刚才自己也做出来了,我发现如果把事件申明放到窗口里,把事件处理放到一个类模块里就可以做出来了

其他资讯