VB第三方控件实现XP资源管理器垂直栏计算机二级考试

文章作者 100test 发表时间 2009:06:17 19:52:48
来源 100Test.Com百考试题网

　　简介
　　ctlExplorerBar控件一个可以实现类似Windows XP资源管理器中右侧垂直栏的控件，它不仅可以创建不同的菜单组、在菜单组下添加项目，还可以为每一个项目编写感应事件，同时它更是可以实现图片的预览，简直和资源管理器的垂直栏一样！在许多软件界面中，它都可以发挥非常好的作用。
　　下载本文控件和源代码
　　应用实例
　　想让你的程序更加吸引眼球吗？想在你的程序中打造像Windows XP资源管理器左侧那样的垂直栏吗？只要在你的程序中加上ctlExplorerBar控件，通过几段简单的代码，就可以轻松实现这个似乎复杂的界面效果，完全使你抛弃了繁杂的代码！这个控件不仅容易使用，而且它实现的界面效果非常出色，完全和Windows XP中一样。 下面我们就结合一个实例来说明使用方法，相信它的简单易用和出色效果会让你动心！
　　要了解该控件强大便捷的功能，下面百考试题就通过一个实例来讲解。
　　第一步：首先启动Visual Basic 6.0，新建一个窗口。
　　第二步：加载ctlExplorerBar控件。
　　①在控件工具栏中单击右键，选择“部件”，在弹出的窗口中点击“浏览”，找到ctlExplorerBar控件，载入它，命名为“XPmenu”；把它放到Form1窗体中任意位置即可。其他属性保持默认即可。
　　第三步：加载其他控件，完成界面的设置。
　　①添加四个Image控件，分别命名imgDesktop、imgShare、imgComputer和imgNetwork，用来加载如图1所示的“桌面其他”分栏下四个项前的小图标。为这四个Image控件分别载入适当的小图标。
　　②再添加一个Image控件，载入一副图片，用来演示如何实现图像预览的功能。
　　这个演示程序在界面和属性设置上都非常的简单，只要把控件放在界面上任意位置即可，不需要设置属性。ctlExplorerBar的位置我们可以在程序运行时进行调整。上面说到的图片我们使用了Image控件来加载，当然你喜欢的话也可以用Picture控件或者是ImageList控件来加载，它们实现的效果是一样的。如果用Picture控件，别忘了把其Autosize属性设置为True。
　　到这里就完成了这个演示程序的界面设置，接着进行代码的编写。
　　第四步：编写代码，实现界面演示。
　　①编写Form1的Load事件，使程序启动时调整ctlExplorerBar的位置，并且载入相应的分栏和项目等。代码如下：
　　
　　现在你马上就可以按下F5预览一下效果了，是不是很容易？别心急，我们再来分析下上面的代码，更好的掌握其的使用方法。
　　分析上面的代码中，很容易可以知道要添加普通分栏的话，只要使用控件的AddNormalItem方法，后面跟上分栏的标题即可。该方法的第二个参数默认值为True，如果设置为False，那么这个分栏显示时是收起的，在上面的图1中可以看到效果。
　　有了分栏后我们可以在其下添加项，通过AddSubItem方法即可。在第一个参数中，输入其所属分栏的序号，第二个和第三个参数分别是标题和图标。
　　要实现带有图片预览功能的分栏，可以AddDetailItem方法，其参数格式是：（分栏标题,图片信息说明,图片源）。需要注意的是，这种的分栏不能添加下属项。
　　②添加窗体改变大小的事件，实现控件同步改变。
　　Private Sub Form_Resize()
　　XPmenu.Height = Me.ScaleHeight
　　End Sub
　　当窗体的大小发生改变时候，同时也自动改变ctlExplorerBar的大小。通常只是改变ctlExplorerBar显示的高度，而宽度是不改变的，就像XP资源管理器中一样。
　　第五步：编写代码，实现ctlExplorerBar的事件相应。
　　①编写ctlExplorerBar的分栏的打开、收起事件，代码如下：
　　Private Sub XPmenu_Collapse(ByVal Index As Integer)
　　Me.Caption = "收起 " &. Index
　　End Sub
　　Private Sub XPmenu_Expand(ByVal Index As Integer)
　　Me.Caption = "展开 " &. Index
　　End Sub
　　从上面的代码中我们可以看到，ctlExplorerBar提供了两个点击的事件，在这里的示例中我们把事件的相应放映在窗体标题栏中，当点击分栏时候，窗体标题栏就会显示收起或者展开哪一个分栏。
　　②添加点击分栏中项目的事件。
　　Private Sub XPmenu_SubItemClick(ByVal Index As Integer, ByVal SubItemIndex As Integer)
　　Me.Caption = "单击 " &. Index &. " 在 " &. SubItemIndex &. " (" &. XPmenu.SubItem(Index, SubItemIndex) &. ")"
　　Me.Icon = XPmenu.SubItemIcon(Index, SubItemIndex)
　　End Sub
　　当用户点击分栏中的某个项目时，窗体的标题栏显示项目的Index以及其所在分栏。上面的代码告诉你怎样使用项目的点击响应，对于你的实际应用是很有用的。
　　到这里，这个演示程序就完成了，按下F5，你就可以看到如图1一样的效果了。
　　另外，ctlExplorerBar还支持标题分栏标题图片和背景，同样只要用两个Image控件载入两幅图片，这里我们命名为imgImages和imgBack，然后添加分栏时候使用如下代码：
　　XPmenu.AddNormalItem "分栏示例", True, imgImages.Picture, imgBack.Picture
　　运行程序后我们可以看到实际的效果，多了标题图片和背景，是不是更漂亮呢？再试一试用AddSpecialItem方法来添加分栏，会有不一样的效果哦。
　　有了ctlExplorerBar控件，我们可以很方便地做出漂亮美观的界面，可以应用在信息显示、导航等应用中，相信可以为你的程序添加更多的方便和亮点！