 上传我的文档
 下载
 收藏
该文档贡献者很忙，什么也没留下。
 下载此文档
正在努力加载中...
使用Visual Basic(VB)自带IE控件WebBrowser显示GIF动画文件
下载积分：800
内容提示：使用Visual Basic(VB)自带IE控件WebBrowser显示GIF动画文件
文档格式：TXT|
浏览次数：15|
上传日期： 04:58:22|
文档星级：
全文阅读已结束，如果下载本文需要使用
 800 积分
下载此文档
该用户还上传了这些文档
使用Visual Basic(VB)自带IE控件WebBrowser显示GIF动
官方公共微信vb教程之如何利用WebBrowser控件显示GIF动画
来源：未知
作者: playyuer 　
要有一定的网页知识(HTML、JavaScript、CSS)
没有&滚动条&和&鼠标右键弹出的 IE 上下文菜单&,&.HTM 源文件& ...
我写了一个,效果还真不错!
注释：Objects: Form1、Command1、CommonDialog1、WebBrowser1
Option Explicit
Private Sub Command1_Click()
CommonDialog1.ShowOpen
If VBA.Len(VBA.Trim(CommonDialog1.FileName)) & 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 &&HTML&&
&&WebBrowser1.Document.writeln &&HEAD&&
&&WebBrowser1.Document.writeln &&TITLE&&
&&WebBrowser1.Document.writeln &&/TITLE&&
&&WebBrowser1.Document.writeln &&/HEAD&&
&&WebBrowser1.Document.writeln &&BODY scroll=& & VBA.Chr(34) & &no& & VBA.Chr(34) & & oncontextmenu=self.event.returnValue=false&&
&&WebBrowser1.Document.writeln &&div style=& & VBA.Chr(34) & &position: left: 0; top: 0& & VBA.Chr(34) & &&&
&&WebBrowser1.Document.writeln &&IMG SRC=& & VBA.Chr(34) & sPath & VBA.Chr(34) & & BORDER=& & VBA.Chr(34) & &0& & VBA.Chr(34) & &&&
&&WebBrowser1.Document.writeln &&/div&&
&&WebBrowser1.Document.writeln &&/BODY&&
&&WebBrowser1.Document.writeln &&/HTML&&
Private Sub Form_Load()
Command1.Caption = &&Open&
WebBrowser1.Navigate &about:blank&
WebBrowser1.Document.open
WebBrowser1.Document.writeln &&HTML&&
WebBrowser1.Document.writeln &&HEAD&&
WebBrowser1.Document.writeln &&TITLE&&
WebBrowser1.Document.writeln &&/TITLE&&
WebBrowser1.Document.writeln &&/HEAD&&
WebBrowser1.Document.writeln &&BODY scroll=& & VBA.Chr(34) & &no& & VBA.Chr(34) & & oncontextmenu=self.event.returnValue=false&&
WebBrowser1.Document.writeln &&/BODY&&
WebBrowser1.Document.writeln &&/HTML&&
WebBrowser1.Document.Close
-----------Webbrowser控件史上最强技巧全集06
上亿文档资料，等你来发现
Webbrowser控件史上最强技巧全集06
Webbrowser控件史上最强技巧全集；VB调用webbrowser技巧集；1、获得浏览器信息：；PrivateSubCommand1_Click；WebBrowser1.Navigate&quo；EndSub；PrivateSubCommand2_Click；DimoWindow；DimoNav；SetoWindow=WebBrowser1.D；Seto
Webbrowser控件史上最强技巧全集
VB调用webbrowser技巧集
1、获得浏览器信息：
Private Sub Command1_Click()
WebBrowser1.Navigate &&
Private Sub Command2_Click()
Dim oWindow
Set oWindow = WebBrowser1.Document.parentWindow
Set oNav = oWindow.navigator
Debug.Print oNav.userAgent
Set oWindow = Nothing
Set oNav = Nothing
点击Command1浏览网页，点击Command2在立即窗口中输出浏览器信息。
2、弹出Webbrowser消息窗口
Dim oWindow
Set oWindow = WebBrowser1.Document.parentWindow
oWindow.confirm &abcd&
VB调用webbrowser技巧集2
向Webbrowser中写入HTML内容的几种方法
首先在Form_Load中加入
WebBrowser1.Navigate &about:blank&
确保Webbrowser1可用
Dim s As String
Dim stream As IStream
s = s + &&
s = s + &&
hello world
s = s + &&
WebBrowser1.Document.Write s
Set o = WebBrowser1.Document.selection.createrange
Debug.Print o
If (Not o Is Nothing) Then
o.pasteHTML &哈哈&
Set o = Nothing
'插入文本框
Set o = WebBrowser1.Document.selection.createrange
o.execCommand &InsertTextArea&, False, &xxx&
vb调用Webbrowser技巧集3
1、页面滚动：
Private Sub Command2_Click()
WebBrowser1.Document.parentwindow.scrollby 0, 30
Private Sub Form_Load()
WebBrowser1.Navigate &&
点击Command2就可以使当前页面向下滚动30像素
2、判断页面是否可以前进后退
Private Sub Command1_Click()
WebBrowser1.GoForward
Private Sub Command2_Click()
WebBrowser1.GoBack
Private Sub Form_Load()
WebBrowser1.Navigate &&
Private Sub WebBrowser1_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean)
If (Command = CSC_NAVIGATEBACK) Then
Command2.Enabled = Enable
If (Command = CSC_NAVIGATEFORWARD) Then
Command1.Enabled = Enable
VB调用webbrowser技巧集4
1、如何使网页不出现滚动条：
Private Sub mnuScroll1_Click()
@#注意：必须在网页完全显示之后才可以运行
WebBrowser1.Document.body.Scroll = &no& @#不显示滚动条的办法
Private Sub mnuScroll2_Click()
@#注意：必须在网页完全显示之后才可以运行
WebBrowser1.Document.body.Scroll = &Auto& @#显示滚动条的办法
2、如何获得网页中被选中部分的HTML：
Private Sub Command1_Click()
Dim objSelection
Dim objTxtRange
Set objSelection = WebBrowser1.Document.selection
If Not (objSelection Is Nothing) Then
Set objTxtRange = objSelection.createRange
If Not (objTxtRange Is Nothing) Then
Debug.Print objTxtRange.htmlText
Set objTxtRange = Nothing
Set objSelection = Nothing
Private Sub Form_Load()
WebBrowser1.Navigate &&
Navigate 方 法 的 语 法 格 式 为：
WebBrowser 控 件 名.Navigate URL
[Flags,][TargetFrameName,][PostData,][Headers]
---- WebBrowser 控 件 支 持 的 主 要 方 法 有:
GoBack ― ― ― 回 退 到 上 一 屏。
GoForward ― ― ― 进 入 到 下 一 屏。
GoHome ― ― ― 回 家。 即 回 到 主 页。
Stop ― ― ― 停 止 导 航。
Refresh ― ― ― 刷 新。
Navigate ― ― ― 导 航。
---- WebBrowser 控 件 所 响 应 的 事 件:
---- BeforeNavigate 事 件 ― ― ― 在 开 始 导 航 前 发 生。 一 般 在 此 获 取 完 整 的URL 字 符 串。
---- WebBrowser 控 件 最 主 要 的 参 数:
---- URL ― ― ― 获 得 导 航 用 的 标 准URL 字 符 串。 例 如： 它 能 将”” 自 动 翻 译 为””.URL 是Uniform Resource Locator 的 缩 写， 是 在Internet 的WWW 服 务 程 序 上 用 于 指 定 信 息 位 置 的 表 示 方 法。
使用WebBrowser的Navigator或者Navigator2方法打开一个asp文档并且传递
参数进去，但是asp文档无法获得参数，请教是什么原因？
Private Sub cmdSubmit_Click()
Dim strURL As String, strFormData As String
Dim strData As String
strURL = Trim$(txtURL.Text)
strFormData = &name=& & Trim$(txtName.Text) &
&&password=& & Trim$(txtPassword.Text)
Call WBTest.Navigate2(strURL, 64, &_blank&, strFormData,
& %@ Language=VBScript %&
dim strName
dim strPassword
strName=Trim(Request.Form(&name&))
strPassword=Trim(Request.Form(&password&))
Response.Write(strName)
Response.Write(strPassword)
if strName=&KingZhang& and strPassword=&123456& then
Response.Write(&登陆成功&)
Response.Write(&非法登陆用户！&)
*********************************************************************
Option Explicit
Private Sub Command1_Click()
Dim szValue As String
WebBrowser1.Document.body.innerHTML = &
method=post action=http://地址/xxx.php&
三亿文库包含各类专业文献、文学作品欣赏、各类资格考试、高等教育、外语学习资料、幼儿教育、小学教育、行业资料、Webbrowser控件史上最强技巧全集06等内容。　
　VB中WEBBROWSER技巧VB 关于 webbrowser 相关操作大全...如果你不用 dir 也可以用 vb 的 dir 控件. ...18、 选择网页上的内容 Private Sub Command1_Click... 　WEBBROWSER技巧_计算机软件及应用_IT/计算机_专业资料...VB 关于 webbrowser 相关操作大全文档收集者: 银河 ...在 WebBrwoser 控件里提供的 Navigate 或者 Navigate... 　VB Webbrowser控件使用方法_IT/计算机_专业资料。VB ...webbrowser 技巧集 2 向 Webbrowser 中写入 HTML ...儿童笑话大全爆笑 爆笑笑话精选80份文档 家装... 　VB_Webbrowser控件使用方法_计算机软件及应用_IT/计算机_专业资料。VB Webbrowser ...Webbrowser 技巧集 3 1、页面滚动: Private Sub Command2_Click() WebBrowser1... 　回复 1:VB 调用 webbrowser 技巧集 如何利用 WebBrowser 控件,显示 .GIF 动画?...中医养生知识大全 女人养生之道 80份文档
家装材料选购攻略 高端水龙头贵在哪儿... 　使用WebBrowser 控件打开Office文档_动画/交互技巧_PPT制作技巧_实用文档。如何使用...在“项目”菜单上,单击“添加引用”。 b. 在“添加引用”对话框中,单击“... 　(); delphi 中 Webbrowser 的使用技巧 1.获取网页...浏览历 史和分级内容选择(PICS: Platform for ...如何能在 HTML 控件上输入回车含有多行文本输入框(...查看: 4577|回复: 11
【WebBrowser显示GIF图片：无滚动条，可使GIF图片与窗体融为一体】
阅读权限50
在线时间 小时
不用第三方控件播放Gif动画
WebBrowser显示GIF图片：无滚动条，可使GIF图片与窗体融为一体
Private Sub UserForm_Initialize()
&&WebBrowser1.Navigate &about:blank&
Private Sub UserForm_Activate()
&&sPath = ThisWorkbook.Path & &\pic.gif&
&&If VBA.Dir(sPath) = && Then
& &&&MsgBox &当前工作簿下未找到GIF图片(pic.gif)。&, , &Excel助手：&
&&Do While WebBrowser1.Busy
& &&&DoEvents
& &With WebBrowser1.Document
.WriteLn &&HTML&&
.WriteLn &&HEAD&&
.WriteLn &&TITLE&&
.WriteLn &&/TITLE&&
.WriteLn &&/HEAD&&
& && & .WriteLn &&style TYPE=& & Chr(34) & &text/css& & Chr(34) & &&&
& && & .WriteLn &&!--&
& && & .WriteLn &A:link{text-decoration:none}&
& && & .WriteLn &A:visited{text-decoration:none}&
& && & .WriteLn &A:hover {color: #ff00text-decoration:underline}&
& && &'.WriteLn &body {background-color:#ece9d8;border:none}& '可使图片与窗体融为一体
& && & .WriteLn &body {background-color:border:none}& '可使图片与窗体融为一体
& && & .WriteLn &--&&
& && & .WriteLn &&/style&&
.WriteLn &&BODY scroll=& & VBA.Chr(34) & &no& & VBA.Chr(34) & & oncontextmenu=self.event.returnValue=false&&
.WriteLn &&div style=& & VBA.Chr(34) & &position: left: 0; top: 0& & VBA.Chr(34) & &&&
.WriteLn &&IMG SRC=& & VBA.Chr(34) & sPath & VBA.Chr(34) & & BORDER=& & VBA.Chr(34) & &0& & VBA.Chr(34) & &&&
.WriteLn &&/div&&
.WriteLn &&/BODY&&
.WriteLn &&/HTML&&
&&WebBrowser1.Refresh2
08:19 上传
点击文件名下载附件
438 KB, 下载次数: 286
08:19 上传
点击文件名下载附件
438 KB, 下载次数: 253
08:19 上传
点击文件名下载附件
438 KB, 下载次数: 259
08:19 上传
点击文件名下载附件
283.24 KB, 下载次数: 260
阅读权限70
在线时间 小时
支持一下,虽然很少用到..
阅读权限70
在线时间 小时
收下学习，谢谢分享。
阅读权限20
在线时间 小时
不知道怎么用？？？？？？？？？
阅读权限30
在线时间 小时
收下学习，谢谢分享
阅读权限10
在线时间 小时
原来是假的
'.WriteLn &body {background-color:#ece9d8;border:none}& '可使网页与窗体融为一体
& && & '.WriteLn &body {background-color:border:none}& '可使网页与窗体融为一体
原来是假的，本以为可以将GIF背景透明，原来设置颜色一样。
有办法背景透明吗，SWF 也是？请高手支招。。。
阅读权限20
在线时间 小时
下载学习了,非常感谢!
阅读权限20
在线时间 小时
能不能把GIF图片包在excel文件里面，，或者能不能不要本地文件，使用网络上的GIF图片文件。
阅读权限50
在线时间 小时
能不能把GIF图片包在excel文件里面，，或者能不能不要本地文件，使用网络上的GIF图片文件。
可以，改一下路径就好了
阅读权限20
在线时间 小时
zyg365 发表于
可以，改一下路径就好了
怎么把图片放在excel文件里呢？能不能给个附件演示一下。
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师