以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]按钮的全局事件失效  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=12623)
--  作者：涛声依旧5666
--  发布时间：2011/9/9 14:07:00
--  [求助]按钮的全局事件失效
在A窗口某事件中，为B窗口动态生成按钮控件btn，在B窗口的全局click事件中设置btn的响应代码，但永远不能触发，不知为何，也不知有何办法可以解决，求助！
[此贴子已经被作者于2011-9-9 14:11:37编辑过]
--  作者：kylin
--  发布时间：2011/9/9 14:15:00
--  
至少需要贴出代码，最好将项目上传吧
--  作者：blackzhu
--  发布时间：2011/9/9 14:23:00
--  
代码看看嘛,这么小气,谁帮你呀.
--  作者：yangming
--  发布时间：2011/9/9 14:42:00
--  

会不会是你的按钮名和显示文本搞错了？看看我的代码

 

Dim btn As WinForm.Button
btn = e.Form.CreateControl("btnPrev", ControlTypeEnum.Button)
btn.Text = "上一条"
btn.Left = 100
btn.Top = 100
e.Form.AddControl(btn)
--  作者：涛声依旧5666
--  发布时间：2011/9/9 16:38:00
--  

已解决，自己糊涂了。

原窗口A的代码：

Dim btn As WinForm.Button
btn = e.Form.CreateControl("btn", ControlTypeEnum.Button)
Forms("窗口B").AddControl(btn)

 

改成：

Dim btn As WinForm.Button
btn = Forms("窗口B").CreateControl("btn", ControlTypeEnum.Button)
Forms("窗口B").AddControl(btn)

就行了。谢谢各位！！！！

 
--  作者：blackzhu
--  发布时间：2011/9/9 17:10:00
--  
我当时估计就是e.form和forms的问题,但是没有看到代码,不敢说.