vb第三方控件:VB中用第 3方Control控件制作资源管理器
疯狂代码  CrazyCoder/        ĵ:http:/CrazyCoder/Security/Article72508.html
介绍:
  Windows资源管理器大家都不陌生用它你可以做出和Windows几乎模样资源管理器非常实用
  使用例子:
  Windows中资源管理器想必大家都经常使用利用NEWEX 这个优秀第 3方Control控件我们可以用VB轻易做出和Windows几乎模样资源管理器下面通过个例子向大家介绍该Control控件简单使用方法
  () 加载Control控件
  启动Visual Basic 6.0创建个工程并保存为"工程1.vbp"同时产生个名为"Form1"窗口在工具箱空白处单击鼠标右键从弹出快捷菜单中启动"部件"窗口点击"浏览"按钮从存放NEWEXControl控件文件夹中到ex.ocx文件点击"应用"后NEWEXControl控件就添加到工具箱中你会发现工具箱中多了3个图标如图1我们要用到是最后两个
图1
  ( 2) 主要属性介绍
  本例中我们用到是ExplorerTree(树型目录窗格)和ExplorerLis(列表窗格，用以显示左边选定对象所包含内容)下面列出它们几个主要属性
  ExplorerTree主要属性
Appearance ; Control控件外观是否立体1为3D边框0为平面
BorderStyle Control控件边界类型
Backcolor ; 背景
BrowseFrom ; 转到地址栏输入目录路径
TreeHasButtons ; 在树状目录中是否显示+按钮
TreeHasLines ; 在树状目录中是否显示关联虚线
Path 地址路径
  ExplorerList主要属性
Appearance ; Control控件边框是否立体1为3D边框0为平面
BorderStyle ; Control控件边界类型
ShowHiddenFile 是否显示隐藏文件
view 查看方式0 -平铺1-图标2-列表3-详细信息
FileName 选中文件文件名
  ( 3) 添加Control控件完成界面设置
  在Form1中添加个ExplorerTree和个ExplorerLisControl控件，调整好位置大小再在窗体中添加3个TextControl控件和个CommandButtonControl控件将TextControl控件Caption属性依次设置为"地址""文件""文件夹"CommandButtonControl控件Caption属性设置为"转到"如图2所示
图2
  ( 4)添加代码实现基本功能
  利用NEWEXControl控件属性我们可以添加些代码来完善它功能
  ①添加以下代码使右边列表窗格显示左边树型目录窗格选定对象所包含内容
Private Sub ExplorerTree1_TreeDataChanged
On Error Resume Next
　ExplorerList1.TreeDatas = ExplorerTree1.TreeDatas
vb listview控件End Sub
Private Sub ExplorerList1_FolderClick
　ExplorerTree1.FolderClick (ExplorerList1.filename)
End Sub
  ②利用ExplorerTreeOnDirChanged 思路方法和Path属性让Text1文本框显示目录地址路径
Private Sub ExplorerTree1_OnDirChanged
　Text1.Text = ExplorerTree1.Path
End Sub
  ③利用ExplorerListGetFileName 思路方法和filename属性让Text2文本框显示在ExplorerList窗格中选定文件
Private Sub ExplorerList1_GetFileName
　Text2.Text = ExplorerList1.filename
End Sub
  ④编写代码完成"转到"按钮功能当点击"转到"按钮时让ExplorerTree树型目录窗格转到"地址"栏中输入地址目录
Private Sub Command1_Click
　ExplorerTree1.BrowseFrom = Text1.Text
End Sub
  ( 5)模仿Windows右键查看菜单
  在Windows资源管理器中点击鼠标右键选"查看"可以选择查看文件方式而利用ExplorerListView属性也可以模仿出这个功能
  首先我们要先设计个弹出菜单选择"工具" 下"菜单编辑器"进行菜单设计.
  如图3
图3
  菜单具体设计如下表:
菜单标题信息 ; 菜单名称 ; 是否可见 级别
弹出菜单 popmnu ; 否 1
查看 mnuView ; 可见 ; 2
平铺 mnuS ; 可见 ; 3
图标 mnuN 可见 ; 3
列表 mnuL ; 可见 ; 3
详细信息 mnuD ; 可见 ; 3
  其次设计好菜单后添加以下代码实现点击鼠标右键弹出菜单
Private Sub Form_MouseDown(Button As Integer, Sht As Integer, X As Single, Y As Single)  If Button = vbRightButton Then
  PopupMenu popmnu
　End If
End Sub
  最后编码以响应菜单事件
Private Sub mnuD_Click
　ExplorerList1.View = 3 '详细信息
End Sub
Private Sub mnuL_Click
　ExplorerList1.View = 2 '列表
End Sub
Private Sub mnuN_Click
　ExplorerList1.View = 1 '图标
End Sub
Private Sub mnuS_Click
　ExplorerList1.View = 0 '平铺
End Sub
;
  这样就可以模仿Windows资源管理器右键菜单"查看"功能
  完成这几步后这个简单例子就完成了运行效果如图5是不是和Windows资源管理器很象！当然还有其它具体功能还待大家去实现这里只是介绍NEWEX简单应用
图4
上篇文章: VC ；下TabCtrl键控制问题解决办法
下篇文章: Delphi ；简单编写下载者源码