以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  编译错误_应为声明,请高手指点,谢谢。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=25019)

--  作者:wfkbabro
--  发布时间: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

--  作者:lin_hailun
--  发布时间:2012/10/29 16:32:00
--  
 全局代码,只能在声明的时候赋值,改成

 Public WithEvents TblBase As WinForm.Button = Forms("参数设置").Controls("Button5")

--  作者:狐狸爸爸
--  发布时间:2012/10/29 16:48:00
--  

不能这样用的,此路不通。

应该通过控件的BaseControl定义事件。

而且按钮也没有MouseDoubleClick事件啊


--  作者:wfkbabro
--  发布时间:2012/10/30 8:48:00
--  

在FORM事件里添加代码了,对不同事件写不同函数,算是基本解决

windowClick_c_01(e.Form.TableName,e.Form.Name,e.Sender.name)

 

谢谢两位。