设计一个表单my完成以下功能: (1)表单上有1个标签,表单运行时标签的Caption属性显示为系统时间,且表单运行期间标签标题动态显示当前系统时间。标签标题字体大小为25,布局为“中央”,字体颜色为“红色”,标签“透明”。 (2)表单上另有3个命令按钮,

admin2013-03-18  35

问题 设计一个表单my完成以下功能:
(1)表单上有1个标签,表单运行时标签的Caption属性显示为系统时间,且表单运行期间标签标题动态显示当前系统时间。标签标题字体大小为25,布局为“中央”,字体颜色为“红色”,标签“透明”。
(2)表单上另有3个命令按钮,标题分别为“蓝色”,  “绿色”和“退出”。当单击“蓝色”命令按钮时,表单背景颜色变为蓝色;当单击“绿色”命令按钮时,表单背景颜色变为绿色;单击“退出”命令按钮表单退出。表单的Name属性和表单文件名均设置为my,标题为“变色时钟”。

选项

答案(1)从菜单栏里单击“文件”并选择“新建”,或直接单击工具栏上的“新建”图标,在弹出的对话框中文件类型选择“表单”,单击对话框右边的“新建文件”图标,弹出了Form1的表单设计器,单击工具栏上的“保存”图标,以my命名保存在考生文件夹下。 单击“表单控件”窗口中的“标签”控件,在表单上放置一个标签控件,将其FontSize属性值改为20,调整标签的大小,将其Alignment属性值改为“2-中央”,将其ForeColor属性值改为“255,0,0”,将其BackStyle属性值改为“0。透明”。 单击“表单控件”窗口中的“计时器”控件,在表单上放置一个计时器控件,修改其“Internal”属性值为1000(Internal属性值1000表示1秒),双击“计时器”控件,在其Timer事件中输入以下代码: *******计时器控件的timer事件代码******** Thisform.Labell.Caption = time() ************************************** 保存表单设计并运行。 (2)在命令窗口输入命令:MODIPY FORM my,打开刚设计的表单文件,在属性窗口中(注意当前操作对象是“表单form1”)修改name属性值为my,修改Caption属性值为“变色时钟”。接着,单击“表单控件”工具栏中的“命令按钮”控件,在表单上放置三个命令按钮控件,将它们的Caption属性值分别改为“蓝色”(Command1),“绿色”(Command2)和“退出”(Command3)。双击“蓝色”命令按钮,在其Click事件中输入以入代码: ***命令按钮Command1(蓝色)的Click事件代码***** Thisform.BackColor=rgb(0,0,255) ************************************************* 双击“绿色”命令按钮,在其Click事件中输入以入代码: ***命令按钮Command2(绿色)的Click事件代码***** Thisform.BackColor=rgb(0,255,0) ************************************************* 双击“退出”命令按钮,在其Click事件中输入以入代码: ***命令按钮Command3(退出)的Click事件代码***** Thisform.Release ************************************************* 在命令窗口输入命令:DO FORM my,表单运行结果如图所示: [*]

解析
转载请注明原文地址:https://kaotiyun.com/show/DVsp777K
0

最新回复(0)