在Authorware中使用Active

 以前，在Authorware应用程序内部，要浏览网页是件相当困难的事。自从Macromedia公司推出Authorware4.0以后，情况可就大不一样了！只需要几分钟的时间，您就可以自如地浏览网页；当然，少不了还得仰仗“小妖”棗 ActiveX控件棗的“法术”。
   本文将介绍笔者摸索出的一点实战经验，附赠一个具备“后退”、“前进”、“停止”、“刷新”、“主页”、“搜索”等功能按钮的“网页浏览器”实用例程(流程图如下)；希望在Authorware多媒体开发中，能助您一臂之力。
   这次，我们将用到的ActiveX控件有：Threed Command Button Control、Microsoft Web 浏览器、以及老相识Microsoft Common Dialog Control。现在，让我们开始吧！  
   一.首先，要在Authorware文件里插入所需ActiveX控件 网管网www.bitscn.com

1.新建一个文件（选择File→New→File或按快捷键“Ctrl+N?）。 网管bitscn_com

2.插入一个ActiveX控件(选择lnsert→Control→ActiveX…）。

网管网www.bitscn.com

3.在弹出的“Select ActiveX Control?对话框里，“Control Description?列表框中，单击选定“Microsoft Common Dialog Control?控件，然后单击“OK?按钮。 网管联盟bitsCN@com

4．这时弹出“ActiveX Control Properties?对话框, 将“Dialog Title”属性值设置为：“打开网页”、 将“InitDir”属性值设置为所需的初始化路径名、“Filter”属性值设置为：“html 文件(*.html;*.htm)|*.html;*.htm|”（注意：双引号不要输入），单击“OK?按钮。

网管u家u.bitsCN.com

5.现在，流程线上已经出现了一个“小妖”图标“ActiveX…?，（将它改名为“Opendlg?。）

网管联盟bitsCN@com

7.将新出现的“小妖”图标“ActiveX…?改名为“Browser Control?。 中国网管论坛bbs.bitsCN.com

9.将新出现的“小妖”图标“ActiveX…?改名为“后退”，并复制五个，分别命名为：“前进”、“停止”、“刷新”、“主页”、“搜索”。（参看流程图） 中国网管论坛bbs.bitsCN.com

1. 双击“后退”图标，在弹出的小妖图标属性对话框中，选择“Options…”按钮，调出控件属性对话框。
2. 选择“Custom…”按钮，在弹出的“Authorware属性”对话框中，“Caption”项设置为：后退；然后选择“图片”页中的“Picture”特性，单击“浏览…”按钮，通过浏览图片对话框，将按钮所需的图片（支持*.bmp;*.dib;*.ico;*.cur;*.wmf;*.emf等格式）载入；还可以通过“字体”、“颜色”页，进一步设置按钮的字体、字型、大小、颜色等特性；另外，该控件的“Font3D”属性可设置三维字体，酷吧？

   网管论坛bbs_bitsCN_com

3. 按照同样的方法，设置“前进”、“停止”、“刷新”、“主页”、“搜索”等图标；如果您不需要按钮上出现中文按钮名，保持“Caption”项为空值，即可获得纯图形按钮。

网管下载dl.bitscn.com

三.编写程序代码 网管联盟bitsCN_com

1. 在“Opendlg? 图标之后和“Browser Control? 图标之后，各增加一个计算图标，分别命名为“打开网页?、 “浏览网页?。
2. 在“打开网页?图标中，输入如下代码：

CallSprite(@"Opendlg", #showopen) 网管下载dl.bitscn.com

htmfile:=GetSpriteProperty(@"Opendlg", #filename)

网管论坛bbs_bitsCN_com

代码说明如下：

中国网管论坛bbs.bitsCN.com

CallSprite(@"Opendlg", #showopen)：运行“打开文件”对话框。

中国网管联盟bitsCN.com

htmfile:=GetSpriteProperty(@"Opendlg", #filename)：将“打开文件”对话框中，用户选择的文件名赋值给变量htmfile。

网管论坛bbs_bitsCN_com

3. 在“浏览网页?图标中，输入如下代码： 网管联盟bitsCN_com

CallSprite(@"Browser Control", #Navigate,htmfile, 0, 0, 0, 0)

中国网管联盟bitsCN.com

代码说明如下：

网管下载dl.bitscn.com

调用“Browser Control?控件的“Navigate”（浏览）方法，浏览由变量htmfile所指定的网页（该参数指定浏览网页的路径或统一资源定位符URL）。

中国网管联盟bitsCN.com

若代码变为： 网管联盟bitsCN_com

CallSprite(@"Browser Control", #Navigate,htmfile, 1, 0, 0, 0) 中国网管联盟bitsCN.com

则调用本机的Internet Explorer浏览由变量htmfile所指定的网页。

中国网管联盟bitsCN.com

顺带说一句，如果仅仅是要调用本机的Internet Explorer来浏览由变量htmfile所指定的网页；那么，有更为简捷的方法，只需在计算图标中输入如下代码即可： 网管联盟bitsCN@com

htmfile="在此双引号内,输入需要浏览的网页文件全名"

JumpOutReturn(" C:\\Program Files\\Internet Mail and News\\Iexplore.exe " , htmfile)

网管网www_bitscn_com

1. 从图标工具栏上，拖一个交互图标到流程线末端，命名为“事件响应”。
2. 在其右端增加一个计算图标，这时会弹出 “Response Type”对话框，单击选定“Event”交互，击“OK”按钮，将此计算图标命名为：“后退”。
3. 双击计算图标“后退”上的图符“E”， 这时会弹出 “Properties： Response Type”对话框，程序中所有“小妖”Xtra图标名，这时候都出现在“Sender?（发送者）列表框中.

   网管u家u.bitsCN.com

   
   双击您想要响应其事件的图标名“Icon后退”，一个“X”标记就会出现在其左边。
4. 这时在“Event Name”（事件名）列表框中，双击我们想要响应其事件的事件名“Click”，一个“X”标记就会出现在其左边。
5. 单击“OK”按钮，“小妖”图标“后退”的事件响应即告设置完成；程序执行过程中，一旦发生鼠标单击按钮“后退”的事件，程序将立即转而执行计算图标“后退”中的内容。
6. 在其右端再增加五个计算图标，分别命名为：“前进”、“停止”、“刷新”、“主页”、“搜索”。
7. 依照上述3~6步的做法，分别设置“前进”、“停止”、“刷新”、“主页”、“搜索”等五个“小妖”图标的事件响应。

1. 在计算图标“后退”中，事件响应代码如下：

   CallSprite(@"Browser Control", #GoBack)

   中国网管论坛bbs.bitsCN.com

2. 在计算图标“前进”中，代码如下：

   CallSprite(@"Browser Control", #GoForWard) 中国网管联盟bitsCN.com

3. 在计算图标“停止”中，代码如下：

   CallSprite(@"Browser Control", #Stop)

   网管u家u.bitsCN.com

4. 在计算图标“刷新”中，代码如下：

   CallSprite(@"Browser Control", #Refresh) 网管联盟bitsCN_com

5. 在计算图标“主页”中，代码如下：

   CallSprite(@"Browser Control", #GoHome)

   网管论坛bbs_bitsCN_com

6. 在计算图标“搜索”中，代码如下：

CallSprite(@"Browser Control", #GoSearch) 网管联盟bitsCN@com

六．调试、运行网页浏览程序 网管下载dl.bitscn.com

1. 从菜单选择Control→Restart（或按快捷键“Ctrl+R?），从头开始运行程序。
2. 在弹出 的“打开网页”对话框中，选取本机的网页（或在“文件名：”项中，直接输入统一资源定位符URL）。
3. 这时，展示窗口中将出现选中网页的局部小画面，按快捷键“Ctrl+P?暂停程序，调节该控件句柄直至合适的大小，将各图形按钮拖放到满意的位置。
4. 按快捷键“Ctrl+ R? 从头开始运行程序。现在，您已经完成了一个相当不错的“浏览器”了，只需稍作修改，即可投入实用。

顺便提一提， “Microsoft Web 浏览器” 控件还支持文件拖放操作，下面这段小程序，或许会对您有点用处。 网管论坛bbs_bitsCN_com

在计算图标“搜索”右端，再增加一个计算图标，命名为：“浏览”。将其响应方式设置为按钮响应，在其中输入如下代码：

中国网管联盟bitsCN.com

program:="C:\\windows\\Explorer.exe"

网管u家u.bitsCN.com

document:=htmfile 网管u家u.bitsCN.com

JumpOutReturn(program , document) 网管论坛bbs_bitsCN_com

按快捷键“Ctrl+ R? 从头开始运行程序，在弹出 的“打开网页”对话框中，选取本机的网页；单击按钮“浏览”，在弹出的浏览器窗口中，将地址选为：“C:\”； 现在，您可以在浏览器窗口与“Microsoft Web 浏览器” 控件所开的窗口之间，任意的进行文件拖放操作；还可以在浏览器窗口中，寻找各种文本类文件、图形类文件，直接拖放到控件所开的窗口中，进行查看；相当方便，不过一定要当心哟！ 网管联盟bitsCN@com

另外，本例程里缺少一个地址栏，可用下边的方法代替：

网管u家u.bitscn@com

复制“打开网页?计算图标，粘贴于计算图标“浏览”右端，其响应方式将自动设置为按钮响应，改名为：“地址栏”。其中代码需更改为如下状态： 中国网管论坛bbs.bitsCN.com

CallSprite(@"Opendlg", #showopen) 网管网www.bitscn.com

htmfile:=GetSpriteProperty(@"Opendlg", #filename)

网管网www_bitscn_com

CallSprite(@"Browser Control", #Navigate,htmfile,0, 0, 0, 0)

网管网www.bitscn.com

好了，小弟已是倾囊相授了，不妥之处，敬请不吝赐教。

网管论坛bbs_bitsCN_com