关于控件问题请教一下

[秋忆回]

如果要实现commond控件点一次执行一个程序，再点一次执行另一个程序，再点一次又执行第一个，再点又执行第二个，如此循环。

[lygcw9602]

表单INIT代码

THISFORM.ADDPROPERTY("JS",0) &&为表单增加一个属性，用于保存COMMAND1的单击次数

COMMAND1的CLICK代码

THISFORM.JS=THISFORM.JS+1
DO CASE
   CASE MOD(THISFORM.JS,2)=0
        MESSAGEBOX("执行程序一")
   CASE MOD(THISFORM.JS,2)=1
        MESSAGEBOX("执行程序二")
ENDCASE

[秋忆回]

[Quote=引用 1 楼 的回复:]

表单INIT代码
SQL code
THISFORM.ADDPROPERTY("JS",0) &&为表单增加一个属性，用于保存COMMAND1的单击次数


COMMAND1的CLICK代码

SQL code
THISFORM.JS=THISFORM.JS+1
DO CASE
CASE MOD(THISFORM.JS,2)=0
MESSAGE……
[/Quote]
谢谢你的回答，
我的思路是这样的；
我想把这个command控件定义两个caption，
当该控件的caption属性是1，
就执行第一个程序，并将其caption属性改为2。
当该控件的caption属性是2，
就执行第二个程序，并将其caption属性改为1。
这样能实现吗

[lygcw9602]

FORM.INIT

WITH THISFORM.COMMAND1
     .AUTOSIZE=.T.
     .CAPTION="执行第一个程序"
ENDWITH

COMMAND1.CLICK
WITH THISFORM.COMMAND1
IF .CAPTION="执行第一个程序"
.CAPTION="执行第二个程序"
MESSAGEBOX("现在执行第一个程序")
ELSE
.CAPTION="执行第一个程序"
MESSAGEBOX("现在执行第二个程序")
ENDIF
ENDWITH

[lygcw9602]

FORM.INIT

WITH THISFORM.COMMAND1
     .AUTOSIZE=.T.
     .CAPTION="执行第一个程序"
ENDWITH

COMMAN1.CLICK

WITH THISFORM.COMMAND1
     IF .CAPTION="执行第一个程序"
        .CAPTION="执行第二个程序"
         MESSAGEBOX("现在执行第一个程序")
     ELSE
        .CAPTION="执行第一个程序"
         MESSAGEBOX("现在执行第二个程序")
     ENDIF
ENDWITH

[秋忆回]

[Quote=引用 5 楼 的回复:]

FORM.INIT
SQL code
WITH THISFORM.COMMAND1
.AUTOSIZE=.T.
.CAPTION="执行第一个程序"
ENDWITH


COMMAN1.CLICK
SQL code
WITH THISFORM.COMMAND1
IF .CAPTION="执行第一个程序"
.CAPTION="执行第二个程序……
[/Quote]
谢谢，我成功了。
不过我用do case
用if的话，在点第二次时没有反应，用case比较好

[lygcw9602]

不会吧？
不知楼主表单INIT及命令按钮COMMAND1下的代码是如何写的。
成功了就好。

[lygcw9602]

COMMAND1的CLICK代码也可以这样写

THISFORM.JS=THISFORM.JS+1
IF MOD(THISFORM.JS,2)=0
   MESSAGEBOX("执行程序一")
ELSE
   MESSAGEBOX("执行程序二")
ENDIF