树形目录在PB中的实现与应用

秒速五厘米 2022-09-28 01:34 124阅读 0赞

1.引言  
  
　　在管理信息系统的开发中，经常需要获取本地计算机中的树形目录结构和相应的文件信息，如进行目录的选择和特殊文件的选取，在PowerBuilder（简称PB）中并没有提供专门的树形目录对象，这样就需要程序开发人员自己来实现相应的树形目录。本文针对这种情况，提供了一种用纯PB代码实现树形结构的方法。  
  
　　2.PB中树形目录的实现方法  
  
　　PB中实现树形目录可以利用Windows本身的API函数SHBrowseForFolderA（包括在shell32.dll文件中），但该API函数只能显示相应的树形目录，不能显示文件信息，而且用户对它不能进行灵活的控制。因此，如果需要进行灵活控制，就需要程序人员自己编写相应代码。  
  
　　PB中的ListBox列表框控件提供了显示目录和文件的能力。在程序中可以利用PB的树形控件TreeView动态生成树形目录结构。我们使用ListBox控件的函数DirList来实现，函数DirList以满足条件的文件名填充列表框的列表项，其使用方法如下：  
  
listboxname.DirList（文件模式，文件类型）  
  
　　其中文件类型的值如下所示：

<table style="width: 80%;"> 
 <tbody> 
  <tr> 
   <td>0 </td> 
   <td>可读/可写文件</td> 
   <td>2 </td> 
   <td>隐含文件</td> 
   <td>16 </td> 
   <td>子目录</td> 
   <td>16384 </td> 
   <td>驱动器</td> 
  </tr> 
  <tr> 
   <td>1 </td> 
   <td>只读文件</td> 
   <td>4 </td> 
   <td>系统文件</td> 
   <td>32</td> 
   <td>归档文件</td> 
   <td>32768</td> 
   <td>除可读/可写外所有类型</td> 
  </tr> 
 </tbody> 
</table>

在程序中可将几种类型的值相加以获取相应的文件或目录信息。下面结合一个实例介绍树形目录的实现方法，程序界面如图1所示。  
  
![20060129123104400.jpg][]  
图1 树形目录实现的实例  
  
　　通过树形目录可以获取计算机中的任意目录，然后显示需要显示的文件（本例中显示浏览器可以查看的文件类型：htm,html,swf,gif,jpg,txt等）。程序中主要使用的控件如下所示：

<table style="width: 100%;"> 
 <tbody> 
  <tr> 
   <td>控件名</td> 
   <td>类型</td> 
   <td>说明</td> 
  </tr> 
  <tr> 
   <td>tv_dir</td> 
   <td>TreeView </td> 
   <td>显示树形目录</td> 
  </tr> 
  <tr> 
   <td>lb_file </td> 
   <td>ListBox</td> 
   <td>显示相应目录中的文件</td> 
  </tr> 
  <tr> 
   <td>ole_disp</td> 
   <td>Microsoft Web浏览器控件</td> 
   <td>对选定文件进行浏览</td> 
  </tr> 
  <tr> 
   <td>lb_dir</td> 
   <td>ListBox</td> 
   <td>显示驱动器信息</td> 
  </tr> 
  <tr> 
   <td>lb_next</td> 
   <td>ListBox</td> 
   <td>显示当前目录下级目录信息</td> 
  </tr> 
 </tbody> 
</table>

程序具体实现分成以下几个步骤：  
  
　　第一步：在tv\_dir的constructor事件中生成所有驱动器信息，代码如下：

<table style="width: 100%;"> 
 <tbody> 
  <tr> 
   <td>//显示所有驱动器,并加入目录树中<br>treeviewitem ltvi_new<br>int li_count, i<br>String ls_DriverType<br>lb_dir.DirList("",16384)<br>li_count = lb_dir.totalitems()<br>IF li_count &gt; 0 then <br>for i = 1 to li_count<br>ltvi_New.Label = lb_dir.Text(i)<br>ltvi_New.Data = i -1<br>ltvi_New.Children = TRUE<br>//根据驱动器类型设置图标<br>ls_DriverType=uf_drivetype(lb_dir.Text(i)) <br>//函数uf_drivetype用来获取驱动器类型，根据类型设置图标<br>Choose case ls_DriverType<br>case "REMOVABLE"<br>ltvi_New.PictureIndex = 5<br>ltvi_New.SelectedPictureIndex =5<br>CASE "FIXED"<br>ltvi_New.PictureIndex = 1<br>ltvi_New.SelectedPictureIndex =2<br>CASE "CDROM"<br>ltvi_New.PictureIndex = 6<br>ltvi_New.SelectedPictureIndex =6<br>END CHOOSE<br>This.InsertItemlast(0, ltvi_New)<br>next<br>This.selectitem(1)<br>End if</td> 
  </tr> 
 </tbody> 
</table>

第二步，在tv\_dir的itempopulate事件中生成相应目录的下级目录信息：

<table style="width: 100%;"> 
 <tbody> 
  <tr> 
   <td>String ls_Driver,ls_Data<br>Int li_level,li_num,li_i,li_new_level<br>TreeViewItem ltvi_choose<br>treeviewitem ltvi_new,ltvi_parent<br>long ll_handle<br>//获取当前所选目录<br>tv_dir.GetItem(handle,ltvi_choose)<br>li_Level = ltvi_Choose.Level<br>lb_dir.dirlist("",0)<br>//<br>IF li_level=1 Then //选择目录树中的驱动器<br>ls_Driver=Mid(ltvi_choose.label,3,1)<br>lb_dir.DirList(ls_Driver+":/",16+32768) //显示当前目录子目录信息<br>li_num=lb_Dir.totalitems()<br>For li_i=1 to li_num<br>ls_Data=lb_dir.Text(li_i)<br>If Mid(ls_data,1,1)="[" Then<br>ltvi_New.Label =mid(ls_data,2,len(ls_data) -2 )<br>ltvi_New.Data = 1<br>LB_next.dirlist(ls_driver+":/"+ltvi_New.Label,16+32768)<br>if lb_next.totalitems()&gt;1 Then<br>ltvi_New.Children = TRUE<br>else<br>ltvi_New.Children = False<br>End if <br>ltvi_New.PictureIndex = 3<br>ltvi_New.SelectedPictureIndex =4<br>tv_dir.InsertItemlast(handle, ltvi_New) <br>End if <br>Next <br>End If <p>IF li_level&gt;=2 Then //选择目录树中的子目录<br>ls_driver=uf_get_dir(li_level,tv_dir,handle,ltvi_choose.label)<br>lb_dir.DirList(ls_Driver,16+32768) //显示当前目录子目录信息<br>li_num=lb_Dir.totalitems()<br>For li_i=1 to li_num<br>ls_Data=lb_dir.Text(li_i)<br>If Mid(ls_data,1,1)="[" and mid(ls_data,2,2)&lt;&gt;".." Then<br>ltvi_New.Label =mid(ls_data,2,len(ls_data) -2 )<br>ltvi_New.Data = 1<br>LB_next.dirlist(ls_driver+"/"+ltvi_New.Label,16+32768)<br>if lb_next.totalitems()&gt;1 Then<br>ltvi_New.Children = TRUE<br>else<br>ltvi_New.Children = False<br>End if <br>ltvi_New.PictureIndex = 3<br>ltvi_New.SelectedPictureIndex =4<br>tv_dir.InsertItemlast(handle, ltvi_New) <br>End if <br>Next <br>End If</p> </td> 
  </tr> 
 </tbody> 
</table>

第三步：当用户单击某一具体目录时，显示该目录中满足条件的文件名，代码如下：

<table style="width: 100%;"> 
 <tbody> 
  <tr> 
   <td>//tv_dir中Click事件代码<br>Int li_num,li_i,li_long,i<br>TreeViewItem ltvi_cur<br>String ls_dir,ls_data<br>String Filetype[8]<br>//设定需要显示的文件类型<br>filetype[1]=".htm"<br>filetype[2]=".html"<br>filetype[4]=".swf"<br>filetype[5]=".gif"<br>filetype[6]=".jpg"<br>filetype[7]=".shtml"<br>filetype[8]=".txt"<br>li_long=8<br>this.GetItem(handle,ltvi_cur)<br>If ltvi_cur.level=1 then<br>　ls_dir=mid(ltvi_cur.Label,3,1)+":/"<br>else<br>　ls_dir=uf_get_dir(ltvi_cur.level,this,handle,ltvi_cur.Label)<br>end if <br>is_dir=ls_dir<br>Lb_next.DirList(ls_dir+"/*.*",0+1+2+4+32) //显示所有文件<br>li_num=lb_Dir.totalitems()<br>lb_file.Reset()<br>//将指定文件显示在列表框中<br>For li_i=1 to li_num<br>　ls_Data=lb_next.Text(li_i) <br>　For i=1 to li_long<br>　　if match(lower(Right(ls_data,len(FileType[i]))),Filetype[i]) then lb_file.addItem(ls_data)<br>Next <br>Next</td> 
  </tr> 
 </tbody> 
</table>

第四步：在OLE控件中显示所选文件的内容，主要代码如下：

<table style="width: 100%;"> 
 <tbody> 
  <tr> 
   <td>//显示文件内容<br>String ls_filename<br>If len(is_dir)=3 Then<br>　ls_filename=is_dir+this.text(index)<br>Else<br>　ls_filename=is_dir+"/"+this.text(index) <br>End if <br>ole_disp.object.navigate(ls_filename)</td> 
  </tr> 
 </tbody> 
</table>

其中程序中使用的uf\_get\_dir为用户自定义函数，该函数用来获取所选定目录的完整路径。

<table style="width: 100%;"> 
 <tbody> 
  <tr> 
   <td>//用户自定义函数<br>function string uf_get_dir (integer pi_level, treeview tv_dir, long handle, string ps_str);<br>　TreeViewItem ltvi_parent<br>　Int li_new_level<br>　Long ll_handle<br>　String ls_driver<br>　//找到当前级别的上一级的信息<br>　ls_driver=ps_str<br>　li_new_level=pi_level<br>　ll_handle=handle<br>　do while li_new_level&gt;1<br>　　ll_handle=tv_dir.FindItem(ParentTreeItem!,ll_handle)<br>　　tv_dir.GetItem(ll_handle,ltvi_parent) <br>　　li_new_level=ltvi_parent.level<br>　　if li_new_level=1 then<br>　　　ls_driver=Mid(ltvi_parent.label,3,1)+":/"+ls_driver<br>　　else<br>　　　ls_driver=ltvi_parent.label+"/"+ls_driver <br>　　end if <br>　loop<br>　Return ls_driver</td> 
  </tr> 
 </tbody> 
</table>

3.结束语  
  
　　采用上文介绍的方法可实现了树形目录结构，如信息系统的数据备份中的目录选择、照片浏览选择等，取得了较好的应用效果。本文提到的方法在实际运用可进一步完善，如可将树形目录制作成PB中的用户自定义对象，可方便地在各种地方使用。

[20060129123104400.jpg]: http://www.bccn.net/Article/UploadFDL0024/200601/20060129123104400.jpg