Search - WebBrowser1.0

Search - WebBrowser1.0 - List

[Internet-Network] IE4SinkDemo DL : 0: 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
Update : 2008-10-13 Size : 19.4kb Publisher : sbl
[Browser Client] webbrowser DL : 0: 我在网上找到使用rft控件保存webbrowse文本 txtHtml是RichTextBox txtHTML.Text = WebBrowser1.document.body.innerText flag ：rsftext 保存为txt文件，strtmp文件路径 txtHTML.saveFile strtmp, rtfText
Update : 2008-10-13 Size : 7.08kb Publisher : 高晓斌
[Windows Develop] VB DL : 0: 用窗体打开新窗口... ... /* 弹出新窗口在本窗体打开 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
Update : 2008-10-13 Size : 6.58kb Publisher : 渝村洪波
[Internet-Network] ShuaQB DL : 0: 以前一直在用这个来通过互联星空刷qb，现在没用了，发出来共享了。主要通过WebBrowser1控件来对网页操作！
Update : 2014-01-07 Size : 207.12kb Publisher : 滔滔
[Documents] WebBrowser的8个方法和13个属性 DL : 0: 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
Update : 2010-10-05 Size : 3.9kb Publisher : weidonglingsir@163.com
[Browser Client] webbrowser DL : 0: 我在网上找到使用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
Update : 2025-02-19 Size : 7kb Publisher : 高晓斌
[Browser Client] webbrowser1.0 DL : 0: 自己做的精简浏览器，实现了所有基本功能。-The streamlining of its own browser, to achieve all the basic features.
Update : 2025-02-19 Size : 129kb Publisher : 快
[Multimedia Develop] vb DL : 0: Private Sub Command1_Click WebBrowser1.Navigate "http://localhost/" -Private Sub Command1_ClickWebBrowser1.Navigate
Update : 2025-02-19 Size : 42kb Publisher : 张现崇
[Internet-Network] codefans.net DL : 0: 用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
Update : 2025-02-19 Size : 5kb Publisher : 李贤山
[IOS] WebBrowser1 DL : 0: 一款在ipad上运行的浏览器，它有浏览器该有的基本功能，易于扩展。-A browser running on the ipad, it has the basic functionality of the browser, easy to expand.
Update : 2025-02-19 Size : 94kb Publisher : linchao
[Game Program] webbrowser1 DL : 0: 用高级Swing编写的WEB网页浏览器，希望对大家有帮助-Written in a high-level Swing WEB web browser, and I hope for all of us to help
Update : 2025-02-19 Size : 20kb Publisher : zhangwei
[Software Engineering] SkyFall-WebBrowser1.0 DL : 0: 天际浏览器，十分强大的浏览器，可以换肤哦Q-Skyline browser, very powerful browser, peels Oh Q
Update : 2025-02-19 Size : 1kb Publisher : 谭天
[Internet-Network] SkyFall-WebBrowser1.0 DL : 0: 天际浏览器，十分强大的浏览器，可以换肤哦Q-Skyline browser, very powerful browser, peels Oh Q
Update : 2025-02-19 Size : 1kb Publisher : ngthest