六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！

樹形目錄在PB中的完成與應用

發表時間：2024-01-10 來源：明輝站整理相關軟件相關文章人氣：

[摘要]摘要: 本文結合具體的實際應用，介紹PB中實現樹形目錄的實現機制，并給出了具體的實現過程。　　1.引言　　在管理信息系統的開發中，經常需要獲取本地計算機中的樹形目錄結構和相應的文件信息，如進行目錄的選擇和特殊文件的選取，在PowerBuilder（簡稱PB）中并沒有提供專門的樹形目錄對象，這樣就需...
摘要: 本文結合具體的實際應用，介紹PB中實現樹形目錄的實現機制，并給出了具體的實現過程。
　　1.引言

　　在管理信息系統的開發中，經常需要獲取本地計算機中的樹形目錄結構和相應的文件信息，如進行目錄的選擇和特殊文件的選取，在PowerBuilder（簡稱PB）中并沒有提供專門的樹形目錄對象，這樣就需要程序開發人員自己來實現相應的樹形目錄。本文針對這種情況，提供了一種用純PB代碼實現樹形結構的方法。

　　2.PB中樹形目錄的實現方法

　　PB中實現樹形目錄可以利用Windows本身的API函數SHBrowseForFolderA（包括在shell32.dll文件中），但該API函數只能顯示相應的樹形目錄，不能顯示文件信息，而且用戶對它不能進行靈活的控制。因此，如果需要進行靈活控制，就需要程序人員自己編寫相應代碼。

　　PB中的ListBox列表框控件提供了顯示目錄和文件的能力。在程序中可以利用PB的樹形控件TreeView動態生成樹形目錄結構。我們使用ListBox控件的函數DirList來實現，函數DirList以滿足條件的文件名填充列表框的列表項，其使用方法如下：

listboxname.DirList（文件模式，文件類型）

　　其中文件類型的值如下所示：

0 可讀/可寫文件2 隱含文件16 子目錄16384 驅動器
1 只讀文件4 系統文件32歸檔文件32768除可讀/可寫外所有類型

　　在程序中可將幾種類型的值相加以獲取相應的文件或目錄信息。下面結合一個實例介紹樹形目錄的實現方法，程序界面如圖1所示。

圖1 樹形目錄實現的實例

　　通過樹形目錄可以獲取計算機中的任意目錄，然后顯示需要顯示的文件（本例中顯示瀏覽器可以查看的文件類型：htm,html,swf,gif,jpg,txt等）。程序中主要使用的控件如下所示：

控件名類型說明
tv_dirTreeView 顯示樹形目錄
lb_file ListBox顯示相應目錄中的文件
ole_dispMicrosoft Web瀏覽器控件對選定文件進行瀏覽
lb_dirListBox顯示驅動器信息
lb_nextListBox顯示當前目錄下級目錄信息

　　程序具體實現分成以下幾個步驟：

　　第一步：在tv_dir的constructor事件中生成所有驅動器信息，代碼如下：

//顯示所有驅動器,并加入目錄樹中
treeviewitem ltvi_new
int li_count, i
String ls_DriverType
lb_dir.DirList("",16384)
li_count = lb_dir.totalitems()
IF li_count > 0 then
for i = 1 to li_count
ltvi_New.Label = lb_dir.Text(i)
ltvi_New.Data = i -1
ltvi_New.Children = TRUE
//根據驅動器類型設置圖標
ls_DriverType=uf_drivetype(lb_dir.Text(i))
//函數uf_drivetype用來獲取驅動器類型，根據類型設置圖標
Choose case ls_DriverType
case "REMOVABLE"
ltvi_New.PictureIndex = 5
ltvi_New.SelectedPictureIndex =5
CASE "FIXED"
ltvi_New.PictureIndex = 1
ltvi_New.SelectedPictureIndex =2
CASE "CDROM"
ltvi_New.PictureIndex = 6
ltvi_New.SelectedPictureIndex =6
END CHOOSE
This.InsertItemlast(0, ltvi_New)
next
This.selectitem(1)
End if

　　第二步，在tv_dir的itempopulate事件中生成相應目錄的下級目錄信息：

String ls_Driver,ls_Data
Int li_level,li_num,li_i,li_new_level
TreeViewItem ltvi_choose
treeviewitem ltvi_new,ltvi_parent
long ll_handle
//獲取當前所選目錄
tv_dir.GetItem(handle,ltvi_choose)
li_Level = ltvi_Choose.Level
lb_dir.dirlist("",0)
//
IF li_level=1 Then //選擇目錄樹中的驅動器
ls_Driver=Mid(ltvi_choose.label,3,1)
lb_dir.DirList(ls_Driver+":",16+32768) //顯示當前目錄子目錄信息
li_num=lb_Dir.totalitems()
For li_i=1 to li_num
ls_Data=lb_dir.Text(li_i)
If Mid(ls_data,1,1)="[" Then
ltvi_New.Label =mid(ls_data,2,len(ls_data) -2 )
ltvi_New.Data = 1
LB_next.dirlist(ls_driver+":"+ltvi_New.Label,16+32768)
if lb_next.totalitems()>1 Then
ltvi_New.Children = TRUE
else
ltvi_New.Children = False
End if
ltvi_New.PictureIndex = 3
ltvi_New.SelectedPictureIndex =4
tv_dir.InsertItemlast(handle, ltvi_New)
End if
Next
End If

IF li_level>=2 Then //選擇目錄樹中的子目錄
ls_driver=uf_get_dir(li_level,tv_dir,handle,ltvi_choose.label)
lb_dir.DirList(ls_Driver,16+32768) //顯示當前目錄子目錄信息
li_num=lb_Dir.totalitems()
For li_i=1 to li_num
ls_Data=lb_dir.Text(li_i)
If Mid(ls_data,1,1)="[" and mid(ls_data,2,2)<>".." Then
ltvi_New.Label =mid(ls_data,2,len(ls_data) -2 )
ltvi_New.Data = 1
LB_next.dirlist(ls_driver+""+ltvi_New.Label,16+32768)
if lb_next.totalitems()>1 Then
ltvi_New.Children = TRUE
else
ltvi_New.Children = False
End if
ltvi_New.PictureIndex = 3
ltvi_New.SelectedPictureIndex =4
tv_dir.InsertItemlast(handle, ltvi_New)
End if
Next
End If

　　第三步：當用戶單擊某一具體目錄時，顯示該目錄中滿足條件的文件名，代碼如下：

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

　　第四步：在OLE控件中顯示所選文件的內容，主要代碼如下：

//顯示文件內容
String ls_filename
If len(is_dir)=3 Then
　ls_filename=is_dir+this.text(index)
Else
　ls_filename=is_dir+""+this.text(index)
End if
ole_disp.object.navigate(ls_filename)

　　其中程序中使用的uf_get_dir為用戶自定義函數，該函數用來獲取所選定目錄的完整路徑。

//用戶自定義函數
function string uf_get_dir (integer pi_level, treeview tv_dir, long handle, string ps_str);
　TreeViewItem ltvi_parent
　Int li_new_level
　Long ll_handle
　String ls_driver
　//找到當前級別的上一級的信息
　ls_driver=ps_str
　li_new_level=pi_level
　ll_handle=handle
　do while li_new_level>1
　　ll_handle=tv_dir.FindItem(ParentTreeItem!,ll_handle)
　　tv_dir.GetItem(ll_handle,ltvi_parent)
　　li_new_level=ltvi_parent.level
　　if li_new_level=1 then
　　　ls_driver=Mid(ltvi_parent.label,3,1)+":"+ls_driver
　　else
　　　ls_driver=ltvi_parent.label+""+ls_driver
　　end if
　loop
　Return ls_driver

　　3.結束語

　　采用上文介紹的方法可實現了樹形目錄結構，如信息系統的數據備份中的目錄選擇、照片瀏覽選擇等，取得了較好的應用效果。本文提到的方法在實際運用可進一步完善，如可將樹形目錄制作成PB中的用戶自定義對象，可方便地在各種地方使用。
主站蜘蛛池模板： 在线综合亚洲欧美网站天堂 | 中文字幕日韩三级 | 欧美亚洲欧美日韩中文二区 | 天天热 | 人人干人人爽 | 亚洲福利精品一区二区三区 | 欧美在线一二三区 | 亚洲成a人片在线观看中文app | 天色噜噜噜噜 | 亚洲综合久久成人69 | 天堂网在线视频 | 中文国产成人久久精品小说 | 日本夜夜操| 综合久青草视频 | 青青草a国产免费观看 | 青青草黄 | 亚洲天堂一区二区 | 亚洲操图| 天天操天天操天天 | 夜色福利久久久久久777777 | 日日噜噜夜夜狠狠久久丁香 | 亚洲欧美色视频 | 亚洲女人被黑人巨大进入 | 中文字幕在线不卡 | 日本大片在线看 | 天天操天天摸天天曰天天干天天弄天天干 | 亚洲狠狠成人综合网 | 日韩3p| 青青草国产97免久久费观看 | 亚洲毛片免费视频 | 日韩精品一区二区三区中文字幕 | 日本免费观看日本高清视频 | 日韩亚洲欧美日本精品va | 伊人网2021| 亚洲国产三级在线观看 | 在线观看国产黄色 | 五月婷婷之综合激情 | 亚洲欧美国产人成在线app | 在线免费观看韩国a视频 | 一级香蕉视频在线观看 | 色涩在线 |