WebBrowser组件的execWB方法——Delphi控制浏览器组件

 

WebBrowser组件的execWB方法

1. <object id="WebBrowser" width=0 height=0 classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2"></object>

2. 调用方法:

WebBrowser.ExecWB (nCmdID, nCmdExecOpt, [pvaIn], [pvaOut])

3. 参数说明:

(a).nCmdID 

OLECMDID_OPEN = 1, 

OLECMDID_NEW = 2, 

OLECMDID_SAVE = 3, 

OLECMDID_SAVEAS = 4, 

OLECMDID_SAVECOPYAS = 5, 

OLECMDID_PRINT = 6, 

OLECMDID_PRINTPREVIEW = 7, 

OLECMDID_PAGESETUP = 8, 

OLECMDID_SPELL = 9, 

OLECMDID_PROPERTIES = 10, 

OLECMDID_CUT = 11, 

OLECMDID_COPY = 12, 

OLECMDID_PASTE = 13, 

OLECMDID_PASTESPECIAL = 14, 

OLECMDID_UNDO = 15, 

OLECMDID_REDO = 16, 

OLECMDID_selectALL = 17, 

OLECMDID_CLEARselectION = 18, 

OLECMDID_ZOOM = 19, 

OLECMDID_GETZOOMRANGE = 20 

OLECMDID_updateCOMMANDS = 21 

OLECMDID_REFRESH = 22 

OLECMDID_STOP = 23 

OLECMDID_HIDETOOLBARS = 24 

OLECMDID_SETPROGRESSMAX = 25 

OLECMDID_SETPROGRESSPOS = 26 

OLECMDID_SETPROGRESSTEXT = 27 

OLECMDID_SETTITLE = 28 

OLECMDID_SETDOWNLOADSTATE = 29 

OLECMDID_STOPDOWNLOAD = 30 

上面的关键词都可以在浏览器的菜单里面找到对应的选项﹐大家一看就明白的﹗ 

(b).nCmdExecOpt 

OLECMDEXECOPT_DODEFAULT = 0, 

OLECMDEXECOPT_PROMPTUSER = 1, 

LECMDEXECOPT_DONTPROMPTUSER = 2, 

OLECMDEXECOPT_SHOWHELP = 3 

对于这个参数﹐一般来说﹐选1就可以了。

4.常用:

WebBrowser.ExecWB(1,1) 打开

WebBrowser.ExecWB(2,1) 关闭现在所有的IE窗口，并打开一个新窗口

WebBrowser.ExecWB(4,1) 保存网页

WebBrowser.ExecWB(6,1) 打印

WebBrowser.ExecWB(7,1) 打印预览

WebBrowser.ExecWB(8,1) 打印页面设置

WebBrowser.ExecWB(10,1) 查看页面属性

WebBrowser.ExecWB(15,1) 好像是撤销，有待确认

WebBrowser.ExecWB(17,1) 全选

WebBrowser.ExecWB(22,1) 刷新

WebBrowser.ExecWB(45,1) 关闭窗体无提示