欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件高级功能研发区 → 帮修改下事件触发

   

欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。    


  共有3487人关注过本帖平板打印复制链接

主题:帮修改下事件触发

帅哥哟,离线,有人找我吗?
黄金精算师
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:黑侠 帖子:836 积分:0 威望:0 精华:0 注册:2014/12/26 11:47:55
帮修改下事件触发  发帖心情 Post By:2016/4/26 21:15:45 [只看该作者]

你好,我原来用的按键事件触发换成钩选的事件解发,无法触发,帮修正下可以吗
-------------------------按键的代码,这是正常的----------------
Sub bk_CommandButton4_Click()
if bk_CommandButton4.Caption="运行中" then
iRun=0 '暂停
bk_CommandButton4.Caption="暂停中"
bk_CommandButton4.backcolor=rgb(255,0,0)
else
iRun=1 '运行
bk_CommandButton4.Caption="运行中"
bk_CommandButton4.backcolor=rgb(0,255,0)
end if
End Sub

----------------------------换成钩选的代码,不能正常------------
Sub bk_CheckBox1_Activate() '这个钩选的属性名字为CheckBox1
if bk_CheckBox1.Caption="运行中" then
' if bk_CommandButton4.Caption="运行中" then
iRun=0 '暂停
bk_CheckBox1.Caption="暂停中"
else
iRun=1 '运行
bk_CheckBox1.Caption="运行中"
end if
End Sub



 回到顶部
总数 20 1 2 下一页