二级VB CH09

null计算机等级考试 二级VB计算机等级考试 二级VB信息工程学院 包怀忠 E-Mail：baohzh@126.com 手机：15055260972目 录目 录CH09 菜单与对话框1CH09 菜单与对话框CH09 菜单与对话框大纲 1、用菜单编辑器建立菜单 2、菜单项的控制： (1)有效性控制。 (2)菜单项标记。 (3)键盘选择。 3、菜单项的增减。 4、弹出式菜单。 5、通用对话框。 6、文件对话框。 7、其他对话框（颜色、字体、打印对话框）。CH09 菜单与对话框CH09 菜单与对话框重点 1.用菜单编辑器建立菜单 菜单的概念：菜单栏、菜单项 菜单的类别：下拉式菜单，弹出式菜单 启动菜单编辑器 菜单、工具栏、弹出式菜单 注：只有窗体窗口为活动窗口时才能启动菜单编辑器 CH09 菜单与对话框CH09 菜单与对话框CH09 菜单与对话框CH09 菜单与对话框菜单编辑器的说明 标题(Caption) 显示的菜单名，即菜单的Caption属性 特殊的标题：减号(-)，将产生菜单分隔线 名称(Name)与索引(Index) 每一个菜单项都是一个控件，有一个控件名； 可以将若干个连续且属于相同菜单栏的子菜单设置为控件数组，这时它们的Name属性相同，Index属性定义控件数组的下标。 复选(Checked)、有效（Enabled）、可见（Visible） 快捷键CH09 菜单与对话框CH09 菜单与对话框菜单事件 菜单项和命令按钮非常类似：都响应鼠标单击事件，即每个菜单项都拥有一个事件处理过程Name_Click()（这里的Name示菜单项的名称）。每当单击菜单项时，VB就调用Name_Click()过程，执行这一过程中的代码。CH09 菜单与对话框CH09 菜单与对话框2.菜单项的增减 在代码中增加菜单 至少首先在设计时建立菜单控件数组的第0个元素 加载新增的菜单：Load <菜单控件数组>(Index) 使新增的菜单可见： <菜单控件数组>(Index).Visible=True 删除菜单 代码中只能删除用Load加载的菜单 删除方法：UnLoad <菜单控件数组>(Index) CH09 菜单与对话框CH09 菜单与对话框3.弹出式菜单 利用菜单编辑器建立一个菜单，包含一个主菜单及其下拉的若干菜单项； 将建立的主菜单设置为不可见； 弹出菜单 PopupMenu “主菜单名” ,[flags],[x],[y] Flags参数定义菜单位置 0（默认）：菜单的左上角位于x,y 4：菜单上框中央位于x,y 8：菜单右上角位于x,y 弹出菜单通常放到窗体的MouseDown 事件 If Button = 2 Then PopupMenu “主菜单名” CH09 菜单与对话框CH09 菜单与对话框5.通用对话框 加载 “工程”菜单中的“部件”子菜单项，显示“部件”对话框； 在“控件”选项卡中，选中公共对话框控件 “Microsoft Common Dialog Control 6.0”并单击“确定”按钮； 工具箱上将增加通用对话框控件的图标CH09 菜单与对话框CH09 菜单与对话框通用对话框的类别 共有六种形式的通用对话框，其类型由Show系列方法和Action属性共同决定。 公共属性：DialogTiTle （对话框标题）CH09 菜单与对话框CH09 菜单与对话框6.文件对话框 类别：文件打开对话框和另存为对话框 属性 FileName：该属性值为字符串，用于返回或设置用户所选的文件名(包括路径名)。 FileTitle：该属性设计时无效，在程序中为只读，用于返回文件名（不包含路径） 。 InitDir：初始化路径属性。该属性用来指定打开对话框中的初始目录。该属性缺省则显示当前日录。 DefaultExt：打开或保存文件时没有指定扩展名，这个属性指定文件的缺省扩展名。 CH09 菜单与对话框CH09 菜单与对话框Filter：过滤器属性 该属性用于过滤文件类型，是一个字符串，使文件对话框中只显示指定类型的文件。 ：文件类型描述字符串1|文件类型描述字符串2|… 文件类型描述字符串：文件类型说明|文件类型通配符 文件类型通配符 ：*.<文件扩展名> 如：<对话框名>.Filter=” Word文档(*.DOC)|*.DOC|文本文件(*.TXT)|*.TXT|所有文件(*.*)|*.*”CH09 菜单与对话框CH09 菜单与对话框FilterIndex 过滤器索引属性。当在过滤器中指定多种文件类型时，在程序中就需要判断用户到底操作了哪种文件类型，以便对不同类型的文件作不同的处理，在过滤器字符串的第一个文件类型的FilterIndex为1，第二个为2，依次递增。 CH09 菜单与对话框CH09 菜单与对话框7.其他对话框 颜色对话框 Color属性：它返回或设置选定的颜色。 CH09 菜单与对话框CH09 菜单与对话框字体对话框 属性：Color 、FontName 、FontSize、FontBold、FontItalic、FontStrikethru、FontUnderlineCH09 菜单与对话框CH09 菜单与对话框打印机对话框 帮助对话框CH09 菜单与对话框CH09 菜单与对话框考试 选择题（4分，菜单与对话框各一题） 1.假定有下表所列的菜单结构： 标题 名称 层次 显示 appear 1（主菜单） 大图标 bigicon 2（子菜单） 小图标 smallicon 2（子菜单） 要求程序运行后，如果单击菜单项“大图标”，则在该菜单项前添加一个“√”。以下正确的事件过程是（　）。CH09 菜单与对话框CH09 菜单与对话框A）Private Sub bigicon_Click() 　　　　bigicon.Checked = False 　　End Sub B）Private Sub bigicon_Click() 　　　　Me. appear.bigicon.Checked = True 　　End Sub C）Private Sub bigicon_Click() 　　　　bigicon.Checked = True 　　End Sub D）Private Sub bigicon_Click() 　　　　appear.bigicon.Checked = True 　　End Sub CH09 菜单与对话框CH09 菜单与对话框２.假定通用对话框的名称为CommonDialog1，命令按钮的名称为Command1，则单击命令按钮后，能使打开的对话框的标题为“New Title”，并显示颜色对话框的事件过程是（　）。 A）Private Sub Command1_Click() 　　CommonDialog1.DialogTitle = "New Title" 　　CommonDialog1.ShowPrinter 　End Sub B）Private Sub Command1_Click() 　　CommonDialog1.DialogTitle = "New Title" 　　CommonDialog1.ShowFont 　End SubCH09 菜单与对话框CH09 菜单与对话框C）Private Sub Command1_Click() 　　CommonDialog1.DialogTitle = "New Title" 　　CommonDialog1.ShowOpen 　End Sub D）Private Sub Command1_Click() 　　CommonDialog1.DialogTitle = "New Title" 　　CommonDialog1.ShowColor 　End Sub CH09 菜单与对话框CH09 菜单与对话框3.窗体上有1个名称为CD1的通用对话框，1个名称为Command1的命令按钮。命令按钮的单击事件过程如下： Private Sub Command1_Click() 　CD1.FileName="" 　CD1.Filter="All Files|*.*|(*.DoC)|*.Doc|(*.Txt)|*.txt" 　CD1.FilterIndex=2 : CD1.Action=1 End Sub 关于以上代码，错误的叙述是。 A) 执行以上事件过程，通用对话框被设置为“打开”文件对话框 B) 通用对话框的初始路径为当前路径 C) 通用对话框的默认文件类型为*.Txt D) 以上代码不对文件执行读写操作 CH09 菜单与对话框CH09 菜单与对话框4.以下说法正确的是 （　　） 。 A．任何时候都可以通过执行“工具”菜单中的“菜单编辑器”命令打开菜单编辑器 B．只有当某个窗体为当前活动窗体时，才能打开菜单编辑器 C．任何时候都可以通过单击工具栏上的“菜单编辑器”按钮打开菜单编辑器 D．只有当代码窗品为当前活动窗口时，才能找开菜单编辑器 CH09 菜单与对话框CH09 菜单与对话框5.在窗体上画一个通用对话框，其名称为 CD1 ，然后画一个命令按钮，并编写如下事件过程： Private Sub Command1_Click() 　CD1. Filter=”All Files(*.*)|*.*|Text Files” & _ “(*.txt)|*.txt| Executable Files(*.exe)|*.exe” 　CD1. Filterindex=3 : CD1. ShowOpen 　MsgBox CD1. FileName End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是 （　　） 。 A．All Files(*.*) B．Text files(*.txt) C．Executable Files(*.ext) D．不确定 CH09 菜单与对话框CH09 菜单与对话框6.在窗体上有1个名为Cd1的通用对话框,为了在运行程序时打开保存文件对话框,则在程序总应使用的语句是() A)Cd1.Action=2 　　 B)Cd1.Action=1 C)Cd1.ShowSave=Ture 　　D)Cd1.ShowSave=0 7.下面关于菜单的叙述中错误的是() A)各级菜单中的所有菜单项的名称必须唯一 B)同一子菜单中的菜单项名称必须唯一,但不同子菜单中的菜单项名称可以相同 C)弹出式菜单用PopupMenu方法弹出 D)弹出式菜单也用菜单编辑器编辑CH09 菜单与对话框CH09 菜单与对话框8.为使程序运行时通用对话框CD1上显示的标题为“对话框窗口”，若通过程序设置该标题，则应使用的语句是 A)CD1.DialogTitle=“对话框窗口” B)CD1.Action=“对话框窗口” C)CD1.FileName=“对话框窗口” D)CD1.Filter=“对话框窗口” CH09 菜单与对话框CH09 菜单与对话框9.窗体上有文本框Text1和一个菜单，菜单标题、名称如表，结构见图。要求程序执行时单击“保存”菜单项，则把其标题显示在Text1文本框中。下面可实现此功能的事件过程是：CH09 菜单与对话框CH09 菜单与对话框A）Private Sub save_Click() 　　　　Text1.Text=file.save.Caption 　　 End Sub B）Private Sub save_Click() 　　　　Text1.Text=save.Caption 　　 End Sub C）Private Sub file_Click() 　　　　Text1.Text=file.save.Caption 　　 End Sub D）Private Sub file_Click() 　　　　Text1.Text=save.Caption 　　 End Sub CH09 菜单与对话框CH09 菜单与对话框10.窗体上有一个名为CD1的通用对话框和四个命令按钮组成的控件数组Command1，其下标从左到右分别为0、1、2、3，窗体外观如图所示，命令按钮事件过程如下： Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 CD1.Action = 1 Case 1 CD1.ShowSave Case 2 CD1.Action = 5 Case 3 End End Select End SubCH09 菜单与对话框CH09 菜单与对话框对上述程序，下列叙述中错误的是 A）单击“打开”按钮，显示打开文件对话框 B）单击“保存”按钮，显示保存文件对话框 C）单击“打印”按钮，能够设置打印选项，并执行打印操作 D）单击“退出”按钮，结束程序的运行CH09 菜单与对话框CH09 菜单与对话框A）在设计“粘贴”菜单项上，在菜单编辑器窗口中设置了“有效”属性（有“√”） B）菜单中的横线是在该菜单项的标题输入框中输入了一个“-”（减号）字符 C）在设计“选中”菜单项时，在菜单编辑器窗口中设置了“复选”属性（有“√”） D）在设计该弹出菜单的主菜单项时，在菜单编辑器窗口中去掉了“可见”前面的“√”11.窗体上由一个用菜单编辑器设计的菜单，运行程序，并在窗体上单击鼠标右键，则弹出一个快捷菜单，如图所示。则以下叙述中错误的是CH09 菜单与对话框CH09 菜单与对话框12.在菜单编辑器中建立1个名称为Menu0的菜单项，将其“可见”属性设置为False，并建立其若干子菜单，然后编写如下过程： Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Button=1 Then PopupMenu Menu0 End Sub 则以下叙述中错误的是。 A) 该过程的作用是弹出一个菜单 B) 单击鼠标右键时弹出菜单 C) Menu0是在菜单编辑器中定义的弹出菜单的名称 D) 参数X、Y指明鼠标当前位置的坐标 CH09 菜单与对话框CH09 菜单与对话框（2分） 1.在窗体上画1个命令按钮和1个通用对话框，其名称分别为Command1和CommonDialog1，然后编写如下事件过程： Private Sub Command1_Click() CommonDialog1.【 】="打开文件" CommonDialog1.Filter="All Files(*.*)|*.*" CommonDialog1.InitDir="C:\" CommonDialog1.ShowOpen End Sub 该程序的功能是，程序运行后，单击命令按钮，将显示“打开”文件对话框，其标题是“打开文件”，在“文件类型”栏内显示“AIl Files(*.*)”，并显示C盘根目录下的所有文件，请填空。 DialogTitleCH09 菜单与对话框CH09 菜单与对话框2.在窗体上有一个名称为CD1通用对话框和一个名称为Command1的命令按钮，并编写如下事件过程： Private Sub Command1_Click() CD1.Filter = "All Files(*.*)|*.*|Text Files(*.txt)" _ & "|*.txt|Batch Files(*.bat)|*.bat" CD1.FilterIndex = 1 CD1.ShowOpen MsgBox CD1.FileName End Sub 程序运行后，单击命令按钮，将显示一个打开对话框，此时文件类型框中显示的是【 】，如果在对话框中选择d盘Temp目录下的Tel.txt文件并单击“确定”按钮，则MsgBox显示的提示信息是【 】All File(*.*) d:\temp\tel.txtnull