电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

VB电子教材07VIP专享VIP免费

VB电子教材07_第1页
VB电子教材07_第2页
VB电子教材07_第3页
第7章文件通过前几章的学习,使我们了解,利用VB可以编写一些用于科学计算、图形处理等方面的程序。不仅如此,VB还广泛地应用于编制如人事、财务、生产、教学等各方面的管理程序,在这类应用中,通常需要处理大量不同类型的数据信息,而这些数据信息常常需要独立存储在某种介质上(如磁盘等),以便需要时通过程序来加工处理,这种独立存储的数据集合就称为文件。因此,掌握文件的概念及其使用方法是VB程序设计的重要内容之一。7.1与文件操作有关的控件在Windows应用程序中打开文件或保存文件时,通常需要打开一个对话框,用于选择文件所在的驱动器(盘)、文件夹(目录)、文件名。在VB中,使用盘驱动器列表框(DriveListBox)、目录路径列表框(DirListBox)以及文件列表框(FileListBox)这3种控件的组合,可以创建类似Windows资源管理器的文件操作对话框,用于选择文件。7.1.1盘驱动器列表框控件盘驱动器列表框控件用于显示驱动器列表,工具箱中该控件图标为。该控件缺省的名称为:Drive1、Drive2、……⒈盘驱动器列表框控件常用属性Drive⑴属性(字符串类型)用来设置当前驱动器或返回所选择的驱动器名。Drive属性只能在程序运行时赋值,而不能通过属性窗口设置。为驱动器列表框的Drive属性赋值的语句格式为:<盘驱动器列表框名>.Drive[=驱动器名]格式中的“驱动器名”为指定的驱动器,也就是说使该驱动器成为当前驱动器;如果省略,则不改变当前驱动器。如果所指定的驱动器在系统中不存在,则产生错误。程序运行时若选择驱动器,则Drive属性值改写为所选择的驱动器名。如运行时单击驱动器列表框控件drive1中D:盘图标,则drive1.drive的值为"d:"。值得注意的是:盘驱动器列表框中显示的驱动器名都是由系统自动生成的,用户只能通过列表框选择使用,不可以对Drive控件使用AddItem、RemoveItem等方法添加或删除列表项。List⑵属性(字符串数组)List数组的每一个元素中的字符串,为1个驱动器名,数组下标从0开始。ListCount⑶属性(正整数)ListCount属性值表示系统中盘驱动器的个数。第197页共37页编号:时间:2021年x月x日书山有路勤为径,学海无涯苦作舟页码:第197页共37页若系统有驱动器a:、c:、d:、e:、f:(光驱),则驱动器列表框控件drive1的ListCount属性值为5,执行下列语句后在窗体上输出的结果为“a:c:d:e:f:”。Fori%=0ToDrive1.ListCount-1PrintDrive1.List(i%);Nexti%⒉盘驱动器列表框控件常用事件运行时,当单击驱动器列表框中某一驱动器图标时,该驱动器的名就赋值给控件的Drive属性,同时引发Change事件。例7-1在窗体上设计一个盘驱动器列表框Drive1、一个标签Label1。当程序启动时,设置当前驱动器为C盘;选择盘驱动器列表框中的盘符,在标签上显示相应的当前驱动器信息。在窗体的Load事件中设置Drive属性的初值、编制事件过程Drive1_Change如下:PrivateSubForm_Load()Drive1.Drive="c:"Label1.Caption="当前驱动器为:"+Drive1.DriveEndSubPrivateSubDrive1_Change()Label1.Caption="当前驱动器为:"+Drive1.DriveEndSub界面设计和程序运行的情况分别如图7-1a和图7-1b所示。图7-1a例7-1之界面设计图7-1b例7-1之运行情况7.1.2目录路径列表框控件目录路径列表框控件在工具箱中的图标为。目录路径列表框控件用于显示当前驱动器中文件夹(目录)列表。如图7-2所示。其中,突出显示的为当前目录。目录路径列表框控件缺省的控件名称为:Dir1、Dir2、……第198页共37页第197页共37页编号:时间:2021年x月x日书山有路勤为径,学海无涯苦作舟页码:第198页共37页⒈目录路径列表框控件常用属性Path⑴属性(字符串类型)Path属性值为当前目录或所选择的目录名。如果选中盘x的根目录,则Path属性为"x:\";如果选中盘x的某一个子目录y(文件夹),则Path属性为"x:\y"。请注意,Path属性值的最后一个字符是否为"\",取决于是否选中根目录。同Drive属性一样,Path属性只能用程序代码设置,而不能在设计时通过属性窗口设置。为目录列表框的Path属性赋值的语句格式为:<目录路径列表框名>.Path[=目录路径名]图7-2文件夹(目录)列表运行时单击目录列表框中某一文件夹(目录...

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部