您的当前位置:首页正文

设计题

来源:我们爱旅游
 一,在文件夹中设计如图所示的表单运行初始界面(各对象的大小、布局大致如图),要求如下:(注:该题属性的设置只能用属性窗口或者生成器实现)

1)新建表单,其Name属性为Form1,标题为\"选择\",运行时居中;

2)添加三个形状控件Shape1、Shape2 和Shape3,三个形状控件均为椭圆;

3)添加三个标签控件,Name属性分别为Label1、Label2和Label3,标题分别为\"1\"、\"2\"和\"3\",字号均为 14 ;

4)添加一个选项按钮组OptionGroup1,包含三个选项按钮Option1、Option2和Option3,三个选项按钮的标题分别为\"选1号\"、\"选2号\"和\"选3号\";

5)添加一个命令按钮组Commandgroup1,该命令按钮组布局为水平且包含有两个命令按钮,按钮的标题分别为\"确定\"和\"取消\";

6)完成后以bdc1.scx为文件名保存所设计的表单。

二, 在文件夹中打开表单bdc2.scx,界面如图示,你会背诵\"黄鹤楼\"吗?可以点击上面相应按钮得到提示。要求如下:

1)单击命令按钮Command1(第一句),则在文本框Text1中显示\"黄鹤楼\"中的第一句; 2)单击命令按钮Command2(上一句),则在文本框Text1中显示\"黄鹤楼\"中的上一句; 3)单击命令按钮Command3(下一句),则在文本框Text1中显示\"黄鹤楼\"中的下一句; 4)单击命令按钮Command4(最后一句),则在文本框Text1中显示\"黄鹤楼\"中的最后一句;

5)单击命令按钮Command5(退出),则关闭表单。

Commandgroup1的click事件代码编写如下: do case

case this.value=1 go top case this.value=2 if recno()>1 skip -1 endif

case this.value=3

if recno()case this.value=4 go bottom case this.value=5

thisform.release endcase

thisform.refresh

三. 表单bdc3.SCX(颜色更新)

在文件夹中打开表单bdc3.SCX,界面如图示,当调整3个微调控件Spinner1(红)、Spinner2(绿)、Spinner3(蓝)后,单击命令按钮Command1(更新),则形状控件Shape1按照红、绿、蓝的比例颜色显示。要求如下:

编写命令按钮Command1(更新)的Click事件代码,以实现表单功能。 Command1的click事件代码编写如下: r=thisform.spinner1.value g=thisform.spinner2.value b=thisform.spinner3.value

thisform.shape1.backcolor=RGB(r,g,b) thisform.refresh

因篇幅问题不能全部显示,请点此查看更多更全内容