Location:
Search - WebBrowser1.0
Search list
Description: unit Cweb2
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw, StdCtrls, ActiveX
type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser
procedure FormCreate(Sender: TObject)
procedure WebBrowser1DocumentComplete(Sender: TObject
const pDisp: IDispatch var URL: OleVariant)
procedure DemoEventSink(Sender: TObject)
private
public
{ Public declarations }
end
var
Form1: TForm1
implementation
{$R *.dfm}
uses MSHTML, IEDocHostUIHandler, IEConst, DHTMLEvent,comobj
var
FDocHostUIHandler: TDocHostUIHandler //为屏蔽右键菜单
Doc : IHTMLDocument2
Element : IHTMLElement
EventSink: TDHTMLEvent
procedure TForm1.FormCreate(Sender: TObject)
begin
FDocHostUIHandler := TDocHostUIHandler.Create //为屏蔽右键菜单
EventSink := TDHTMLEvent.Create
WebBrowser1.Navigate(GetCurrentDir + \\index.htm )
end
procedure TForm1.DemoEventSink(Sender: TObject)
Var
S:String
-unit Cweb2 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls. SHDocVw, StdCtrls. ActiveX type TForm1 = class (TForm) WebBrowser 1 : TWebBrowser procedure FormCreate (Sender : TObject) procedure WebBrowser1DocumentComp lete (Sender : TObject const pDisp : IDispatch var URL : OleVariant) procedure DemoEventSink (Sender : TObject) private public (Public declaration s) var end Form1 : TForm1 implementation ($ R *. dfm) uses MSHTML , IEDocHostUIHandler, IEConst, DHTMLEven t, comobj var FDocHostUIHandler : TDocHostUIHandler / / right-click menu for shielding Doc : IHTMLDocument2 Element : IHTMLElement EventSink : TDHTMLEvent procedure TForm1.FormCreate ( Sender : TObject) begin FDocHostUIHandler : = TDocHostUIHandler.Create / / right-clic
Platform: |
Size: 19867 |
Author: sbl |
Hits:
Description: 我在网上找到使用rft控件保存webbrowse文本 txtHtml是RichTextBox
txtHTML.Text = WebBrowser1.document.body.innerText
flag ：rsftext 保存为txt文件，strtmp文件路径
txtHTML.saveFile strtmp, rtfText
Platform: |
Size: 7254 |
Author: 高晓斌 |
Hits:
Description: 用窗体打开新窗口... ...
/* 弹出新窗口在本窗体打开
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim NewWindow As frmMain
Set NewWindow = New frmMain
NewWindow.Show
Set ppDisp = NewWindow.WebBrowser1.Object
End Sub
Platform: |
Size: 6739 |
Author: 渝村洪波 |
Hits:
Description: 以前一直在用这个来通过互联星空刷qb，现在没用了，发出来共享了。主要通过WebBrowser1控件来对网页操作！
Platform: |
Size: 212092 |
Author: 滔滔 |
Hits:
Description: WebBrowser的8个方法和13个属性，以及它们的功能：
方法 说明
GoBack 相当于IE的“后退”按钮，使你在当前历史列表中后退一项
GoForward 相当于IE的“前进”按钮，使你在当前历史列表中前进一项
GoHome 相当于IE的“主页”按钮，连接用户默认的主页
GoSearch 相当于IE的“搜索”按钮，连接用户默认的搜索页面
Navigate 连接到指定的URL
Refresh 刷新当前页面
Refresh2 同上，只是可以指定刷新级别，所指定的刷新级别的值来自RefreshConstants枚举表，
该表定义在ExDisp.h中，可以指定的不同值如下：
REFRESH_NORMAL 执行简单的刷新，不将HTTP pragma: no-cache头发送给服务器
REFRESH_IFEXPIRED 只有在网页过期后才进行简单的刷新
REFRESH_CONTINUE 仅作内部使用。在MSDN里写着DO NOT USE! 请勿使用
REFRESH_COMPLETELY 将包含pragma: no-cache头的请求发送到服务器
Stop 相当于IE的“停止”按钮，停止当前页面及其内容的载入
属性 说明
Application 如果该对象有效，则返回掌管WebBrowser控件的应用程序实现的自动化对象(IDispatch)。如果在宿主对象中自动化对象无效，这个程序将返回WebBrowser
控件的自动化对象
Parent 返回WebBrowser控件的父自动化对象，通常是一个容器，例如是宿主或IE窗口
Container 返回WebBrowser控件容器的自动化对象。通常该值与Parent属性返回的值相同
Document 为活动的文档返回自动化对象。如果HTML当前正被显示在WebBrowser中，则
Document属性提供对DHTML Object Model的访问途径
TopLevelContainer 返回一个Boolean值，表明IE是否是WebBrowser控件顶层容器，是就返回true
Type 返回已被WebBrowser控件加载的对象的类型。例如：如果加载.doc文件，就会返
回Microsoft Word Document
Left 返回或设置WebBrowser控件窗口的内部左边与容器窗口左边的距离
Top 返回或设置WebBrowser控件窗口的内部左边与容器窗口顶边的距离
Width 返回或设置WebBrowser窗口的宽度，以像素为单位
Height 返回或设置WebBrowser窗口的高度，以像素为单位
LocationName 返回一个字符串，该字符串包含着WebBrowser当前显示的资源的名称，如果资源
是网页就是网页的标题；如果是文件或文件夹，就是文件或文件夹的名称
LocationURL 返回WebBrowser当前正在显示的资源的URL
Busy 返回一个Boolean值，说明WebBrowser当前是否正在加载URL，如果返回true
就可以使用stop方法来撤销正在执行的访问操作
如何利用 WebBrowser 控件,显示 .GIF 动画?
要有一定的网页知识(HTML、JavaScript、CSS)
注意细节:
没有"滚动条"和"鼠标右键弹出的 IE 上下文菜单",".HTM 源文件" ...
我写了一个,效果还真不错!
''Objects: Form1、Command1、CommonDialog1、WebBrowser1
Option Explicit
Private Sub Command1_Click()
CommonDialog1.ShowOpen
If VBA.Len(VBA.Trim(CommonDialog1.FileN欢迎光临学网,点击这里查看更多文章教程 [1] [2] [3] [4] [5] [6] [7] [8]
ame)) > 0 Then
Dim p As stdole.StdPicture
Dim sPath As String
sPath = VBA.Trim(VBA.Trim(CommonDialog1.FileName))
Set p = VB.LoadPicture(sPath)
WebBrowser1.Width = p.Width * 16 / 26
WebBrowser1.Height = p.Height * 16 / 26
'' WebBrowser1.Navigate "about:blank"
WebBrowser1.Document.open
WebBrowser1.Document.writeln ""
WebBrowser1.Document.writeln ""
WebBrowser1.Document.writeln ""
WebBrowser1.Document.writeln ""
WebBrowser1.Document.writeln "WebBrowser1.Document.writeln "
WebBrowser1.Document.writeln "WebBrowser1.Document.writeln "
"
WebBrowser1.Document.writeln ""
WebBrowser1.Document.writeln ""
End If
End Sub
Private Sub Form_Load()
Command1.Caption = "&Open"
WebBrowser1.Navigate "about:blank"
WebBrowser1.Document.open
WebBrowser1.Document.writeln ""
WebBrowser1.Document.writeln ""
WebBrowser1.Document.writeln ""
WebBrowser1.Document.writeln ""
WebBrowser1.Document.writeln "WebBrowser1.Document.writeln ""
WebBrowser1.Document.writeln ""
WebBrowser1.Document.Close
End Sub
Platform: |
Size: 3992 |
Author: weidonglingsir@163.com |
Hits:
Description: 我在网上找到使用rft控件保存webbrowse文本 txtHtml是RichTextBox
txtHTML.Text = WebBrowser1.document.body.innerText
flag ：rsftext 保存为txt文件，strtmp文件路径
txtHTML.saveFile strtmp, rtfText-I find the use of online control rft text webbrowse Save txtHtml is RichTextBoxtxtHTML.Text = WebBrowser1.document.body.innerText flag: rsftext save it as a txt file, strtmp file path txtHTML.saveFile strtmp, rtfText
Platform: |
Size: 7168 |
Author: 高晓斌 |
Hits:
Description: 自己做的精简浏览器，实现了所有基本功能。-The streamlining of its own browser, to achieve all the basic features.
Platform: |
Size: 132096 |
Author: 快 |
Hits:
Description: Private Sub Command1_Click
WebBrowser1.Navigate "http://localhost/"
-Private Sub Command1_ClickWebBrowser1.Navigate
Platform: |
Size: 43008 |
Author: 张现崇 |
Hits:
Description: 用VB制作的一个简单的网页浏览器Private Sub Form_Load()
Label2.Left = 0
Label2.Top = Toolbar1.Height
Combo1.Top = Toolbar1.Height
Label2.Caption = "地址: "
Label2.Height = 315
Combo1.Left = Label1.Width
Combo1.Width = Form1.Width - Label2.Width
WebBrowser1.Width = Form1.ScaleWidth
WebBrowser1.Top = Combo1.Top + 500
WebBrowser1.Height = Form1.ScaleHeight - Combo1.Height - StatusBar1.Height - 200
WebBrowser1.Left = 0
Download by http://www.codefans.net
StatusBar1.Panels(1).Width = Form1.Width / 2
StatusBar1.Panels(2).Width = Form1.Width / 4
StatusBar1.Panels(3).Width = Form1.Width / 4
StatusBar1.Panels(2).Text = "我的电脑"
StatusBar1.Panels(3).Text = Str$(Time)
On Error Resume Next
Me.Show
内详-VB produced a simple web browser
Platform: |
Size: 5120 |
Author: 李贤山 |
Hits:
Description: 一款在ipad上运行的 浏览器，它有浏览器该有的基本功能，易于扩展。-A browser running on the ipad, it has the basic functionality of the browser, easy to expand.
Platform: |
Size: 96256 |
Author: linchao |
Hits:
Description: 用高级Swing编写的WEB网页浏览器，希望对大家有帮助-Written in a high-level Swing WEB web browser, and I hope for all of us to help
Platform: |
Size: 20480 |
Author: zhangwei |
Hits:
Description: 天际浏览器，十分强大的浏览器，可以换肤哦Q-Skyline browser, very powerful browser, peels Oh Q
Platform: |
Size: 1024 |
Author: 谭天 |
Hits:
Description: 天际浏览器，十分强大的浏览器，可以换肤哦Q-Skyline browser, very powerful browser, peels Oh Q
Platform: |
Size: 1024 |
Author: ngthest |
Hits: