计算机技术基础（VB）学习内容
第一节 菜单的设计 一、下拉式菜单 1．下拉式菜单的结构 2．菜单编辑器 菜单项：看成控件，具有其属性、事件、方法。 菜单项也称为菜单控件。 菜单设计：通过“菜单编辑器”完成。 打开菜单编辑器： 首先使窗体成为当前窗体 执行“工具”菜单下的“菜单编辑器”命令 单击标准工具栏的“菜单编辑器”按钮 从窗体快捷菜单中选择“菜单编辑器”命令 菜单编辑器结构：属性区、编辑区、菜单列表区 注：标题框中键入“-”和“&”符号的作用。 不能给顶级菜单项加快捷键。 【例10-1】设计菜单界面，各主菜单项及其下拉菜单如下图所示。下拉菜单中的子菜单项用于对文本框Text1设置字体、字号、文字颜色和文字效果。其中，效果子菜单下的各菜单项具有复选功能，设运行初始时各项前面没有√符号，与文本框的初始状态一致。 菜单编辑器设置如下表： （1）“字体”菜单下的菜单项设计成一个控件数组AA1，共享以下事件过程： Private Sub AA1_Click（Index As Integer） Text1.Font=AA1（Index）.Caption End Sub （2）“字号”菜单下的菜单项设计成一个控件数组BB1，共享以下事件过程： Private Sub BB1_Click（Index As Integer） Text1.FontSize=Val（BB1（Index）.Caption） End Sub （3）“颜色”菜单下的各菜单项为独立的菜单控件，因此应分别在其单击事件过程中编写代码，各事件过程如下： Private Sub CC1_Click（） Text1.ForeColor=vbRed End Sub Private Sub CC2_Click（） Text1.ForeColor=vbGreen End Sub Private Sub CC3_Click（） Text1.ForeColor=vbBlue End Sub （4）“效果”菜单下的各菜单项具有复选功能，每次单击时应切换成另一种状态，因此要判断当前菜单项的Checked属性，各事件过程如下： Private Sub DD1_Click（） If DD1.Checked=True Then Text1.FontStrikethru=False DD1.Checked=False Else Text1.FontStrikethru=rue DD1.Checked=True End If End Sub Private Sub DD2_Click（） If DD2.Checked=True Then Text1.FontUnderline=False DD2.Checked=False Else Text1.FontUnderline=True DD2.Checked=True End If End Sub Private SubDD3_Click（） If DD3.Checked=True Then Text1.FontBold=False DD3.Checked=False Else Text1.FontBold=True DD3.Checked=True End If End Sub Private Sub DD4_Click（） If DD4.Checked=True Then Text1.FontItalic=False DD4.Checked=False Else Text1.FontItalic=True DD4.Checked=True End If End Sub 二、弹出式菜单 弹出式菜单:上下文菜单、快捷菜单、右键菜单 为某对象设计弹出式菜单的步骤: (1) 在菜单编辑器中设计各菜单项，然后将顶级菜单设置为不可见。 (2) 在对象的MouseDown事件过程中编写代码，用以下的PopupMenu方法显示弹出式菜单: [<窗体名>]PopupMenu<菜单名> ,flags[,x[,y[,boldcommand]]]] 功能: 在当前鼠标位置或指定的坐标位置显示弹出式菜单。 说明: 见P171-172 第二节 工具栏的设计 一、用手工方式制作工具栏 二、使用工具栏控件（ToolBar）制作工具栏 第三节 状态栏的设计（略） 第四节 多文档界面设计 示例1：【例10-3】工具栏 示例2：【例10-4】状态栏 示例3：【例10-5】多文档界面设计 第五节 对话框的设计 1．对话框：特殊类型的窗体对象。 2．作用：是用户和应用程序交互的主要途径。 3．建立方法： 使用预定义对话框，即输入框、消息框。 自定义对话框。 使用CommonDialog控件创建通用对话框。 一、自定义对话框 设计步骤： （1）添加窗体：工程(添加窗体。 （2）将窗体定义成对话框风格。 如：不能移动、改变尺寸、最大或最小化 例：BorderStyle设置为1—单边框，不能改变大小 ControlBox设置为False—删除控制菜单框 MaxButton设置为False—删除最大化按钮 MinButton设置为False—删除最小化按钮 （3）在对话框上添加按钮，如“确定”与“取消”按钮。 （4）在对话框上添加其它控件。 （5）在适当的位置编写显示对话框的代码。 两种显示方式：模式对话框与无模式对话框。 显示模式对话框： 窗体名.Show vbModal 或：窗体名.Show 1 显示无模式对话框： 窗体名.ShowvbModeless 或：窗体名.Show 0 或：窗体名.Show 例如：Form2.ShowvbModal Form2.ShowvbModeless 为确保对话框可以随其父窗体的最小化而最小化，随其父窗体的关闭而关闭，需要在Show方法中定义父窗体。 例如：Private Sub Command1_Click（） Form2.Show vbModeless,Form1 End Sub （6）编写从对话框退出的代码 例如：Unload Form2 或：Form2.Hide 【例10-6】设计对话框Form2如下图所示。当输入某文件所在的路径及名称后，单击“确定”按钮按所选择的运行方式运行该文件，单击“取消”按钮取消本次操作，返回窗体Form1中。如果输入文件名错误，将给出警告并返回该对话框。 对话框Form2代码如下： 二、通用对话框 使用通用对话框控件（CommonDialog）可以创建多种标准对话框。 设计步骤： （1）添加：工程(部件(选择 “Microsoft Common Dialog Controls 6.0” （2）在窗体的任意位置画通用对话框控件。 （3）设置通用对话框控件的“属性页”。 （4）在代码中使用以下方法打开对话框。 ShowOpen：显示“打开文件”对话框 ShowSave：显示“文件存储”对话框 ShowColor：显示“颜色”对话框 ShowFont：显示“字体”对话框 ShowPrinter：显示“打印”对话框 ShowHelp：显示“帮助”对话框 1．文件对话框 属性页： 【例10-7】使用打开文件对话框，在运行时打开一幅图像。 在窗体Form1上放置一个图像控件、一个通用对话框控件、一个命令按钮，界面如图所示。 其中，CommonDialog1的属性页设置如下： “装入图像”按钮代码如下： Private Sub Command1_Click（） 在对话框中按取消按钮的处理： （1）不处理：不设置“取消引发错误” （2）处理：设置“取消引发错误”，编写代码如下： Private Sub Command1_Click（） 2．颜色、字体对话框 属性页： 【例10-8】设计如图所示的界面，运行时单击“背景色”按钮打开颜色对话框，在对话框中选择的颜色用于设置文本框的背景颜色，单击“字体”按钮打开字体对话框，在对话框中选择字体、效果及颜色，用于设置文本框文字的字体、效果及颜色。 “背景色”按钮Command1的Click事件过程如下： 本章小结 1．下拉式菜单的设计 （1）打开菜单编辑器，设置各菜单项的属性。 （2）编写菜单命令的Click事件过程。 2．弹出式菜单的设计 （1）打开菜单编辑器，设置各菜单项的属性。将顶级菜单设置为不可见。 （2）在对象的MouseDown事件过程中编写代码，用PopupMenu方法显示弹出式菜单。 （3）编写实现菜单命令功能的代码 3．对话框的设计 （1）自定义对话框的设计：模式与无模式对话框 （2）使用CommonDialog控件创建通用对话框。 打开文件、文件存储、颜色、字体、…… |
||||||||||||||||||||||||||||||
|
|
