WebBrowers控件的使用和事例以及部分中文说明,抛砖引玉!

参数说明

WebBrowser.LocationURL 文本型 当前打开页面的地址

WebBrowser.LocationName 文本型 当前打开页面的名称 (就是网页title里面的那个)

WebBrowser.GoHome () 转到默认主页

WebBrowser.GoBack () 后退

WebBrowser.GoForward () 前进

WebBrowser.Stop () 停止

WebBrowser.Refresh () 刷新

WebBrowser1.Navigate (, , , , ) 访问网页

参数1是 URL 文本型 就是网页地址

参数2是整数型 我选0 选1或者其他会激活IE窗口打开网页 具体什么用处不是很清楚

参数34我留空 不懂什么用处

里面最重要的命令应该是WebBrowser.ExecWB (, , , )

第一个参数是CMDID 我的一篇文章里面转了MSDN里面的说明 整数型参数

4 另存为 就是说 命令WebBrowser1.ExecWB (4, 1, , ) 就是网页另存为的命令 下面相同

6 不提示直接打印 使用默认打印机

7 打印预览

8 页面设置

17 全选

22 刷新

25 关闭

参数2不知道什么用处 网上基本都说用1 后面两个就更不清楚了 省略可以

下面这是在MSDN上编查到的 很多不清楚怎么用 希望懂得朋友给指点下

同时控件还有四个事件

WebBrowser_V1事件

InternetExplorer事件

ShellWindows事件

ShellNameSpace事件

我只是用到了一个

.

版本 2

.支持库 shdocvw

.子程序 _WebBrowser1_TitleChange

.参数 Text, 文本型

_启动窗口.标题 ＝ WebBrowser1.LocationName

组合框1.内容 ＝ WebBrowser1.LocationURL

我猜想是当Title改变时激活的 虽然不一定对 不过在程序里面还看不出什么大问题

还有一个WebBrowser_V1的事件处理是NewWindows 在一个C++的论坛上看到是用来实现象遨游或者MYIE那样在一个程序内打开多个窗口的.不会用 知识有点断层

希望高手出来指点指点 共同进步 同时我也会寻找更多方法 更新分享给大家

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,

OLECMDID_ONTOOLBARACTIVATED = 31,

OLECMDID_FIND = 32,

OLECMDID_DELETE = 33,

OLECMDID_HTTPEQUIV = 34,

OLECMDID_HTTPEQUIV_DONE = 35,

OLECMDID_ENABLE_INTERACTION = 36,

OLECMDID_ONUNLOAD = 37,

OLECMDID_PROPERTYBAG2 = 38,

OLECMDID_PREREFRESH = 39,

OLECMDID_SHOWSCRIPTERROR = 40,

OLECMDID_SHOWMESSAGE = 41,

OLECMDID_SHOWFIND = 42,

OLECMDID_SHOWPAGESETUP = 43,

OLECMDID_SHOWPRINT = 44,

OLECMDID_CLOSE = 45,

OLECMDID_ALLOWUILESSSAVEAS = 46,

OLECMDID_DONTDOWNLOADCSS = 47,

OLECMDID_UPDATEPAGESTATUS = 48,

OLECMDID_PRINT2 = 49,

OLECMDID_PRINTPREVIEW2 = 50,

OLECMDID_SETPRINTTEMPLATE = 51,

OLECMDID_GETPRINTTEMPLATE = 52,

OLECMDID_PAGEACTIONBLOCKED = 55,

OLECMDID_PAGEACTIONUIQUERY = 56,

OLECMDID_FOCUSVIEWCONTROLS = 57,

OLECMDID_FOCUSVIEWCONTROLSQUERY = 58

OLECMDID_SHOWPAGEACTIONMENU = 59

..

以TWebBrowser(IE4浏览器控件)为例子。

TWebBrowser的常见属性和方法主要有：

GoBack：方法，后退到上一个页面。

GoForward：方法，前进到下一个页面。

GoHome：方法，调用默认的主页页面，该页面在IE的选项中设定。

GoSearch：方法，调用默认的搜索页面，该页面在IE的选项中设定。

Navigate(const URL: WideString; var Flags, TargetFrameName, PostData,

Headers: OleVariant)：方法，调用指定页面，具体参数如下：

URL：指定页面的URL。 Flags：Word类型，作用还不清楚，可设为0。

TargetFrameName：WideString，打开页面所在的Frame，为空字符串时在当前的Frame中打开；TargetFrameName指定的Frame存在时在Frame中打开；

TargetFrameName指定的Frame不存在时则新建一个窗口打开，此时就相当于调用外部的IE浏览器了。

PostData：boolean，是否允许发送数据。

Headers：WideString，要发送的URL请求的头部数据。

Refresh：方法，刷新当前页面。

Stop：方法，停止调用或打开当前页面。

LocationName：属性(WideString)，当前位置的名称。

LocationURL：属性(WideString)，当前位置的URL。

Busy: 属性(Boolean)，是否正忙。

Visible: 属性(Boolean)，浏览器窗口是否可见。

(以下属性为在TWebBrowser新增，TWebBrowser_V1中没有，其作用有待探索)

StatusBar: 属性(Boolean)，是否显示状态栏。

StatusText: 属性(WideString)，状态栏内容。

ToolBar: 属性(SYSINT)，工具栏中的内容。

MenuBar: 属性(Boolean)，是否显示菜单条。

FullScreen: 属性(Boolean)，是否全屏显示。

Offline: 属性(Boolean)，是否脱机浏览。

AddressBar: 属性(Boolean)，是否显示地址栏。

TWebBrowser的常见事件主要有：

OnStatusTextChange = procedure(Sender: TObject; const Text: WideString) of object;

在状态栏提示信息变化时发生，参数Text为当前状态栏提示信息，我们可以根据该信息来更新我们自己的状态栏提示信息或处理其它的事务．

OnProgressChange = procedure(Sender: TObject; Progress, ProgressMax: Integer) of object;

在打开页面的进度变化时发生，参数Progress为当前进度，ProgressMax为总进度，我们可以根据这两个参数来更新我们自己的状态栏提示信息或处理其它的事务．

OnCommandStateChange = procedure(Sender: TObject; Command: Integer; Enable: WordBool) of object;

当执行新的命令时发生，Command为命令标识，Enable为是否允许执行该命令．

OnTitleChange = procedure(Sender: TObject; const Text: WideString) of object;

在页面的标题发生变化时发生，Text为当前标题．

OnPropertyChange = procedure(Sender: TObject; const Property_: WideString) of object;

在页面的属性发生变化时发生，Property_为属性名称

OnDownloadComplete: TNotifyEvent

在下载页面完成后发生．

OnDownloadBegin: TNotifyEvent

在下载页面开始前发生．