找回密码
 注册
搜索
查看: 4030|回复: 0

在VC中使用WebBrowser控件的两方法

[复制链接]
发表于 2004-1-20 21:23:15 | 显示全部楼层 |阅读模式
在VC中使用WebBrowser控件的两方法
% L# v1 f5 K( @
5 W! a9 B; k& n& p" W" j  , g8 U  N% r5 B4 c6 P, H, m
在VC中使用WebBrowser控件的两方法2 Q) Y' j4 E% |: e
黄森堂(vcmfc)著
: }- T1 g& u. Z3 U* [$ M
  {$ S) A$ m7 c5 k- s6 J: bClassWizard方式:" `4 H' W5 e1 E& `/ ^" j# o% M
( p9 c1 n; }2 F& J$ W1 R
1.创建包装类:View->ClassWizard->Add Class->Form a Type Library->C:\winnt\system32\shdocvw.dll->只选择IWebBrowserApp类->OK->OK! a1 a2 y. K8 v. {
2.声明一个类变量:IWebBrowserApp m_internetexplorer;,并包含刚才的头文件(xxx.h)8 U$ M9 c6 b+ I- L
3.在类的构造函数中调用COleDispathDrive::CreateDispatch()函数,加载服务器,如下代码:1 s4 m- p* ^7 S5 u5 i
  m_internetexplorer.CreateDispatch("InternetExplorer.Application.1";% i0 X; p8 Y2 b3 r' F
4.在类的析构函数中调用COleDispathDrive::ReleaseDispatch()函数,加载服务器,如下代码:# b( b; d; B) h; z4 d/ A# a. c
  m_internetexplorer.CreateDispatch();" }: B  M2 r- D! W
5.在程序中指定URL地址后进行打开WEB页,如下代码:5 j8 x( h, j$ I! X' r2 N
  VARIANT vInfo;
5 v4 u7 t$ K( L7 e6 B  vInfo.vt=VT_EMPTY;1 L+ {$ ~; q- w0 E; j5 z0 S& I
  m_internetexplorer.Navigate("地址",&vInfo,&vInfo,&vInfo,&vInfo);3 n3 z: s3 f- A5 q  {
  m_internetexploret.SetVisible(TRUE);
& a5 @& q6 T' w0 O9 W$ z' I
3 w* ~& e# m+ v5 s备注:还可以使用插入控件的方式来控制IE的,只需要几步就可以了,如下:% E3 v7 `; v1 [, |1 {  Y
1.在VC中插入WebBrowser控件,并产生相应的包装类
3 U- H5 u" ^9 U* y, h% V: ~2.声明一个类变量,可用ClassWizard的变量映射来进行。
( ]3 S2 e, r# `" L4 Q3.在程序中指定URL地址后进行打开WEB页,如下代码:! _& B8 V2 b' E6 m7 h
  VARIANT vInfo;
3 |' Q' b* y% T. s8 r  vInfo.vt=VT_EMPTY;
9 e5 A$ Z" H1 ]6 b# c* W( w+ R! p' @( L. G  m_internetexplorer.Navigate("地址",&vInfo,&vInfo,&vInfo,&vInfo);6 \' N! O' P3 w) P
  m_internetexploret.SetVisible(TRUE);
( I) B( b0 H8 n
5 _# R7 Q: L- F3 w, q, r#import方式:# b# b% v+ x" V1 h4 x8 i

+ J. z1 i" [9 {1.使用import导入类,在你的类的头文件加入以下代码:7 c' ~/ M1 O9 a3 p! h8 e
  #import "c:\winnt\system32\shdocvw.dll" rename ("tagREADYSTATE","tagIEREADYSTATE"
6 Y+ W6 L+ W1 l6 Z    using namespace SHDocvw;
) G% b, y' }2 ?4 x3 C1 r/ _2.声明一个类变量:IWebBrowserAppPtr m_internetexplorer;
4 t% T" |9 ?2 H6 S. `& w6 Y% O# e3.在类的构造函数中调用COleDispathDrive::CreateDispatch()函数,加载服务器,如下代码:' q+ Y) f! d  ^! i9 ?; C
  m_internetexplorer->CreateInstance("InternetExplorer.Application.1";
1 N. o3 }% L& z8 D! l4.在程序中指定URL地址后进行打开WEB页,如下代码:/ N* E0 |3 o& S% u+ }
  VARIANT vInfo;  q) n" G: i5 B5 z
  vInfo.vt=VT_EMPTY;
' |3 _6 ~" z& W  m_internetexplorer->Navigate("地址",&vInfo,&vInfo,&vInfo,&vInfo);
, C5 D. a( _, {4 N. p1 _  m_internetexploret->utVisible(TRUE);0 P* n, o$ _: v
# v1 N6 z" K- y
以上是从《应用Visual Studio 6.0》书上摘下来的,本人没有测试过!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|宁德市腾云网络科技有限公司 ( 闽ICP备2022007940号-5|闽公网安备 35092202000206号 )

GMT+8, 2025-5-5 08:46 , Processed in 0.014084 second(s), 15 queries .

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表