在PB中调用IE

1. 先在窗口上拖一个Microsoft Web Browser上来，调整好大小。
2. 通过PB的对象浏览器察看我们可以查到它支持的属性，方法，事件。最主要的用这么几个：
   1. Navigate(string url)
   2. 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就可以了。

ole_1.object.Navigate(sle_1.text)

//Ole控件的documentcomplete事件代码
cb_saveas.postevent(clicked!)
我们post 保存按钮的一个event：clicked，在保存按钮中调用IE的另存为功能.

//保存按钮的clicked事件代码

int OLECMDID_PRINT = 6
int OLECMDID_PRINTPREVIEW = 7
int OLECMDID_PAGESETUP = 8
int OLECMDID_SAVEAS = 4

int OLECMDEXECOPT_DODEFAULT = 0
int OLECMDEXECOPT_PROMPTUSER = 1
int OLECMDEXECOPT_DONTPROMPTUSER = 2

try
 ole_1.object.ExecWB( OLECMDID_SaveAs, OLECMDEXECOPT_PROMPTUSER )
 //ole_1.object.ExecWB( OLECMDID_SaveAs, OLECMDEXECOPT_PROMPTUSER, AsStatement!   )都可以

 ole_1.object.ExecWB( OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER )
 //ole_1.object.ExecWB( OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, AsStatement!   )都可以
catch(runtimeerror er)
 //通常我们不显示错误，因为用户点了取消也会有一个错误
 //messagebox('',er.text)
end try

ExceWb详细的参数说明：

下边是API方法：

Environment lEnv 
string ls_addr,ls_null 
ls_addr = 'www.sohu.com' 
SetPointer( HourGlass! ) 
SetNull( ls_null ) 
IF GetEnvironment( lEnv ) = 1 THEN 
IF lEnv.Win16 THEN 
ShellExecute16( Handle(this), 'open', ls_addr, ls_null, ls_null, 0 ) 
ELSE 
ShellExecute32(Handle(this), 'open', ls_addr, ls_null, ls_null, 0 ) 
END IF 
END IF 


ShellExecute32是api函数