WebBrowser控件使用实例

win2009

不要在下载，不再更新，关闭
。
没人看好，网页vba翻译附件就不发了

他是一个excel web控件制作的，他肯定没有ie功能全面，更没有360急速浏览器
的插件功能，但是它又是专业浏览器不能替代的，它能够一键保存，你在网页上选定的文本
到工作簿路径下的一个一日起命名的文本文件之中，而且是添加保存，而且每天只生成一个文件
文件名自动生成，也就是你只管在网页上选定，然后点一下保存按钮，就万事大吉。
它能够收藏网址（aaa.txt），并在地址栏显示（初始化时加载aaa.txt），
在地址栏，双击左键，清空并粘贴剪切板网址，浏览器立即更新到该网址，
前进，后退，刷新，就不用多说了，
保存，保存你在网页选定文本内容，收藏，把当前网页网址添加到指定目录的aaa.txt文件中，
窗体初始化时加载该文件。该目录已经定义，你可以更改为自己的路径。
视窗：这里要重点说说，这个窗体本来具有：子窗体，即只能在主窗体中显示，不能移到外边的
属性，但是因为为了照顾到浏览器最大最小化按钮功能，只得牺牲该功能，采用变通的办法，
就是《视窗》显示时，主窗体不能操作。《视窗》可以任意拉动边框调整大小，
《视窗》的用途是：浏览选定区域，你必须先选定一个区域，然后再调出视窗。
它的好处是，某些网页字体过小、过大，空行太多，不便浏览，这时他就派上用场。
打开按钮：可以打开本地文件，看图片和文本很方便，打开word 不能再浏览器中浏览，只能显示在
word中，vb能显示在浏览器中vba就不能，不知道为什么？
在其他浏览器或什么地方复制的网址，在地址栏双击就直接打开，然后你就可以把你想要的东西
选定，保存，这个功能是重要的，重复一遍。
你可以把你在其它地方复制的文本，先粘贴到，浏览器网页某个帖子的回复栏内，不要点击回复，然后选定粘贴内容，点保存，就完成保存剪切板内容到文件功能。
网址收藏，输入名称必须使用中文“更正一下，压缩包里的英文换成中文”，这个要注意。

控件引用及详细说明，请看地址栏里相关网页，使用时缺什么请看下面网址
WebBrowser控件使用详
http://wenku.baidu.com/view/53b1340cba1aa8114431d961.html
如何使用 WebBrowser 控件打开 Office 文档
http://support.microsoft.com/kb/243058/zh-cn
只有控件，没有工作表，你需要在vba资源管理器中点击右键导入
不要说不会啊，不喜欢导入的就不要下载了

win2009

保存后文件的格式

网址：http://wenwen.soso.com/z/q270625993.htm
标题：VB如何把webbrowser的网页添加到收藏夹？ - 已解决 - 搜搜问问

可以把list1的内容存放在一个TXT里面,打开的时候读取。
Private Sub Command1_Click()
Dim i As Integer
List1.AddItem Text1.Text
Open App.Path + "\aaa.txt" For Output As #1
For i = 0 To List1.ListCount - 1
Print #1, List1.List(i)
Next
Close #1
End Sub
私有的 过程 command1单击()
定义变量 i 为 整型值
列表1 . 添加列表项 文本1 . 文本
打开文件 app . 路径 + "\aaa . txt" 设定范围 output 为 #1
设定范围 i = 0 到 列表1 . 列表count - 1
输出显示 #1    列表1 . 列表(i)
下一句
关闭 #1
结束 过程
Private Sub Form_Load()
List1.Clear
Dim a As String
Open App.Path & "\aaa.txt" For Input As #1
Do While Not EOF(1)
Input #1, a
List1.AddItem a
Loop
Close
End Sub
私有的 过程 form_load()
列表1 . 清除
定义变量 a 为 字符串
打开文件 app . 路径 & "\aaa . txt" 设定范围 读入 为 #1
执行循环操作 当条件 非 文本全部(1)
读入 #1    a
列表1 . 添加列表项 a
循环执行
关闭
结束 过程
==================
2012-9-26 11:41:59
==================

win2009

Private Sub UserForm_Initialize()
myWidth = UserForm1.Width
myHeight = UserForm1.Height
End Sub
私有的 过程 窗体初始化()
my宽度 = 用户窗体1 . 宽度
my高度 = 用户窗体1 . 高度
结束 过程

doryan

翻译的很有意思 感谢分享^^

zf5345

搞不懂如何运行程序！

dustgz2011

mark  连控件都没找着

goldowl2011

Thanks a lot.

OKJSJSF

先看下以后学习中。

山中无甲子

正在找这个控件的知识，可惜了，作者没有继续更新，不过非常感谢！难道都没有人对这个控件有了解欲望吗？

张劲松2024

感谢分享！！！！！！！！！！！！！！！！！