|
下面以Visual Basic和JavaScript为例说明程序的具体实现过程。
(1)启动VB6.0，选择“File-New Project-ActiveX DLL”，创建一个 ActiveX DLL 文件，设置工程名为”SaveHTML”。
(2)将默认的类class1的Name设置为Saver，然后为该类加入如下代码，实现接口SaveIt。
Public Sub SaveIt(Recieved As String) 'Recieved用于接收传递过来的参数，即选定的网页内容的HTML代码
SelectedHTML = Recieved '将传递过来的参数赋值给公共变量
MainForm.Show vbModal
End Sub
(3)选择“Project-Add Module”,添加一个模块Module1，在其中加入以下公共变量的声明语句：
Public SelectedHTML As String '公共变量，用于保存选定的网页内容的HTML源代码
(4)选择“Project-Add Form”，添加一个窗体和需要的控件，设置其属性如表2所示：
表2
|
对象 |
属性 |
设置值 |
作用 |
|
Form |
Name |
MainForm |
用户操作界面，用于设置文件的保存位置和文件名 |
|
Caption |
设置文件保存位置和文件名 |
|
Border Style |
3-Fixed Dialog |
|
Label |
Caption |
保存位置 |
起提示作用，使用默认的Name |
|
Label |
Caption |
文件名 |
|
TextBox |
Name |
TextLocation |
显示用户选择的文件保存位置 |
|
Locked |
True |
|
TextBox |
Name |
TextName |
用于输入文件名 |
|
CommandButton |
Name |
CommandBrowse |
单击该按钮可选择文件保存位置 |
|
|
Caption |
选择文件夹… |
|
CommandButton |
Name |
CommandStart |
单击该按钮则保存选定内容 |
|
|
Caption |
开始保存 |
|
