第 1 页:选择题 |
第 5 页:操作题 |
第 6 页:参考答案 |
二、基本操作题
(1)通用对话框(CommonDialog)提供诸如打开文件、保存文件、设置打印选项、选择颜色、设置字体、显示帮助等撰作的一组标准对话框,通用对话框显示这些对话框对应的方法分别为ShowOpen、ShowSave、ShowPrinter、ShowColor、ShowFont、ShowHelp。该控件运行时不可见。通用对话框的Action属性也可用于设置被打开对话框的类型。
根据题意,新建“标准EXE”工程,一个命令按钮和一个文件对话框控件添加到窗体中,CommonDialog 控件需要选择“工程”一“部件”命令,或在左侧工具箱中单击鼠标右键,选择“部件”菜单,打开“部件”对话框,将Microsoft Common Dialog Control 6.0前面的复选按钮勾上,单击“确定”按钮,则添加成功,再同其他控件一样添加到窗体上,其名称为CommonDialog1。命令按钮的名称为Command1、Caption属性为“打开文件”。双击Command1进入代码窗口,编写如下代码:
Private Sub Command1_Click()
CommonDialog1.ShowOpen ’打开CommonDialog
End Sub
单击 按钮运行程序,并按要求保存。
(2)MsgBox()函数用于显示提示信息,并可返回一个代表用户点击了哪个按钮的Integer类型值,其常用语法为:MsgBox(prompt[-,buttons3[,title])。其中,prompt参数为消息框的提示信息;buttons参数用于控制消息框中按钮的数目、形式及消息框图标的样式;title参数为消息框标题栏上显示的内容。
根据题意,新建“标准EXE”工程,将一个List控件添加到窗体中,其名称为List1、List属性中添加“I tem1”、“Item2”、“Item3”和“Item4”。双击List1进入代码编写窗口补充后的代码如下:
Private Sub List1_DblClick()
Dim a As Integer
a=MsgBox("是否删除",vbYesNo)
’弹出提示对话框
If a=6 Then’6表示选择“是”
List1.RemoveItem List1.ListIndex’删除选中项
Entl If
End Sub
单击 按钮运行程序,并按要求保存。
相关推荐:
北京 | 天津 | 上海 | 江苏 | 山东 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
广东 | 河北 | 湖南 | 广西 | 河南 |
海南 | 湖北 | 四川 | 重庆 | 云南 |
贵州 | 西藏 | 新疆 | 陕西 | 山西 |
宁夏 | 甘肃 | 青海 | 辽宁 | 吉林 |
黑龙江 | 内蒙古 |