以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求教，有关调用第三方控件事件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=17332)
--  作者：baoxyang
--  发布时间：2012/3/9 23:57:00
--  求教，有关调用第三方控件事件

在全局代码中

Public axFR601 As new AxFR60Lib.AxFR60()
Public Sub Init()
       AddHandler axFR601.OnPhoneRing , AddressOf OnPhoneRing \'指定终端设备连接的线路有振铃产生
End Sub

Public Sub OnPhoneRing(ByVal sender As System.Object, ByVal e As AxFR60Lib._DFR60Events_OnPhoneRingEvent)
        Dim str As String = "振铃 "
       messagebox.show(str)
End Sub

 

AfterOpenProject

Init()

 

 

AfterLoad

axFR601.BeginInit()
e.Form.BaseForm.Controls.add(axFr601)
axFR601.EndInit()

在窗口中初化控件了。有电话打入不论怎样不自动触发OnPhoneRing事件呢？

 


以上调用事件方法是否正确？请指教！多谢了！
--  作者：baoxyang
--  发布时间：2012/3/10 7:54:00
--  

调用方法没有问题，怎么事件就不行。估计是代码有问题，请帮指点呀！谢谢！！
--  作者：狐狸爸爸
--  发布时间：2012/3/12 8:20:00
--  

你的代码没有问题的。
--  作者：baoxyang
--  发布时间：2012/3/12 8:38:00
--  
经过版主lxl几天的测试，发现狐表引用第三方控件存在问题，不会自动触发事件。已做好测试环境，但需要设备的支持。我可以远程在我电脑上进行测试。希望能解决此问题。
--  作者：狐狸爸爸
--  发布时间：2012/3/12 8:56:00
--  

可以触发的，你看看这个例子：

 

http://www.foxtable.com/help/topics/2374.htm

 
--  作者：狐狸爸爸
--  发布时间：2012/3/12 9:03:00
--  

在全局代码中

Public axFR601 As AxFR60Lib.AxFR60()

Public Sub OnPhoneRing(ByVal sender As System.Object, ByVal e As AxFR60Lib._DFR60Events_OnPhoneRingEvent)
    Dim str As String = "振铃 "
     messagebox.show(str)
End Sub

 

AfterLoad事件：

 

axFR601 = new AxFR60Lib.AxFR60() 

e.Form.Panel.Controls.add(axFr601)

AddHandler axFR601.OnPhoneRing , AddressOf OnPhoneRing

 

BefopreClose事件：

RemoveHandler axFR601.OnPhoneRing , AddressOf OnPhoneRing
e.Form.Panel.Controls.Remove(axFr601)

 

 
--  作者：lxl
--  发布时间：2012/3/12 9:47:00
--  

那个问题很奇怪，自己写的事件都能触发

设备的各种状态改变的事件不触发，估计是设备和程序通信的问题造成的。