石河子旅游暂理信息系统口口OXOAODaa石河子旅游信息余统欢迎您数据品RGREENn团FA1S细略图欢照速入看月子！图3.7系统操作界面（2）菜单栏设计：区菜单编辑器【工具】-【菜单编辑器】，标题CP)：立件确定设计菜单栏的主菜单及下取消名称（(）：文件拉菜单（图3.8）索引：快捷键(S)：一(Hone)帮助上下文IDQO:0协调位置）A0-None■复选（C）风有效E可见显示窗口列表（）下一个插入()册除(T)文件T开Ctrl+N年Ctrl+s保荐FTEL号出位图文件出GPJ文件追出系统Ctrl+E编辑V添加记录图3.8菜单编辑器（3）弹出式菜单设计：PopupMenu语法：object.PopupMenumenuname,flags,x，y,boldcommand描述：object，可选。一个对象表达式，其值为“应用于"列表中的一个对象。如果省略object，16
16 （2）菜单栏设计： 【工具】-【菜单编辑器】， 设计菜单栏的主菜单及下 拉菜单（图3.8） （3）弹出式菜单设计：PopupMenu 语法： object.PopupMenu menuname，flags，x，y，boldcommand 描述：object，可选。一个对象表达式，其值为“应用于”列表中的一个对象。如果省略object， 图 3.7 系统操作界面 图 3.8 菜单编辑器
则带有焦点的Form对象缺省为object。Menuname必需的。要显示的弹出式菜单名。指定的菜单必须含有至少一个子菜单。Flags可选的。一个数值或常数，按照下列设置中的描述，用以指定弹出式菜单的位置和行为。设置值有：vbPopupMenuLeftAlignO（缺省值），弹出式菜单的左边定位于x；vbPopupMenuCenterAlign4，弹出式菜单的于x居中位；vbPopupMenuRightAlign8弹出式菜单的右边定位于X。X可选的。指定显示弹出式菜单的x坐标。如果该参数省略，则使用鼠标的坐标。Y可选的。指定显示弹出式菜单的y坐标。如果该参数省略，则使用鼠标的坐标。boldcommand可选的。指定弹出式菜单中的菜单控件的名字，用以显示其黑体正文标题。如果该参数省略，则弹出式菜单中没有以黑体字出现的控件。①先要菜单编辑器中编辑一菜单，然后将其visible属性设为false或true②再用popupmenu调用此菜单，代码如下：Private Sub Form MouseDown(Button AsInteger, Shift As Integer,XAs Single, Y As Single)IfButton=2ThenPopupMenu菜单名称EndSub（4）工具条设计①右击工具箱，然后选择弹出菜单中的“部件”（或Ctrl+T组合键），打开对话框（图3.1），从控件列表中找到并勾选MicrosoftWindowsCommonControl6.0，此时工具箱出现新的控件司②点击上在窗口新建一个ImageListl，在可编辑状态下（选中状态）右击一“属性”（图3.9），设计好工具条上各图标的顺序，然后点击“插入图片”，从文件夹“图片一图标”中选择相应图标依次插入，同时记住每个图片的索引，作为工具栏中各工具按钮功能图像的索引：17
17 则带有焦点的Form对象缺省为object。 Menuname 必需的。要显示的弹出式菜单名。指定的菜单必须含有至少一个子菜单。 Flags 可选的。一个数值或常数，按照下列设置中的描述，用以指定弹出式菜单的位置 和行为。设置值有： vbPopupMenuLeftAlign 0（缺省值），弹出式菜单的左边定位于x； vbPopupMenuCenterAlign 4，弹出式菜单的于x居中位；vbPopupMenuRightAlign 8 弹出 式菜单的右边定位于 x。 X 可选的。指定显示弹出式菜单的 x 坐标。如果该参数省略，则使用鼠标的坐标。 Y 可选的。指定显示弹出式菜单的 y 坐标。如果该参数省略，则使用鼠标的坐标。 boldcommand 可选的。指定弹出式菜单中的菜单控件的名字，用以显示其黑体正文标题。 如果该参数省略，则弹出式菜单中没有以黑体字出现的控件。 ①先要菜单编辑器中编辑一菜单，然后将其visible属性设为false或true ②再用popupmenu调用此菜单，代码如下： Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu 菜单名称 End Sub （4）工具条设计 ①右击工具箱，然后选择弹出菜单中的“部件”（或Ctrl+T组合键），打开对话框（图3.1）， 从控件列表中找到并勾选Microsoft Windows Common Control 6.0，此时工具箱出现新的控 件 ②点击 ，在窗口新建一个ImageList1，在可编辑状态下（选中状态）右击—“属性”（图 3.9），设计好工具条上各图标的顺序，然后点击“插入图片”，从文件夹“图片—图标”中选择 相应图标依次插入，同时记住每个图片的索引，作为工具栏中各工具按钮功能图像的索引；
属性页X图像通用颜色当前图像索引关键宇()：标记（）：图像（M）X++>S册除图片R)图像数：26插入图片（P)取消应用）帮助确定图3.9ImageList属性对话框区属性页通用按钮图片鼠标指针（）：0-ccDefaultTOLE放置模式@）：0-ccOLEDropHone-图像列表（）：ImageListlI《无》禁用图像列表G)：ImageList2ImageList3热图像列表（)：Imageistl帮助上下文标识符（L）：0帮助文件（：按钮高度)329.95风允许自定义C可换行的按钮宽度()：345.25显示提示(S）有效）外观@)：1-ce3D边框样式6）0-ceHone-文本对齐）o-tbrTextAlignBottom-样式）：0-tbrStandard4职消帮助确定应用（A）图3.10Toolbar属性“通用”对话框，设置图像列表山③点击在窗口新建一个Toolbar，在可编辑状态下（选中状态）右击一“属性（图3.10），【通用】一【图像列表】一【ImageList1】，将上一步已经定义的图像列表引入工具条；④选择属性”一【按钮】，按照ImageListl中每个图片的索引设置关键字”、“工具提示文本"等属性（图3.11)；18
18 ③点击 ，在窗口新建一个Toolbar，在可编辑状态下（选中状态）右击—“属性”（图3.10）， 【通用】—【图像列表】—【ImageList1】，将上一步已经定义的图像列表引入工具条； ④选择“属性”—【按钮】，按照ImageList1中每个图片的索引设置“关键字”、“工具提示文 本”等属性（图3.11）； 图 3.9 ImageList 属性对话框 图 3.10 Toolbar 属性“通用”对话框，设置图像列表
X属性页编程实现按钮功能的按钮索引号按钮通用图片索引：1插入按钮（）册除按钮R)标题C：描述值心：关键字()选择0-tbrUnpress样式(S)：宽度（保留区）（W）0-tbrDefault100ImageList1中图T工具提示文本）：选择图像（G）：片的索引号选择标记()：可见有效）混合状态(）按钮莱单插入按钮菜单)册除按钮菜单0)索引中1文本：标记：关键字（）区可见有效（L）取消帮助确定应用）图3.11Toolbar属性“按钮”对话框，按图像列表的索引设置图片显示以上各步完成后，工具条上会出现相应的功能图标。这时仅仅完成了工具条的外观设置，其具体功能的实现还需要进一步的编程实现；③编写代码PrivateSubToolbarl ButtonClick(ByValButtonAsButton)SelectCaseButton.IndexCase 1<要执行的代码>Case 2<要执行的代码>End SelectEnd Sub（5）可查数据显示区域和树形数据清单①点击Frame建立可查数据显示区域，Caption一“数据”；80TreeView②点击在Frame中建立可查数据的树形表（图3.12）；19
19 以上各步完成后，工具条上会出现相应的功能图标。这时仅仅完成了工具条的外观设 置，其具体功能的实现还需要进一步的编程实现； ⑤编写代码 Private Sub Toolbar1_ButtonClick(ByVal Button As Button) Select Case Button.Index Case 1 <要执行的代码> Case 2 <要执行的代码> . End Select End Sub （5）可查数据显示区域和树形数据清单 ① 点击Frame ，建立可查数据显示区域，Caption—“数据”； ②点击 ，在Frame中建立可查数据的树形表（图3.12）； ImageList1 中图 片的索引号 图 3.11 Toolbar 属性“按钮”对话框，按图像列表的索引设置图片显示 编程实现按钮功 能的按钮索引号
一数据口口简单节点口简单节点口简单节点口简单节点图3.12可查数据的树形表树形图(Treeview)用于显示按照树形结构进行组织的数据，这在实际当中用途广泛一般用于显示文档标题、索引入口、磁盘上的文件和目录、或能被有效地分层显示的其它种类信息。如计算机中的文件系统(Windows95中的资源管理器）、企业或公司的组成结构等等。Treeview控件中一个树形图由节点(TreeNode)和连接线组成。TtreeNode是Treeview的基本组成单元。一个树的节点又包含文本(Text)和数据(Data)。Text为String类，Data则为无定形指针(UntypedPointer)，可以指向一个与节点相联系的数据结构。每一个节点下子节点形成这一节点的Items属性，当前节点有一个唯一的Index(TreeNode的Index属性），用于说明子节点在Items中的位置，每一个节点下的子节点是顺序编号的，第一个是0，第二个是1，依次类推。用IndexOf方法获得子节点的顺序，绝对顺序(Absolutelndex)则是指从Treeview第一个项开始的顺序值，第一个是0，如此推下去。Item属性则根据Index的值返回当前节点的第Index个子节点。Count则表明属于此项的所有子节点的数量。用MoveTo方法将Item由一个位置移到另一个位置。Expanded属性表明是否所有的子项都全部展开(包括子项的子项)，为True表示全部展开。IsVisible属性表明一个项是否在树中能被看到，如果树全部展开那么这个Item是肯定可以被看到。HasChildren属性表明一个项是否有子项。GetFirstChild,GetLastChild，GetPrevChild，andGetNextChild分别返回当前项子项的第一个、最后一个和前一个、后一个项。GetNextSiblingandGetPrevSibling则返回在同一Level下的下一个和上一个项。GetNextVisibleandGetPrevVisible则返回能看得到的下一个和上一个项。如果一个节点有Parent，则HasAsParent方法返回True.Parent为当前项的父项。Focused属性确定焦点是否落在此节点上，被Focus时会一个标准的方框围住。很显然，只有一个节点会被聚焦。Selected属性表明一个节点是否被选中，同样只有一个节点会被选中。DropTarget属性表明节点在拖动操作中是源还是目标。TreeView控件显示Node对象的分层列表，每个Node对象均由一个标签和一个可选的位图组成。TreeView一般用于显示文档标题、索引入口、磁盘上的文件和目录、或能被有效地分层显示的其它种类信息。创建了TreeView控件之后，可以通过设置属性与调用方法20
20 树形图(Treeview)用于显示按照树形结构进行组织的数据，这在实际当中用途广泛， 一般用于显示文档标题、索引入口、磁盘上的文件和目录、或能被有效地分层显示的其它 种类信息。如计算机中的文件系统(Windows95中的资源管理器)、企业或公司的组成结构等 等。Treeview控件中一个树形图由节点(TreeNode)和连接线组成。TtreeNode是Treeview的基 本组成单元。一个树的节点又包含文本(Text)和数据(Data)。Text为String类，Data则为无定 形指针(Untyped Pointer)，可以指向一个与节点相联系的数据结构。 每一个节点下子节点形成这一节点的Items属性，当前节点有一个唯一的 Index(TreeNode的Index属性)，用于说明子节点在Items中的位置，每一个节点下的子节点是 顺序编号的，第一个是0，第二个是1，依次类推。用IndexOf方法获得子节点的顺序，绝对 顺序(AbsoluteIndex)则是指从Treeview第一个项开始的顺序值，第一个是0，如此推下去。Item 属性则根据Index的值返回当前节点的第Index个子节点。Count则表明属于此项的所有子节 点的数量。用MoveTo方法将Item由一个位置移到另一个位置。 Expanded属性表明是否所有的子项都全部展开(包括子项的子项)，为True表示全部展 开。IsVisible属性表明一个项是否在树中能被看到，如果树全部展开那么这个Item是肯定可 以被看到。HasChildren属性表明一个项是否有子项。 GetFirstChild, GetLastChild, GetPrevChild, and GetNextChild分别返回当前项子项的第一个、最后一个和前一个、后一个 项。GetNextSibling and GetPrevSibling则返回在同一Level下的下一个和上一个项。 GetNextVisible and GetPrevVisible则返回能看得到的下一个和上一个项。如果一个节点有 Parent，则HasAsParent方法返回True. Parent为当前项的父项。Focused属性确定焦点是否落 在此节点上，被Focus时会一个标准的方框围住。很显然，只有一个节点会被聚焦。 Selected 属性表明一个节点是否被选中，同样只有一个节点会被选中。DropTarget属性表明节点在拖 动操作中是源还是目标。 TreeView控件显示Node对象的分层列表，每个Node对象均由一个标签和一个可选的 位图组成。TreeView 一般用于显示文档标题、索引入口、磁盘上的文件和目录、或能被有 效地分层显示的其它种类信息。创建了TreeView控件之后，可以通过设置属性与调用方法 图 3.12 可查数据的树形表