以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  按钮快捷键设置  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=108936)
--  作者：裴保民
--  发布时间：2017/11/1 9:40:00
--  按钮快捷键设置
窗体按钮的快捷键怎么设置？
不是同一个窗体能成同一个快捷键吗？
[此贴子已经被作者于2017/11/1 9:42:25编辑过]
--  作者：有点甜
--  发布时间：2017/11/1 9:45:00
--  

可以，参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=52509&skin=0

 

判断一下 activeform 就可以了。

 

If forms.ActiveForm isnot nothing then
    Select Case forms.ActiveForm.name
        Case "窗口1"
            msgbox("1112222")

        Case "窗口2"

            msgbox("3333333")
    End Select
End If
--  作者：裴保民
--  发布时间：2017/11/1 9:49:00
--  
甜老师您的意思是窗体间快捷键也不能重复对吗？
[此贴子已经被作者于2017/11/1 9:49:18编辑过]
--  作者：有点甜
--  发布时间：2017/11/1 10:30:00
--  
以下是引用裴保民在2017/11/1 9:49:00的发言：
甜老师您的意思是窗体间快捷键也不能重复对吗？
[此贴子已经被作者于2017/11/1 9:49:18编辑过]

 

比如ctrl+Y这个快捷键，按下之后，会调用内部函数处理，在内部函数里判断当前的窗口是哪个，如果是窗口1、执行一种代码；如果是窗口2、执行另一种代码