##
问：浏览大量html文件，用什么浏览器？
我经常从网上下载html文件，存到一个专门的文件夹，天长日久
越积越多，光是英文名字的，就好几十个。自己试验网页效果的文件，
都存在test目录下，以test01.htm,test02.htm,……命名，也是几十
个。这些文件，查找起来，要是用IE浏览器一个个打开看，太费事了。
有关联的用前后箭头切换，还好办一点，但大多数都没有什么关联，
那该用什么浏览器？
河石：我发现有一个软件比较好用，请您试试看。
我从《程序员大本营》2001光盘中找到一个浏览器程序，是VB做
的，带有源码。我用VB6.0 编译了一下，可以走通，又在界面上作了
一点改进，生成ViewHtml.exe文件，感觉用它来浏览盘上的html文件，
显示很快，切换也很方便。
例如：我打开一个文件indexrm.htm(热门资讯) ，用IE浏览器打
开用了11秒，用ViewHtml浏览器，只用了1 秒，显示很快，用来浏览
大量html文件，非常方便。功能当然没有IE那么齐全。
但由于提供了源码，自己增加或改进一些功能，也都可能办到。
制作步骤：
１、首先启动VB6并新建一个EXE工程。
２、添加窗体：工程1-Form1
Caption "Form1"
Height = 5490
Left = 60
Top = 345
Width = 7470
DriveListBox 设置
Width = 2055
Top = 120 Left = 120
TabIndex = 0
DirListBox 设置
Height = 1665
TabIndex = 2
浏览器窗口 设置
右击工具面板 选 "附件"
选中 microsoft Internet ｜ 确定，在工具面板上就添
加了一个WebBrowser 图标，用鼠标在工程面板上画一方框
Height = 4695
Left = 2400
Width = 3255
３、把目录、磁盘切换函数change() 定义，否则双击不切换。
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
Dim astr As String
astr = "file://" + Dir1.Path + "\" + File1.FileName
WB1.Navigate astr
File1.SetFocus
End Sub
Private Sub Form_Load()
Dir1.Path = Drive1.Drive
File1.Path = Dir1.Path
End Sub
４、把不同分辩率设定窗口写入程序。
Private Sub Form_Resize()
Dim l1
Dim l2
On Error GoTo errnext
l1 = Form1.ScaleHeight - 960
l2 = Form1.ScaleWidth - 2640
File1.Height = Me.ScaleHeight \ 2.5
Dir1.Top = 270 + Drive1.Height
Dir1.Height = Me.ScaleHeight \ 3
File1.Top = Drive1.Height + Dir1.Height + 420
WB1.Move 2415, 120, l2, l1
LShow.Top = File1.Top + File1.Height + 120
LShow.Width = Form1.ScaleWidth - 240
Exit Sub
errnext:
Resume Next
End Sub
Private Sub WB1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
LShow.Caption = URL
End Sub
问： 修改ViewHtml.frm时，为何不起作用？如何解决？
答： 用记事本修改.frm文件，但用VB调入时，不显示改变了的文
件内容，一般是启动程序时的环境设置默认是"不保存改变" ，改变设
置就可以解决。步骤是：
工具｜选项｜环境｜启动程序 有三种选择： 保存改变；提示保
存改变；不保存改变。将其默认值设为保存改变即可。
此程序相关文件提供下载，以便于交流。
下载: 程序文件 viewhtml.zip 30 KB
问：用浏览器如何快速查看文件？
答：
(新增内容：2004.2.25 补充)
这个小软件，如果用好了可以发挥较大的作用。
改进viewhtml.exe的用法：
方法1:
1.将viewhtml.exe 改名为 00.exe。
2.将 00.exe 复制到一个常用目录下。如：c:\My Documents\ 下。
3.将它列为 HTML 文件的一种打开方式。
编辑步骤：
我的电脑 |查看 |文件夹选项 |文件类型 |选择：HTML Document |
编辑 |新建 |在弹出的对话框中：
操作： 用 00.exe 打开
用于执行操作的应用程序：
"C:\My Documents\00.exe" "%1"
按"确定"退出。
4.这时您用右键点击任何一个 HTML 文件时，都会弹出"用 00.exe 打开"
的选项。点击00.exe进行阅读，打开速度很快。
方法2:
1.将viewhtml.exe 改名为 00.exe。
2.把它复制到html文件多的文件夹。因文件不大 24 KB,用ASPACK
软件压缩，只有16 KB。占用影响一般可以忽略。
3.点击00.exe进行阅读，打开速度很快。
我用这个方法把一年来从网上下载的网页，并按wx(文学)、
wy(网页制作)、jk（健康）、jj（经济）等分类建子目录。每个
子目录都把00.exe拷进去。因00.exe是第一个文件，浏览时不用
找，点击00.exe进行阅读，感觉很方便。
河石 编 2002.5 。 2004.11 修改 。
相关链接：
《用 VC 制作小巧的编辑器》
|
