【正确答案】步骤1:通过“新建”对话框新建表单,文件名为testA.scx。
步骤2:在表单设计器的属性窗口中设计表单的Caption属性为“选择磁盘文件”。
步骤3:在表单设计器中,通过表单控件工具栏向表单添加一个选项按钮组控件Optiongroup1,在属性窗口中设置其ButtonCount属性为3。
步骤4:选中选项按钮组控件并右击,在弹出的菜单中选择“编辑”命令,选中其中的Option1,在属性窗口中设置其Caption属性为“*.doc”;选中其中的Option2,在属性窗口中设置其Caption属性为“*.xls”;选中其中的Option3,在属性窗口中设置其Caption属性为“*.txt”,在选项按钮组的Click事件中添加如下代码:
Do Case
Case thisform.optiongroup1.value=1
thisform.list1.rowsource="*.doc"
Case thisform.optiongroup1.value=2
thisform.list1.rowsource="*.xls"
Case thisform.optiongroup1.value=3
thisform.list1.rowsource="*.txt"
Endcase
步骤5:为表单添加一个列表框控件(List1),在属性窗口中设置其ColumnCount属性为1、RowSourceType属性为“7-文件”、RowSource属性为“ThisForm.List1.RowSource=Thisform.Optiongroup1.value”。
步骤6:为表单添加一个命令按钮控件(Command1),在属性窗口中设置其Caption属性为“退出”。
步骤7:双击“退出”按钮,编写其Click事件代码Thisform.Release,并关闭代码编写窗口。
步骤8:保存修改后的表单并运行。