关闭

利用文件控件来处理文件

标签: commandimagefiledialogfilter工具
431人阅读 评论(0) 收藏 举报

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

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)存储文件,运行程序

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

 
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:92715次
    • 积分:1012
    • 等级:
    • 排名:千里之外
    • 原创:0篇
    • 转载:53篇
    • 译文:0篇
    • 评论:32条
    最新评论