添加快捷键

    --------------------------------------------------------------------------------------------------------------------------------------------------------

    需要vb api函数：

    getasyate ←判断函数调用时指定虚拟键的状态

    --------------------------------------------------------------------------------------------------------------------------------------------------------

    相关api声明：

    getasyate

    private declare fun getasyate lib "user32" (byval vkeylong)integer

    private fun myhotkey(vkeycode)boolean

    --------------------------------------------------------------------------------------------------------------------------------------------------------

    需要的控件：timer（interval不为空）

    --------------------------------------------------------------------------------------------------------------------------------------------------------

    代码：

    private declare fun getasyate lib "user32" (byval vkeylong)integer

    private fun myhotkey(vkeycode)boolean

    myhotkey = (getasyate(vkeycode) </p>