简介

　　ctlExplorerBar控件一个可以实现类似Windows XP资源管理器中右侧垂直栏的控件，它不仅可以创建不同的菜单组、在菜单组下添加项目，还可以为每一个项目编写感应事件，同时它更是可以实现图片的预览，简直和资源管理器的垂直栏一样！在许多软件界面中，它都可以发挥非常好的作用。

　　下载本文控件和源代码

　　应用实例

　　想让你的程序更加吸引眼球吗？想在你的程序中打造像Windows XP资源管理器左侧那样的垂直栏吗？只要在你的程序中加上ctlExplorerBar控件，通过几段简单的代码，就可以轻松实现这个似乎复杂的界面效果，完全使你抛弃了繁杂的代码！这个控件不仅容易使用，而且它实现的界面效果非常出色，完全和Windows XP中一样（如图1）。 下面我们就结合一个实例来说明使用方法，相信它的简单易用和出色效果会让你动心！


　　要了解该控件强大便捷的功能，下面我们就通过一个实例来讲解。

　　第一步：首先启动Visual Basic 6.0，新建一个窗口。
　　
　　第二步：加载ctlExplorerBar控件。

　　①在控件工具栏中单击右键，选择“部件”，在弹出的窗口中点击“浏览”，找到ctlExplorerBar控件，载入它，命名为“XPmenu”；把它放到Form1窗体中任意位置即可。其他属性保持默认即可。

　　第三步：加载其他控件，完成界面的设置。

　　①添加四个Image控件，分别命名imgDesktop、imgShare、imgComputer和imgNetwork，用来加载如图1所示的“桌面其他”分栏下四个项前的小图标。为这四个Image控件分别载入适当的小图标（如图2）。


　　②再添加一个Image控件，载入一副图片，用来演示如何实现图像预览的功能。

　　这个演示程序在界面和属性设置上都非常的简单，只要把控件放在界面上任意位置即可，不需要设置属性。ctlExplorerBar的位置我们可以在程序运行时进行调整。上面说到的图片我们使用了Image控件来加载，当然你喜欢的话也可以用Picture控件或者是ImageList控件来加载，它们实现的效果是一样的。如果用Picture控件，别忘了把其Autosize属性设置为True。

　　到这里就完成了这个演示程序的界面设置，接着进行代码的编写。

　　第三步：编写代码，实现界面演示。

　　①编写Form1的Load事件，使程序启动时调整ctlExplorerBar的位置，并且载入相应的分栏和项目等。代码如下：

Private Sub Form_Load() 　 XPmenu.Top = 0 　 XPmenu.Left = 0 　 XPmenu.Width = Me.Width 　 XPmenu.AddNormalItem "文件和文件夹任务", False 　 　XPmenu.AddSubItem 1, "重命名这个文件", imgDesktop.Picture 　 　’…… 　 　’依照上面的格式，可以在该分栏下添加更多的项 　 XPmenu.AddNormalItem "其他位置" 　 　XPmenu.AddSubItem 2, "桌面", imgDesktop.Picture 　 　XPmenu.AddSubItem 2, "共享文档", imgShare.Picture 　 　XPmenu.AddSubItem 2, "我的电脑", imgComputer.Picture 　 　XPmenu.AddSubItem 2, "网上邻居", imgNetwork.Picture 　 XPmenu.AddDetailItem "详细信息", "MyPicture1.jpg", "JPEG 图像" & vbCrLf & "尺寸: 100 x 100" & vbCrLf & "大小: 12.5 kB" & vbCrLf & "修改时间: 2005-09-10 14:46", imgCan.Picture End Sub

　　现在你马上就可以按下F5预览一下效果了，是不是很容易？别心急，我们再来分析下上面的代码，更好的掌握其的使用方法。

　　分析上面的代码中，很容易可以知道要添加普通分栏的话，只要使用控件的AddNormalItem方法，后面跟上分栏的标题即可。该方法的第二个参数默认值为True，如果设置为False，那么这个分栏显示时是收起的，在上面的图1中可以看到效果。

　　有了分栏后我们可以在其下添加项，通过AddSubItem方法即可。在第一个参数中，输入其所属分栏的序号，第二个和第三个参数分别是标题和图标。

本文章共2页,当前在第1页  1  2