(1)在窗体Forml上画一个命令按钮,名称为Command1,标题为“打开文件”,在窗体上添加适当的控件并编写适当的程序代码,要求程序运行时,单击“打开文件”命令按钮,可以弹出“打开文件”对话框。程序运行时的窗体界面如图5—1所示。 注意:保存时

admin2010-07-13  23

问题 (1)在窗体Forml上画一个命令按钮,名称为Command1,标题为“打开文件”,在窗体上添加适当的控件并编写适当的程序代码,要求程序运行时,单击“打开文件”命令按钮,可以弹出“打开文件”对话框。程序运行时的窗体界面如图5—1所示。
    注意:保存时必须存放在考生文件夹下,窗体文件名为sj1.frm,工程文件名为sj1.vbp。
    (2)在窗体Forml上画一个列表框,名称为List1,有“Item1”、“Item2”、“Itera3”和“Item4”4个表项。要求编写适当的程序代码,当双击列表中某一项时,弹出一个对话框提示“是否删除”。对话框中只有“是”与“否”两个选择按钮,单击按钮,则继续当前的操作。程序运行时的窗体界面如图5—2所示。

    注意:保存时必须存放在考生文件夹下,窗体文件名为sj2.frm,工程文件名为si2.vbp。

选项

答案 (1)通用对话框(CommonDialog)提供诸如打开文件、保存文件、设置打印选项、选择颜色、设置字体、显示帮助等操作的一组标准对话框,通用对话框显示这对话框对应的方法分别为ShowOpen、ShowSave、ShowPrinter、ShowColor、ShowFont、ShowHelp。该控件运行时不可见。通用对话框的Action属性也可用于设置被打开对话框的类型。 根据题意,新建“标准EXE”工程,一个命令按钮和一个文件对话框控件添加到窗体中,CommonDialog控件需要选择“工程”→“部件”命令,或在左侧工箱中单击鼠标右键,选择“部件”菜单,打开“部件”对话框,将Microsoft Common Dialog Control 6.0前面的复选按钮勾上,单击“确定”按钮,则添加成功,再同其他控件一样添加到窗体上,其名称为CommonDialogl。 命令按钮的名称为Commandl、CaptiOn属性为“打开文件”。双击Commandl进入代码窗口,编写如下代码: Private Sub Commandl_Click() CommonDialogl.ShowOpen’打开CommonDialog End Sub 单击[*]按钮运行程序,并按要求保存。 (2)MsgBox()函数用于显示提示信息,并可返回一个代表用户点击了哪个按钮的Integer类型值,其常用语法为:MsgBox(prompt[,buttons][,title])。其中,prompt参数为消息框的提示信息;buttons参数用于控制消息框中按钮的数目、形式及消息框图标的样式;title参数为消息框标题栏上显示的内容。 根据题意,新建“标准EXE”工程,将一个List控件添加到窗体中,其名称为Listl、List属性中添加“heml”、“Item2”、“Itern3”和“Item4”。双击Listl进入代码编写窗口补充后的代码如下: Private Sub Listl DblClick() Dim a AS Integer a=MsgBox("是否删除",vbYesNo) ’弹出提示对话框 If a=6 Then’6表示选择"是" Listl.Removehem Listl.Listlndex’删除选中项 End If End Sub 单击[*]按钮运行程序,并按要求保存。

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

最新回复(0)