看了你们的官方教学视频,然后把下面这点窗体代码写下来,之后运行,为什么不会像视频中一样切换。按钮点了没反应,请问哪里出了问题。我代码都一模一样的
Sub frmControl_cmdStop_Click() '主控策略暂停或运行
if frmControl_cmdStop.Caption="运行中" then
iRun=0 '暂停
frmControl_cmdStop.Caption="暂停中"
frmControl_cmdStop.backcolor=rgb(255,0,0)
else
iRun=1 '运行
frmControl_cmdStop.Caption="运行中"
frmControl_cmdStop.backcolor=rgb(0,255,0)
end if
End Sub
Sub frmControl_cmdStop_Click() '主控策略暂停或运行
这里加APPLICATION.MSGOUT调试代码,看看有没有执行到这里
if frmControl_cmdStop.Caption="运行中" then
iRun=0 '暂停
frmControl_cmdStop.Caption="暂停中"
frmControl_cmdStop.backcolor=rgb(255,0,0)
else
iRun=1 '运行
frmControl_cmdStop.Caption="运行中"
frmControl_cmdStop.backcolor=rgb(0,255,0)
end if
End Sub