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所示。
新聞熱點
疑難解答