求解 二级VFP 上机题两道.急! 满意加分!
发布网友
发布时间:2023-08-05 20:46
我来回答
共2个回答
热心网友
时间:2024-10-27 16:40
(1)【操作步骤】
步骤1:在命令窗口输入命令:CREATE FORM my&&回车
步骤2:单击"表单控件"窗口中的"标签"控件,在表单上放置一个标签控件,将其FontSize属性值改为20,调整标签的大小,将其Alignment属性值改为"2.*",将其ForeColor属性值改为"255,0,0",将其BackStyle属性值改为"0.透明"。
步骤3:单击"表单控件"窗口中的"计时器"控件,在表单上放置一个计时器控件,修改其"Internal"属性值为1000(Internal属性值1000表示1秒)。
步骤4:双击"计时器"控件,在其Timer事件中输入以下代码:
*****计时器控件的Timer事件代码*****
Thisform.Label1.Caption=Time()
************************
步骤5:保存表单设计并运行。
(2)【操作步骤】
步骤1:在命令窗口输入命令:MODIFY FORM my&&回车
步骤2:在属性窗口中(注意当前操作对象是"表单form1")修改name属性值为my,修改Caption属性值为"变色时钟"。
步骤3:单击"表单控件"工具栏中的"命令按钮"控件,在表单上放置三个命令按钮控件,将它们的Caption属性值分别改为"蓝色"(Command1)、"绿色"(Command2)和"退出"(Command3)。
步骤4:双击各个命令按钮,在其Click事件中输入以下代码:
***命令按钮Command1(蓝色)的Click事件代码***
Thisform.BackColor=rgb(0,0,255)
***********************
***命令按钮Command2(绿色)的Click事件代码***
Thisform.BackColor=rgb(0,255,0)
***********************
***命令按钮Command3(退出)的Click事件代码***
Thisform.Release
热心网友
时间:2024-10-27 16:41
1、把标签的caption属性设置为“is time()” 表单中要添加一个时间控件timer1,然后双击时间控件,输入“thisform.lable1.caption=time()”,标签标题字体fontsize属性 改为25,然后单击“显示”-“布局工具栏” 在布局工具栏中单击“水平居中”,“垂直居中”,字体颜色 fontcolor属性,标签透明 backstyle属性~
至于第二题,小弟学艺不精,只知道怎么改表单背景颜色。
“退出”命令按钮双击 输入 thisform.release
后面修改标题和name 楼主会做了吧~~