以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 按键操作 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=69449) |
-- 作者:yifan3429 -- 发布时间:2015/6/5 11:34:00 -- 按键操作 我想按下 ctrl 时双击行头 执行如下 Tables("订单").OpenLoadTree("客户类别|区域|顾客称呼") 如果不按 执行 打开某窗口 If e.Control = True AndAlso e.Table.Current IsNot Nothing Then Dim r As Row = e.Table.Current Select Case e.Control End Select End If
|
-- 作者:大红袍 -- 发布时间:2015/6/5 12:01:00 -- If ModifierKey = Keys.Control Then msgbox(1) Else msgbox(2) End If |