vb菜单与工具栏设计.pptVIP

第4章 菜单与工具栏设计 4.1 菜 单 设 计 4.1.1 任务一 菜单控件 4.1.2 任务二 菜单编辑器 4.1.3 任务三 创建菜单的步骤 4.1.4 任务四 菜单控件数组 在Visual Basic中，菜单也是图形对象，即控件，所以可以运用数组的概念。菜单控件数组的作用主要有以下两方面： （1）用于动态地增加和删除菜单项； （2）简化了编程过程，用一段代码处理多个菜单项。 4.1.5 任务五 弹出式菜单 4.2 工具栏设计 4.2.1 任务一 使用ToolBar控件 4.2.2 任务二 使用CoolBar控件 4.3 状态栏设计 在例4-2的基础上进行操作。 （1）修改应用程序用户界面。将窗体上的图片框及其中的命令按钮及复选框删除，再添加一个工具栏控件ToolBar1和一个图像列表控件ImageList1。设置ToolBar1的Align属性为1-cdlAligntop，如图4-19所示。 （2）通过“属性”对话框设置工具栏控件与图像列表控件的属性。先选中图像列表控件ImageList1并右击，在弹出的快捷菜单中选择“属性”命令即可打开“属性页”对话框，切换到“图像”选项卡，单击“插入图片”按钮，并依次从common\graphic\bitmaps\tlbr_w95目录中选取图片文件New.bmp、Open.bmp、Save.bmp、Cut.bmp、Copy.bmp、Paste.bmp，如图4-20所示，单击“确定”按钮关闭“属性页”对话框。 Case 2??? ‘保存子菜单 If Form1.Caption=未命名 Or Form1.Caption= Then CommonDialog1.ShowSave 显示“另存为”对话框 fname=CommonDialog1.FileName Else fname=Form1.Caption End If If fname Then Open fname For Output As #1 Print #1,Text1.Text Close #1 End If Case 3? ‘另存为子菜单 CommonDialog1.ShowSave显示“另存为”对话框 fname=CommonDialog1.FileName If fname Then Open fname For Output As #1 Print #1,Text1.Text Close #1 End If Case 4? ‘关闭子菜单 Text1.Text= End End Select Text1.SetFocus End Sub “编辑”菜单的各个菜单项对应的事件代码如下： Private Sub Edi_Click(Index As Integer) i=Index Select Case i Case 0??? 剪切 Clipboard.SetText Text1.SelText Text1.SelText= Case 1???? 复制 Clipboard.SetText Text1.SelText Case 2???? 粘贴 Text1.SelText=Clipboard.GetText() Case 3???? 清除 Text1.SelText= End Select End Sub 虽然下拉式菜单能够根据程序的运行情况动态地调整其可见性、有效性，也可以动态地增减菜单项，但其对用户的当前操作跟踪不够。而弹出式菜单能以灵活的方式为用户提供更方便的操作。 弹出式菜单是独立于窗体菜单栏而显示在窗体内的浮动菜单。弹出式菜单在窗体内的位置取决于单击鼠标键（通常单击右键）时指针的位置，弹出式菜单也称为“上下文菜单”或“快捷菜单”。 建立弹出式菜单的具体操作步骤如下： （1）先用菜单编辑器建立菜单。 此步骤与下拉