| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2686 人关注过本帖
标题:如何刷新按钮组的Caption的值
只看楼主 加入收藏
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 

先公布与上述图片相关的代码,先看看代码,不知道对你有没有参考价值:

(1)新建表单form1,添加:
2个标签:label1,label2
1个选项按钮组:opntiongroup1
1个命令按钮:command1
上述控件的autosize都设置成.t.
另外再添加1个自定义方法ref,作用就是用于刷新有关控件。代码为
THISFORM.LABEL1.CAPTION="第"+ALLTRIM(STR(题号))+"题"
THISFORM.LABEL2.CAPTION=题内容
THISFORM.OPTIONGROUP1.OPTION1.CAPTION="A. "+A
THISFORM.OPTIONGROUP1.OPTION2.CAPTION="B. "+B
THISFORM.OPTIONGROUP1.OPTION3.CAPTION="C. "+C
THISFORM.OPTIONGROUP1.OPTION4.CAPTION="D. "+D
THISFORM.OPTIONGROUP1.VALUE=AT(用户答案,"ABCD")

(2)在表单的初始化部分form1.init()写上代码
CLOSE ALL
IF FILE("TIKU.DBF")
USE TIKU.DBF
ELSE
CREATE TABLE TIKU (题号 N(4),题内容 C(100),A C(50),B C(50),C C(50),D C(50),用户答案 C(1),标准答案 C(1))
INSERT INTO TIKU (题号,题内容,A,B,C,D,用户答案,标准答案) VALUES (1,"人有几块骨头?","302","200","201","206","A","D")
INSERT INTO TIKU (题号,题内容,A,B,C,D,用户答案,标准答案) VALUES (1,"你是谁?","不知道","是我","教师","学生","C","B")
*特别注意,在此添加2条考题,以博取大家一笑
ENDIF
THISFORM.REF

(3)在下一个命令按钮的click里面写上代码
SKIP
IF EOF()
GO TOP
ENDIF
THISFORM.REF


感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2006-09-29 23:54
lfd_007
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2006-6-7
收藏
得分:0 

多谢各位指点,我没想到自己会研究的这么深,(自定义方法,定义过程,自定义...及数组是本人的VFP禁区,从不敢轻易进入,没想到今天还是招遇了,实在)以后多有麻烦之处,还请各位大侠包涵.
对11楼的支持,特此声明:谢谢,我会认真领会以上代码精神,加以应用的...
另注:本人也才发现,我确实就是lfd_008,多谢提醒,

2006-09-30 06:30
啸凡
Rank: 8Rank: 8
等 级:贵宾
威 望:45
帖 子:1356
专家分:885
注 册:2006-2-22
收藏
得分:0 
“监时表”“能不能说的再具体一体”“我要的是案没有能下”“招遇”“代码精神”

两人行已有我师……
2006-09-30 09:09
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
好象是谁将我传上来的图片修改了?

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2006-09-30 10:23
啸凡
Rank: 8Rank: 8
等 级:贵宾
威 望:45
帖 子:1356
专家分:885
注 册:2006-2-22
收藏
得分:0 
呵呵,我既不会、更不敢修改虎哥的东东。

[此贴子已经被作者于2006-9-30 12:19:59编辑过]



两人行已有我师……
2006-09-30 12:11
lfd_007
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2006-6-7
收藏
得分:0 

感谢虎哥的帮助,问题解决了..
我当初的想法的主要停留在为什么refresh()方法不能对按钮组的Caption的值进行初始上,而没有想到对其进行重新赋值.看来表单的Refresh()和按钮组的初始方法还不太一样.....
不好意思,我还想知道刚才虎哥的那个ref自定义方法的代码输入到哪呀?实在是不好意思再麻烦了

2006-10-01 20:03
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
已经告诉你了,REF是在表单中添加的自定义过程,它在属性窗口的最底部,而添加的过程很简单,就是打开表单以后就在菜单里面出现了"表单"菜单项,点击这个菜单项,出现"新建方法程序",点击它,写上REF,OK.最后像使用系统的基本过程一样使用它.

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2006-10-05 11:42
快速回复:如何刷新按钮组的Caption的值
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.042494 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved