- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 编译错误_应为声明，请高手指点，谢谢。 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=25019)
-- 发布时间：2012/10/29 16:24:00
-- 编译错误_应为声明，请高手指点，谢谢。
请各位帮看看这个错误怎么改？谢谢了。
Public WithEvents TblBase As WinForm.Button
TblBase = Forms("参数设置").Controls("Button5")
Public Sub TblBase_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TblBase.MouseDoubleClick
msgbox("全局变量定义窗口内控件事件测试成功！")
End Sub
TblBase = Forms("参数设置").Controls("Button5")
Public Sub TblBase_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TblBase.MouseDoubleClick
msgbox("全局变量定义窗口内控件事件测试成功！")
End Sub
-- 发布时间：2012/10/29 16:32:00
--
全局代码，只能在声明的时候赋值，改成
Public WithEvents TblBase As WinForm.Button = Forms("参数设置").Controls("Button5")
-- 发布时间：2012/10/29 16:48:00
--
不能这样用的，此路不通。
应该通过控件的BaseControl定义事件。
而且按钮也没有MouseDoubleClick事件啊
-- 发布时间：2012/10/30 8:48:00
--
在FORM事件里添加代码了，对不同事件写不同函数，算是基本解决
windowClick_c_01(e.Form.TableName,e.Form.Name,e.Sender.name)
谢谢两位。