学习pb第三天

今天是系统学习pb的第三天，今天的工作是完成读取本地文件。

首先利用powerbuilder创建所需要的组件dropdownlistbox以及listbox。在主窗口中添加一下脚本

SetPointer(help!)              //设置鼠标的形状
ddlb_1.dirlist( "c:\*.*", 16384)               //在listbox中显示目录
ddlb_1.selectitem( "c",0)               //将目录显示在dropdownlistbox中
lb_1.dirlist( "c:\*.*", 16384+16)            //显示文件
lb_2.dirlist( "*.*",39)

 

在ddlb_1和lb_1中添加如下脚本

string ls_disk

this.DirSelect(ls_disk)
IF ls_disk <> "" THEN
    SetPointer(HourGlass!)
    lb_folders.SetRedraw(FALSE)
    lb_folders.DirList(ls_disk, 32768)
    lb_folders.DirList("*.*", 32768 + 16)
    lb_folders.SetRedraw(TRUE)
    lb_files.DirList("*.*", 39)
END IF

当目录被选中则在listbox中显示文件。若存在文件夹则可以继续打开。以下是完成后的效果图：

 

good godd study, day day up!!!