浅谈文档查看程序的编制

支树林

　　摘　要：介绍了1个自己编制的文档查看程序，并给出了具体的源程序代码。

　　关键词：文档　程序　编制

　　Windows操作系统下的文件格式很多，如系统文件（＊.sys）、链接库文件（＊.dll）、控件文件（＊.ocx）等，而我们常用到的文件格式多为文档（如＊.txt、＊.doc、＊.html）和图片文件（如＊.jpg、＊.psd等）。要查看这些文件，一般要双击他们，从而让与之关联的程序运行。如要查看1个doc格式的文档，则一般都要打开Word。由于操作上的不小心，可能双击了您不想打开的文档，如psd格式的图片文件，在您的机器没有将此种格式与Acdsee之类的专门看图软件建立关联时，往往要启动Adobe Photoshop这样的大型软件，在等待程序启动的过程中我们的大量时间也被白白浪费掉了。互联网上有好多专门看图和阅读文档的小软件（如Quick View等），其实我们也可以自己做1个，而且很简单！

　　借助VB 6.0的强大功能，我们可以很方便地实现这一目标。以下是制作的小软件的程序代码。该程序借助Web Browser控件实现对文档和图片的显示。

　　Option Explicit

　　'/////////////////////////////

　　Private Sub Form_Load()

　　　Label1.Top = File1.Top ＋ 3900　　' 释：可通过改变数值调整标签的位置

　　　File1.Pattern = ″＊.gif;＊.txt;＊.doc;＊.htm″

　　　Dir1.Path = Drive1.Drive

　　　File1.Path = Dir1.Path

　　End Sub

　　'/////////////////////////////

　　Private Sub Form_Resize()

　　　Label1.Top = File1.Top ＋ 2200

　　　　 On Error GoTo err

　　'　　　　Label1.Width = Form1.ScaleWidth － 20

　　'　　　　Label1.Top = Drive1.Top ＋ Drive1.Height ＋ 720

　　　　　　 Exit Sub

　　err:

　　　　 Resume Next

　　End Sub

　　'/////////////////////////////////

　　Private Sub Drive1_Change()

　　　On Error GoTo err

　　　　Dir1.Path = Drive1.Drive 　　' 释：选择驱动器

　　err:　　　　　　　　　　　　　　' 释：如果设备未准备好，则给出提示

　　　MsgBox ″Not ready reading″, vbCritical,″error″

　　End Sub

　　'//////////////////////////

　　Private Sub Dir1_Change()

　　 File1.Path = Dir1.Path< /FONT >