1.拖动一个显示图标至流程线上,引入底图,用文字工具在适当位置写下“地址:”文字。
2.选择insertcontrolactivex...,弹出select activex control对话框,选择microsoft web浏览器,单击ok,选择默认配置按ok即可。将activex控件的图标命名为browser。
图1
3.浏览器窗口的大小不能直接打开activex控件图标调整,可以将stop小旗拖到activex控件图标下方,按运行图标,这时点击浏览器窗口就可以自由调整浏览器窗口的大小了。
4.拖动一个交互图标至流程线上并命名为选单,拖动一个计算图标至流程线右侧,选择response type为text entry,将输入文字的控件拖到“地址:”文字的右侧。
5.打开计算图标,输入如下代码:callsprite(@″browser″,#navigate,entrytext).callsprite函数调用的格式如下:result := callsprite(@″spriteicontitle″,#method [, argument...]),其中第一个参数是图标的名称,第二个参数是调用此图标的方法名称,后面可以跟若干个此方法调用时所需要的参数。
6.拖动五个计算图标至交互图标右侧,都选择按钮方式,分别命名为后退、前进、主页、停止、刷新。单击按钮控制,将按钮拖到合适的位置,选择buttons.....可以制作相应的图形按钮。
7.打开所有的计算图标,分别输入如下代码:
图2
前进:callsprite(@″browser″,#goforward)
后退:callsprite(@″browser″,#goback)
主页:callsprite(@″browser″,#gohome)
停止:callsprite(@″browser″,#stop)
刷新:callsprite(@″browser″,#refresh)
流程图和运行结果如图1和图2所示。
新闻热点
疑难解答