监视方向键调节时间的程序，调试正常，编译后无法调时间

danshiyuan

  监视方向键调节时间的程序，调试正常，编译后无法调时间，很短的代码， 调试程序时正常，编译再运行，按方向键时程序就结束 ，这个程序 用方向键调节电脑时间右键增加 1小时 ，左键减少1 小时。点击按钮1可以正常弹信息框。只要按方向键，程序就退出（编译其他程序正常）
求前辈大大们指点！

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

信息框 (“已经运行”, 0, , )

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

窗口_监视热键_注册 (&监视)  ' 注明：响应监视事件,3个参数,都为整数型,第1个为功能键,第2个为键代码,第3个为按键状态(1为按下，2为放开)。

子程序名	返回值类型	公开	备 注
监视
参数名	类 型	参考	可空	数组	备 注
功能键	整数型
键代码	整数型
按键状态	整数型				1为按下，2为放开

变量名	类 型	静态	数组	备 注
显示	逻辑型

判断 (键代码 ＝ 39 且 按键状态 ＝ 1)  ' 右方向键
置现行时间 (增减时间 (取现行时间 (), #小时, 1))
判断 (键代码 ＝ 37 且 按键状态 ＝ 1)  ' 左方向键
置现行时间 (增减时间 (取现行时间 (), #小时, -1))
判断 (键代码 ＝ 32 且 按键状态 ＝ 1)  ' 空格键
显示 ＝ 选择 (显示 ＝ 真, 假, 真)
窗口_显示隐藏 (_启动窗口.取窗口句柄 (), 显示)

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

窗口_监视热键_卸载 ()

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 信息框 (“已经运行”, 0, , )<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 窗口_监视热键_注册 (&监视)  ' 注明：响应监视事件,3个参数,都为整数型,第1个为功能键,第2个为键代码,第3个为按键状态(1为按下，2为放开)。<br /> <br /> <br /> .子程序 监视<br /> .参数 功能键, 整数型<br /> .参数 键代码, 整数型<br /> .参数 按键状态, 整数型, , 1为按下，2为放开<br /> .局部变量 显示, 逻辑型, 静态<br /> <br /> <br /> .判断开始 (键代码 ＝ 39 且 按键状态 ＝ 1)  ' 右方向键<br />     置现行时间 (增减时间 (取现行时间 (), #小时, 1))<br /> .判断 (键代码 ＝ 37 且 按键状态 ＝ 1)  ' 左方向键<br />     置现行时间 (增减时间 (取现行时间 (), #小时, -1))<br /> .判断 (键代码 ＝ 32 且 按键状态 ＝ 1)  ' 空格键<br />     显示 ＝ 选择 (显示 ＝ 真, 假, 真)<br />     窗口_显示隐藏 (_启动窗口.取窗口句柄 (), 显示)<br /> .默认<br /> <br /> .判断结束<br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> 窗口_监视热键_卸载 ()