在PB中调用IE

先在窗口上拖一个Microsoft Web Browser上来，调整好大小。 通过PB的对象浏览器察看我们可以查到它支持的属性，方法，事件。最主要的用这么几个： 1. Navigate(string url) 2. ExecWB (nCmdID, nCmdExecOpt, [pvaIn], [pvaOut] ) 下面我们来通过代码实现一个打开网页并弹出另存，然后直接打印的程序。 (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函数

转载于:https://www.cnblogs.com/Mr-Xia/archive/2011/09/07/2169913.html