利用文件控件来处理文件

转载 2007年09月13日 12:09:00

二、利用文件控件来处理文件

1、第一个示例(见教材P324)

(1)设置初始窗体属性

属性 设置
(name) form1
borderstyle 3-fixed dialog'不能改变窗体大小
caption form1
enabled true '不能移动窗体
height 3600
left 0
maxbutton false
minbutton false
moveable false
picture (none)
startupposition 2-centerscreen '窗体位于屏幕中心
top 0
visible true
width 5670
windowstate 0-normal

(2)添加控件,设置其属性  

向窗体添加一个drivelistbox控件,一个dirlistbox控件 一个filelistbox控件,它们将实现相应不同的功能,同时它们又相互协调。

如图:

  

(3)编写代码

程序的初始化代码:

Private Sub Form_load()

Drive1.enabled=true  

Dir1.enabled=true

File1.enabled=true   '设置控件的有效状态

File1.pattern="*.exe" '设置过滤器,使之只显示可执行文件

Drive1.drive="c:/"   '设置控件的初始驱动器为C盘

End Sub

程序说明:程序首先通过Drive1.enabled=true,Dir1.enabled=true,File1.enabled=true来设置控件的有效状态,然后设置文件的过滤器为"*.exe"和控件的初始驱动器为"c:/",这样只有在c盘下面的以"*.exe"结尾的可执行文件才能够显示出来。

三控件同步:

Private Sub Drive1_change()

Dir1.path=Drive1.Drive '改变驱动器,使目录列表框中的内容跟着所选驱动器的变化而变化

End Sub

程序说明:在程序的运行阶段,改变驱动器时,就会激活DriveListBox控件的Drive1_Change()事件,然后通过Dir1.path=Drive1.Drive来使DriveListBox控件显示改变驱动器后的目录。

Private Sub Dir1_change()

File1.path=Dir1.path '改变目录,使目录列表框中的内容跟着所选文件夹的不同而不同

End Sub

程序说明:在程序的运行阶段,改变目录时,就会激活DirListBox控件的Dir1_change()事件,然后通过File1.path=Dir1.path来使FileListBox控件显示改变目录后的文件列表。

显示文件路径和文件名:

Private Sub File1_Click()
    MsgBox File1.Path & "/" & File1.FileName  '输出文件路径和文件名。
End Sub

(4)存储文件,运行程序

[程序演示]        [程序下载]

2、第二个示例(见教材P329)

界面设计:

(1)设置初始窗体属性

 

属性 设置
(name) form1
borderstyle 3-fixed dialog
caption form1
enabled true
height 3600
left 0
maxbutton false
minbutton false
moveable false
picture (none)
startupposition 2-centerscreen
top 0
visible true
width 5670
windowstate 0-normal

(2)添加CommonDialog控件,设置属性

如果在窗体上放置一个CommonDialog控件,首先把它添加到工具箱上,选择菜单[工程]/[部件] ,就会弹出对话框,选择Mocrosoft Common Dialog Control6.0项,在工具箱中就会自动的添加一个CommonDialog控件。它的属性设置如下:

属性 设置
(name) CommonDialog1
DialogTitle 选择一个图像文件
Filename *.bmp;*.jpg;*.gif '用分号隔开
Filter *.bmp;*.jpg;*.gif
InitDir c: '设置初始化文件目录
Left 4440
Top 0

(3)在窗体上添加其它控件,设置属性

在窗体上添加一个Image控件和三个CommandButton控件。

(4)编写程序的初始化代码  

在程序的设计阶段,双击窗体,在窗体的Form_load()事件中添加下列代码:

Private Sub Form_Load()

Command1.Enabled=tru

Command2.Enabled=true

Command3.Enabled=true

End Sub

程序说明 窗体的Form_load()事件在程序的运行初期就被执行,所以在其中添加代码对程序进行初始化,在本程序中初始化的工作在于设置各个按钮的有效状态。

如果没在属性窗口中设置过滤器Filename、Filter的属性,也可在这段代码中添加代码:

CommonDialog1.Filter = "Text(*.txt)|*.txt|Picture(*.bmp)|*.bmp|Picture(*.gif)|*.gif|Picture(*.jpg)|*.jpg" '设置过滤器(注意分隔符)。

(5)响应按钮"打开文件"的单击事件

按钮"打开文件"的作用是显示一个对话框,并且可以在其中选择一个图像文件,为了实现以上功能,所以在Command2_click()事件中添加如下代码:

Private Sub Command2_Click()

CommonDialog1.showopen '显示"打开"对话框

Image1.picture=LoadPicture(CommonDialog1.Filename) '在Image控件中显示图像

End Sub

程序说明:在程序的运行过程中,单击按钮[打开文件]时,Command2_Click()事件就被激活,然后开始执行其中的代码,首先通过CommandDialog1.showopen语句来显示"打开"对话框,选中一个有效的图像文件后单击[确定]按钮,就可通过Image1.Pcture=LoadPicture(CommonDialog1.Filename)显示图像。

(6)响应其余按钮单击事件

按钮"清除"的作用是清除在Image控件中显示的图像文件,为了实现上述功能,可以在Command3_Click()事件中添加代码

Private Sub Command3_Click()

Image1.Picture=LoadPicture("")

End Sub

按钮“退出”的作用是结束程序的运行,返回设计阶段,所以在Command1._click()事件中添加下列代码:

Private Sub Command1_click()

 End '结束运行

End sub

(7)存储文件,运行程序

[程序演示]        [程序下载] 

 

利用VBA文件处理语句来处理文件

     VBA包含了许多用于文件操作的语句和函数,可以满足绝大多数情况下的文件操作要求。下面我们按照操作目的进行一一介绍。(一)文件处理    1.Name 语句语法:Name oldpathnam...
  • BrightskyLiu
  • BrightskyLiu
  • 2009年01月15日 16:47
  • 800

利用FileSystemObject对象来处理文件

 FileSystemObject对象模型,是微软提供的专门用来访问计算机文件系统的,具有大量的属性、方法和事件。其使用面向对象的“object.method”语法来处理文件夹和文件,使用起来十分方便...
  • BrightskyLiu
  • BrightskyLiu
  • 2009年01月15日 16:43
  • 660

在python中使用SimpleITKeras 进行 mha医学图像加载显示

下载了BRATS的数据集,可以用SimpleITK打开,这里介绍需要的工具和配置过程
  • u014576926
  • u014576926
  • 2017年12月18日 15:51
  • 162

使用Microsoft Office所带的控件来实现代码操作excel表格。

摘要:使用Microsoft Office所带的控件来实现代码操作excel表格。   最近由于工作需要,不得不操作Excel,包括基本的数据输入输出、字体设置、颜色设置、单元格的合并、填充色的设置...
  • hxh129
  • hxh129
  • 2014年01月23日 16:28
  • 2571

使用native2ascii命令处理Struts2国际化资源文件

native2ascii是sun java sdk提供的一个工具。用来将别的文本类文件(比如*.txt,*.ini,*.properties,*.java等等)编码转为Unicode编码。为什么要进行...
  • w13151556135
  • w13151556135
  • 2014年04月30日 12:16
  • 1206

利用INF文件来修改注册表

 利用INF文件来修改注册表   [Version] Signature="$CHICAGO$" [Defaultinstall] addREG=Gc [Gc] HKCU,"Sof...
  • cbacq
  • cbacq
  • 2016年05月13日 16:43
  • 1596

使用系统调用来处理文件

本文描述Linux系统下,系统调用方法write,read以及open的具体使用方法。
  • jaryguo
  • jaryguo
  • 2015年01月26日 17:55
  • 318

利用杀毒软件来破坏文件

最近的一个邪恶发现:5. 利用杀毒软件来破坏文件这个技巧是我知道的最邪恶的一个方法了,因为不仅方法十分巧妙地避过了所谓的“智能主动防御”,而且还嫁祸于杀毒软件。个人觉得发明这个方法的家伙不仅精通编写程...
  • moxingwen11
  • moxingwen11
  • 2009年12月04日 22:51
  • 252

贝叶斯分类(涉及python3 的string的方法、文件读取操作方法、arff文件格式)

前段时间学习python3的基础知识,现在
  • Ben_Ben_Niao
  • Ben_Ben_Niao
  • 2014年11月09日 18:33
  • 1322

利用xlrd处理Excel文件

利用xlrd处理Excel文件
  • u013805817
  • u013805817
  • 2015年01月12日 18:37
  • 624
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:利用文件控件来处理文件
举报原因:
原因补充:

(最多只允许输入30个字)