以文本方式查看主题

-  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=142137)

--  作者:aidimeng
--  发布时间:2019/10/19 11:25:00
--  表事件问题


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20191019111856.png
图片点击可在新窗口打开查看

如上图,同一个表  加了 表中鼠标 的click 事件和 

BeforeShowContextMenu 事件

现在遇到的问题是  点击鼠标右键时 系统执行 鼠标的click事件  这个问题怎么处理啊


 


--  作者:有点蓝
--  发布时间:2019/10/19 11:33:00
--  

全局代码

Public Sub C1FlexGrid1_MouseClick(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) 
        If (e.Button = Windows.Forms.MouseButtons.right) Then 
msgbox("点击的是右键")
else
把上面click事件代码放到这
endif
    End Sub

afteropenproject事件
AddHandler Tables("表A").Grid.MouseClick, AddressOf C1FlexGrid1_MouseClick

--  作者:aidimeng
--  发布时间:2019/10/19 11:35:00
--  
谢谢甜老师  我试试啊
--  作者:aidimeng
--  发布时间:2019/10/19 11:40:00
--  
涉及到的表很多,click 代码也不也一样怎么处理啊
--  作者:有点蓝
--  发布时间:2019/10/19 14:06:00
--  
可以这样

Public Sub C1FlexGrid1_MouseClick(sender As System.Object, e As System.Windows.Forms.MouseEventArgs)
If (e.Button = Windows.Forms.MouseButtons.right) Then
    msgbox("点击的是右键")
Else
    Select Case CurrentTable.Name
        Case "表A"
表A代码
        Case "表B"
   表B代码         
    End Select
End If
End Sub

已经反馈给开发人员,看看能不能在click添加一个可以区分左右键的参数

--  作者:aidimeng
--  发布时间:2019/10/20 13:06:00
--  
谢谢甜老师 表比较多 我暂时等下咱们程序更新吧