《作业7标签和按钮》由会员分享，可在线阅读，更多相关《作业7标签和按钮（17页珍藏版）》请在装配图网上搜索。
1、作业7 标签和按钮隐藏按钮【实验内容与设计思想】 请制作如下所示的一个表单，当点击“显示文本”按钮时，该按钮会自动消失；而当点击“清除文本”按钮时，该按钮和文字一起消失，而“显示文本”按钮重新出现。程序启动时的画面点击“显示文本”按钮时，该按钮会自动消失点击“清除文本”按钮时，该按钮和文字一起消失，而“显示文本”按钮重新出现.【操作步骤提示】本例制作的关键，是在两个按钮的CLICK事件中分别写入了不同的程序代码，控制文本和按钮的显示和消失。“显示文本”按钮CLICK事件的程序代码：thisform.label1.visible = .t.mand1.visible = .f.mand2.vis
2、ible = .t.“清除文本”按钮CLICK事件的程序代码：thisform.label1.visible = .f.mand1.visible = .t.mand2.visible = .f.作业8 按钮组【实验内容与设计思想】 请制作如下所示的一个表单，点击不同的按钮，会出现不同的背景颜色。【操作步骤提示】1、打开表单设计器，插入一个按钮组。2、在按钮组上右键单击，在弹出菜单上选择“编辑”。3、此时按钮组背景出现一个蓝色虚线框，就可以对每个按钮的属性和事件进行单独的设置了。以红色背景按钮为例，将前景色属性FORECOLOR设为255,0,0 ，将CLICK事件写入如图所示的代码： thi
3、sform.backcolor=this.forecolor5、其他按钮的属性和事件代码设置相同，不再详述。本例制作完成。作业9 标签变化【实验内容与设计思想】 请制作如下所示的一个表单，点击两个按钮，“欢迎各位读者”标语和按钮都会发生相应的变化。【操作步骤提示】“改变颜色”按钮COMMAND1的CLICK事件程序代码如下： IF This.Caption=改变颜色 Thisform.Label1.ForeColor=RGB(0,255,0) This.Caption=恢复颜色 ELSE Thisform.Label1.ForeColor=RGB(0,0,255) This.Caption=改
4、变颜色 ENDIF“改变大小”按钮COMMAND2的CLICK事件程序代码如下： IF This.Caption=改变大小 Thisform.Label1.FontSize=18 This.Caption=恢复大小 ELSE Thisform.Label1.FontSize=24 This.Caption=改变大小 ENDIF作业10计时器和容器【实验内容与设计思想】 请制作如下所示的一个表单，通过计时器控件的作用使暂停键可以控制字幕的滚动和暂停。【操作步骤提示】在表单上设置一个容器、一个标签和两个按钮。在容器cantainer1上右键单击，选择“编辑”命令。 在容器周围出现蓝色虚线边框后，可
5、以在其中放入一个标签和一个计时器。将标签标题改为“欢迎新同学！”双击计时器控件，对其属性和timer事件进行如上图所示的设置。 if this.parent.label1.left + this.parent.label1.width0 this.parent.label1.left=this.parent.label1.left-5 else this.parent.label1.left= this.parent.width endif 双击暂停按钮控件，对其Click属性进行如上图所示的设置。if this.caption=暂停 this.caption=继续 thisform.container1.timer1.enabled=.f.else this.caption=暂停 thisform.container1.timer1.enabled=.t.endif
作业7标签和按钮
