Webbrowser控件史上最强技巧全集

《Webbrowser控件史上最强技巧全集》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、Webbrowser控件史上最强技巧全集VB调用webbrowser技巧集1、获得浏览器信息：PrivateSubCommand1_Click()WebBrowser1.Navigate"http://www.applevb.com"EndSubPrivateSubCommand2_Click()DimoWindowDimoNavSetoWindow=WebBrowser1.Document.parentWindowSetoNav=oWindow.navigatorDebug.PrintoNav.userAgentSetoWindow

2、=NothingSetoNav=NothingEndSub点击Command1浏览网页，点击Command2在立即窗口中输出浏览器信息。2、弹出Webbrowser消息窗口DimoWindowSetoWindow=WebBrowser1.Document.parentWindowoWindow.confirm"abcd"VB调用webbrowser技巧集2向Webbrowser中写入HTML内容的几种方法首先在Form_Load中加入WebBrowser1.Navigate"about:blank"确保Webbrowser1可用方法1

3、：DimsAsStringDimstreamAsIStreams=""s=s+""s=s+""s=s+"helloworld"s=s+""s=s+"WebBrowser1.Document.Writes方法2：DimoSeto=WebBrowser1.Document.selection.createrangeDebug.PrintoIf(NotoIsNothing)Theno.pasteHTML"哈哈"Seto=NothingEndIf方法3：'插入文本框DimoSeto=WebBrowser1.Document.selection

4、.createrangeo.execCommand"InsertTextArea",False,"xxx"vb调用Webbrowser技巧集31、页面滚动：PrivateSubCommand2_Click()WebBrowser1.Document.parentwindow.scrollby0,30EndSubPrivateSubForm_Load()WebBrowser1.Navigate"http://www.applevb.com"EndSub点击Command2就可以使当前页面向下滚动30像素2、判断页面是否可以前进后退Pri

5、vateSubCommand1_Click()WebBrowser1.GoForwardEndSubPrivateSubCommand2_Click()WebBrowser1.GoBackEndSubPrivateSubForm_Load()WebBrowser1.Navigate"http://www.applevb.com"EndSubPrivateSubWebBrowser1_CommandStateChange(ByValCommandAsLong,ByValEnableAsBoolean)If(Command=CSC_NAV

6、IGATEBACK)ThenCommand2.Enabled=EnableEndIfIf(Command=CSC_NAVIGATEFORWARD)ThenCommand1.Enabled=EnableEndIfEndSubVB调用webbrowser技巧集41、如何使网页不出现滚动条：PrivateSubmnuScroll1_Click()@#注意：必须在网页完全显示之后才可以运行WebBrowser1.Document.body.Scroll="no"@#不显示滚动条的办法EndSubPrivateSubmnuScroll2_Cli

7、ck()@#注意：必须在网页完全显示之后才可以运行WebBrowser1.Document.body.Scroll="Auto"@#显示滚动条的办法EndSub2、如何获得网页中被选中部分的HTML：PrivateSubCommand1_Click()DimobjSelectionDimobjTxtRangeSetobjSelection=WebBrowser1.Document.selectionIfNot(objSelectionIsNothing)ThenSetobjTxtRange=objSelection.createRan

8、geIfNot(objTxtRangeIsNothing)ThenDebug.PrintobjTxtRange.htmlTextSetobjTxtRange=NothingEndIfSetobjSelection=Not