设计表单ABC1.SCX步骤如下:
1.打开表单设计器,向表单内添加:Label1、Text1、Text2、Command1、Command2
2. 按实训教程158页设计各对象的属性和属性值
3.在Command1的Click事件中写入代码:
x=val(this
form.text1.value)
do case
case x=1
thisform.text2.value="Sunday"
case x=2
thisform.text2.value="Monday"
case x=3
thisform.text2.value="Tuesday"
case x=4
thisform.text2.value="Wedensday"
case x=5
thisform.text2.value="thursday"
case x=6
thisform.text2.value="Friday"
case x=7
thisform.text2.value="Saturday"
endcase
thisform.text2.readonly=.T.
4.在Command1的Click事件中写入代码:
ThisForm.Release
5. 保存并运行表单。
第十二章 菜单设计
一、选择题