vb考试

六、工具栏的设计 工具栏（也称为发条或者控制栏）已经成为许多基于Windows的应用程序的标准功能。工具栏提供了对于应用程序中最常用的菜单命令的快速访问。 可以使用ToolBar控件来轻松的创建工具栏，也可以使用应用程序向导来创建工具栏，方法更加简便。 1、利用应用程序向导创建工具栏 应用程序向导是VB6.0为用户提供的一项功能，通过应用程序向导用户可以很快设计出一个标准Windows程序的框架，其中包括窗体、菜单、工具栏、多文档、状态栏、对话框、滚动条等等。设计过程是在对话中完成，设计完成后形成应用程序的界面和框架。 创建一个标准的应用程序框架步骤如下： 在"新建工程"对话框中选中"VB应用程序向导"后单击[打开]命令按钮确认。 按向导导航单击一次[下一步]按钮进入"界面类型"对话框，选中"多文档界面"，为工程取名为"MyApplication",单击[下一步]确认。 进入"菜单"对话框，可以进行菜单设计，设计完成单击[下一步]按钮确认，进入"自定义工具栏"对话框。 在"自定义工具栏"对话框中可以自行设计工具栏，设计完成单击[完成]确认。 2、使用ToolBar控件创建工具栏 使用ToolBar控件创建工具栏也是非常简单的工作，基本的属性设置可以通过对话框完成。给示例Mymenu设计一个具有四个工具按钮的工具栏，分别对应菜单中的"新建"、"打开"、"粗体"、"斜体"等四个菜单项，并完成相应的功能。 首先从"部件"对话框中选中Microsoft Windows Common Controls6.0，确认后则ToolBar控件添加到工具箱中。 将ToolBar控件添加到窗体上。 用鼠标右键点击窗体上的ToolBar对象，在弹出的快捷菜单上单击[属性]选项，打开"属性页"对话框 ，选择"按钮"标签，单击[插入按钮]，插入五个工具按钮，索引分别为1，2，3，4，5。在属性页上设置工具按钮的属性，各工具按钮的设计属性值如下表： 索引值 标题 样式 1 New thrDefault 2 Open thrDefault 3 thrSeparator（分隔符） 4 B thrCheck 5 I thrCheck 关于“样式”的说明： 值 常数 按钮 说明 0 tbrDefault 普通按钮 按下按钮后恢复原状，如“新建”按钮 1 tbrCheck 开关按钮 按下按钮后保持按下状态，如“加粗”等按钮 2 tbrButtonGroup 编组按钮 在一组按钮中只能有一个有效，如对齐方式按钮 3 tbrSepatator 分隔按钮 将左右按钮分隔开 4 tbrPlaceholder 占位按钮 用来安放其它按钮，可以设置其宽度（width） 5 tbrdropdown 菜单按钮 具有下拉菜单，如Word中的“字符缩放”按钮 用鼠标左键双击工具栏对象，编写Click事件响应代码如下： Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 mnuNew_Click Case 2 mnuOpen_Click Case 4 mnuBold_Click Case 5 mnuItalic_Click End Select End Sub-------------------------------------------------------------------------------- Private Sub mnuBold_Click() mnuBold.Checked = Not mnuBold.Checked Text1.FontBold = mnuBold.Checked End Sub-------------------------------------------------------------------------------- Private Sub mnufotesize_Click(Index As Integer) Select Case Index Case 0 Text1.FontSize = 20 Case 1 Text1.FontSize = 30 End Select End Sub-------------------------------------------------------------------------------- Private Sub mnuItalic_Click() mnuItalic.Checked = Not mnuItalic.Checked Text1.FontItalic = mnuItalic.Checked End Sub-------------------------------------------------------------------------------- Private Sub mnuNew_Click() Form1.Caption = "新文件" Text1.Visible = True Text1.Text = "" End Sub-------------------------------------------------------------------------------- Private Sub mnuOpen_Click() Form1.Caption = "文件" Text1.Visible = True End Sub 保存工程运行程序。 [程序演示] [程序下载] 3、利用ImageList控件在工具按钮上显示图像 在创建ToolBar控件之前，应创建一个ImageList控件并添加你想要的图像。 ImageList控件 ImageList 控件包含 ListImage 对象的集合，该集合中的每个对象都可以通过其索引或关键字被引用。ImageList 控件不能独立使用，只是作为一个便于向其它控件提供图象的资料中心。如工具栏控件（ToolBar）中的图像就是从ImageList 控件中获取的。

二、多窗体程序设计 　　 当应用程序功能较强和分类较多，程序和用户的交互频繁时，如果只用一个窗体和用户进行交互，一方面难以进行合乎美观原则的设计，另一方面分类工作很难，设计出来的界面不符合友好原则。这时使用多重窗体程序设计，增强程序界面的友好性。 多窗体指的应用中有多个窗体，它们之间没有绝对的从属关系。每个窗体的界面设计与单窗体的完全一样，只是在设计之前应先建立窗体，这可以通过菜单“工程”/“添加窗体”命令实现。程序代码是针对每个窗体编写的，当然，应注意窗体之间存在的先后顺序和相互调用的关系。所以，多重窗体实际上是单一窗体的集合，而单一窗体是多重窗体程序设计的基础。 　　一般说来，多窗体的设计基本分成以下几个步骤：　　 　◆分析应用要求，将其功能划分为不同的几部分 　◆分别创建各个窗体、模块 　◆在创建窗体时，除各窗体自身要完成的功能外，还要考虑窗体之间的调用关系 　◆点击[工程]/[属性]菜单，在[启动对象]中选择应用运行时首先执行的对象 　◆运行应用程序，检验应用及各窗体的运行情况 1、多窗体程序设计常用的方法 在单窗体程序设计中，所有的操作都在一个窗体中完成，不需要在多个窗体中切换。而在多窗体程序中，需要打开、关闭、隐藏或显示指定的窗体，这可以通过相应的语句和方法来实现。 在多窗体程序设计经常用到下面四种方法：Load,Show Hide和Unload. （1）Load方法 它的语法结构如下： Load [窗体名称] 使用Load方法调用的窗体被存入内存，并不显示出来，同时会产生一个Form_Load()事件。 例如：Load Form2 "将Form2窗体存入内存 （2）Show方法 它的语法结构如下： [窗体名称].Show Show方法用来显示被调用的窗体。Show方法兼有装入和显示两种功能，也就是说，在执行Show方法时，如果窗体不在内存中，则Show方法会自动的把窗体调入内存，然后再显示出来。 例如： Load Form2 Form2.Show "将Form2存于内存，并显示Form2窗体 （3）Hide方法 它的语法结构如下： [窗体名称].Hide 使用Hide方法会隐藏被调用的窗体，既不在屏幕上显示，但仍在内存中（与Unload方法不同），被调用的窗体中的属性等已经处于无效的状态。 例如： Form1.Hide Form2.Show "将Form隐藏，并显示Form2窗体 （4）Unload方法 它的语法结构如下： Unload [窗体名称] 使用Unload方法会清除内存中指定的窗体，与此同时，窗体中的变量和属性等都会处于无效的状态，在移去窗体的同时会产生一个Form_QueryUnload()事件。 例如：Form1.Show Unload Form2"显示Form1窗体，从内存中移去Form2窗体。 2、一个多窗体程序设计示例　　　　　　 下面就以一个示例来说明如何运进多窗体的程序设计（见教材P283）。 （1）启动新工程 1）设置属性　　 首先启动一个新的工程，屏幕出现一个空白的窗体，窗体的属性设置如下： 属性 设置 Name Form1 Caption Form1 BorderStyle 3-Fixed Dialog"窗体的大小不能够在程序的运行过程中改变 MDIChild False StartUpPosition 2-CenterScreen"窗体在程序的运行过程中始终位于屏幕的中央 Moveable False"在程序的运行过程中不能够移动窗体2）添加控件 　　在空白的窗体上添加如下控件：五个Label控件、四个TextBox控件和两个CommandButton控件。 　　　　　　　　　　　　　（2）添加窗体 选择菜单“工程（Project）”/“添加窗体（add form）”命令,弹出对话框，在添加窗体的对话框中选择"窗体"项，单击[打开]按钮，系统就会自动的向原有的工程中添加一个窗体。1）添加控件 　　 在新的窗体上放置一CommandButton控件，作用是在隐藏新增的窗体的同时显示原有的窗体。 则窗体如下：2）添加代码 在"继续"按钮的Command1_Click()事件中添加下列代码： Private Sub Command1_Click() Form2.Hide "隐藏窗体2 Form1.Show "显示窗体1 End Sub 程序说明：在窗体Form2被显示的过程中，单击[继续]按钮，就会激活Command1_Click()事件，然后通过Form2.Hide 和Form2.Show两条语句实现隐藏窗体和显示窗体的功能。 （3）添加说明模块 选择菜单[工程]/[添加模块],就会弹出对话框：在模块的声明段中添加下列代码： Global a1 as Single Global a2 as Single Global a3 as Single Global a3 as Single "定义四个全局变量，分别用来存储第一季度，第二季度、第三季度和第四季度的销售情况 （4）添加程序代码 1）窗体Form1中的代码如下： Private Sub Command1_Click() 　Form1.Hide 　Form2.Show End Sub Private Sub Command2_Click() 　End End Sub Private Sub Text1_Change() 　a1 = Val(Text1.Text)　＇VAL()函数用于将字符串转化为数值型 End Sub Private Sub Text2_Change() 　a2 = Val(Text2.Text) End Sub Private Sub Text3_Change() 　a3 = Val(Text3.Text)