庞大资源库的计算机教程网站!
设为首页
加入收藏
总编信箱
投稿或申请专栏请先 [登 陆]
首页 操作系统 程序设计 图形图像 媒体动画 机械电子 WEB开发 数 据 库 办公系列 路由技术 网络原理 网络应用
认证考试 安全技术
首页>程序设计>VB专区>基础教程>正文
资料搜索
Google搜索
Google
返回上级列表

推荐文章

快速保存网页中所有图片的方法
Windows中让光驱巧妙“隐身”技
防范非法用户入侵Win 2000/XP系
两款比较典型的ASP木马防范方法
有关表格边框的css语法整理
Windows XP中可以被禁用的服务
SQL Server导出导入数据方法
Javascript所有对象的属性的获
网页(HTML)中的特殊字符
与篮球共舞,尽显模式本色
QQ病毒的手工清除方法
Photoshop为极品美女打造性感睫
天衣无缝:IIS与PHP水火也相容
SQL Server存储过程编写和优化

文件系统控件的使用 二

 作者:本站收集   日期:2005-8-4 11:16:41
字号选择〖 〗/ 双击滚屏 单击停止   

    设置当前目录
    可用目录列表框的 Path 属性设置或返回列表框中的当前目录 (ListIndex = -1)。例如,若为图 7.18 中的 Drive1.Path 赋以 "c:\payroll",则目录 \Pagroll将成为当前工作目录。
    同样,可把驱动器列表框的 Drive 属性赋予目录列表框的 Path 属性:
    Dir1.Path = Drive1.Drive
    执行赋值语句时,目录列表框将显示此驱动器上所有有效的目录和子目录。缺省时,目录列表框将显示驱动器的当前目录的所有上级目录以及下一级子目录,而驱动器是被指定给 Dir1.Path 属性的。目录列表框并不在操作系统级设置当前目录;它只是突出显示目录并将其 ListIndex 值设置为 -1。
    为设置当前工作目录应使用 ChDir 语句。例如,下列语句将当前目录变成目录列表框中显示的一个目录:
    ChDir Dir1.Path在使用文件控件的应用程序中,可用 Application 对象将当前目录设置成应用程序的可执行 (.exe) 文件所在目录:
    ChDrive App.Path   '设置驱动器。
    ChDir App.Path    '设置目录。
    注意 Path 属性只在运行时可用,在设计时不可用。  
    详细信息 关于 Application 对象的详细信息,请参阅《Visual Basic 6.0语言参考》中“App 对象”。

    单击目录项
    目单击目录列表框中的某个项目时将突出显示该项目。而双击项目时则把它赋予 Path 属性并把其 ListIndex 属性设置为-1,然后重绘目录列表框以显示直接相邻的下级子目录。

    查找目录的相对位置
    ListCount 属性返回当前扩展目录下的目录数目,而不是目录列表框中的目录总数。因为当前扩展目录的 ListIndex 值总为 - 1,所以可以编程来判断在目录层次结构中,当前扩展目录与根目录有多大距离。例如:
     '初始化当前扩展目录。
     GoHigher = 0
     '若目录不存在,
     '则 Dir1.List(x) 返回空字符串。
     Do Until Dir1.List(GoHigher) = ""
       GoHigher = GoHigher - 1
     Loop
     '如有必要可转换成正数。
     LevelsAbove = Abs(GoHigher)

    文件列表框
    文件列表框在运行时显示由 Path 属性指定的包含在目录中的文件。可用下列语句在当前驱动器上显示当前目录中的所有文件:
    File1.Path = Dir1.Path
    然后,可设置 Pattern 属性来显示这些文件的子集—─例如,设置为 *.frm后将只显示这种扩展名的文件。Pattern 属性也接受由分号分隔的列表。例如,下列代码行将显示所有扩展名为 .frm 和 .bas 的文件:
    File1.Pattern = "*.frm; *.bas"Visual Basic 支持 ? 通配符。例如,???.txt 将显示所有文件名包含三个字符且扩展名为 .txt 的文件。

    使用文件属性
    文件列表框的属性也提供当前选定文件的属性(Archive、Normal、System、Hidden 和 ReadOnly)。可在文件列表框中用这些属性指定要显示的文件类型。System 和 Hidden 属性的缺省值为 False。Normal、Archive 和 ReadOnly属性的缺省值为 True。
    例如,为了在列表框中只显示只读文件,直接将 ReadOnly 属性设置为 True并把其它属性设置为 False:
    File1.ReadOnly = True
    File1.Archive = False
    File1.Normal = False
    File1.System = False
    File1.Hidden = False
    当 Normal = True 时将显示无 System 或 Hidden 属性的文件。当 Normal =False 时也仍然可显示具有 ReadOnly 和/或 Archive 属性的文件,只需将这些属性设置为 True。
    注意 不使用 attribute 属性设置文件属性。应使用 SetAttr 语句设置文件属性。缺省时,在文件列表框中只突出显示单个选定文件项。要选定多个文件,应使用 MultiSelect 属性。
    详细信息 关于 SetAttr 语句的详细信息,请参阅《Visual Basic 6.0语言参考》的“SetAttr 语句”和“MultiSelect 属性”。

    使用文件系统控件的组合
    如果使用文件系统控件的组合,则可同步显示信息。例如,若有缺省名为Drive1、Dir1 和 File1 的驱动器列表框、目录列表框和文件列表框,则事件可能按如下顺序发生:
    1. 用户选定 Drive1 列表框中的驱动器。
    2. 生成 Drive1_Change 事件,更新 Drive1 的显示以反映新驱动器。
    3. Drive1_Change 事件过程的代码使用下述语句,将新选定项目(Drive1.Drive 属性)赋予 Dir1 列表框的 Path 属性:     Private Sub Drive1_Change ()
      Dir1.Path = Drive1.Drive
     End Sub
    4. Path 属性赋值语句生成 Dir1_Change 事件并更新 Dir1 的显示以反映新驱动器的当前目录。
    5. Dir1_Change 事件过程的代码将新路径(Dir1.Path 属性)赋予 File1 列表框的 File1.Path 属性:
     Private Sub Dir1_Change ()
      File1.Path = Dir1.Path
     End Sub
    6. File1.Path 属性赋值语句更新 File1 列表框中的显示以反映 Dir1 路径指定。
    用到的事件过程及修改过的属性与应用程序使用文件系统控件组合的方式有关。下节“文件系统控件方案:文件搜索器应用程序”演示了这里描述的控件同步。

上一篇:文件系统控件方案    下一篇:文件系统控件的使用  
[发送给好友]  [关闭窗口]  [返回顶部]   转载请注明来源:www.it00.com   
特别声明: 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载,但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站,我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员,我们尽快予以更正。
责任编辑: 原点 投稿作者: 本站收集
信息来源: 网络 录入时间: 2005-8-4 11:16:41
关于我们 - 广告服务 - 版权申明 - 网站地图 - 联系方式 - 总编信箱 - 会员投稿