问答题

[说明] 本程序实现的功能是查看磁盘上的图片及其基本信息。程序运行界面如下图所示,用户只要逐步选择适当的驱动器、目录和图片文件,图片内容随即显示在界面中央,文件的基本信息则呈现于右侧文本框中。用户还可以删除或复制选中的图片文件。
在开发过程中,驱动器列表框名为Drivel,目录列表框名为Dir1,文件列表框名为File1,图片的显示由Image控件对象Image1来实现,文件信息文本框名为Text1,按钮“删除文件”和“复制到…”分别名为CmdDel和CmdCpy。 [Visual Basic代码] Dim filename As String Dim fso As New (1) , file As file Private Sub Form_Load() Set fso = CreateObject("Scripting.FileSystemObject") Drivel.Drive = "F:" End Sub Private Sub Dir1_Change() File1.path=Dirl.path ’更新文件列表框的路径 End Sub Private Sub Drive1_Change() Dir1.path = (2) ’更新目录列表框的路径 End Sub Private Sub File1_Click()’文件列表框的单击事件响应代码 If Right(Dir1.path, 1) <>"\" Then filename = Dir1.path & "\" & Filel.filename Else filename = Dir1.path & Filel.filename End If Image1.Picture = (3) Set file = fso.GetFile(filename) Text1. Text = "文件名称:" & file.Name & vbCrLf & _ "文件大小:" & file. Size & "字节" & vbCrLf & _ "文件类型:" & file.Type & vbCrLf & _ "创建日期:" & file. DateCreated & vbCrLf & _ "修改日期:" & file. DateLastModified End Sub Private Sub CmdCpy_Chck()’按钮“复制到…”的单击事件响应代码 Dim path As String path = InputBox("请输入目标路径(含文件名):") (4) End Sub Private Sub CmdDel_Click()’按钮“删除文件”的单击事件响应代码 (5) End Sub

【参考答案】

(1) FileSystemObject (2) Drivel.Drive (3) LoadPic ture(filen......

(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)
热门 试题