小叮当也战江湖—VB实例七日谈(七)

日期：2007年5月1日作者：查看:[大字体中字体小字体]

　　第七天、自制网页浏览器

　　小叮当：小蘑菇，明天我就要回公司上班了，今天想学习一点什么？

　　小蘑菇：能不能教我做一个好玩的游戏？最好像帝国II那样的。

　　小叮当：又在说不切实际的，即使我有这个水平，时间也来不及呀。对了，看你正在上网浏览，不如教你做一个浏览器如何？

　　小蘑菇：那好吧，也只能这样了。不过别太复杂，省得我看起来头晕，呵呵。

　　小叮当：你想让我教你做复杂的我还没有这么多时间呢！言规正传，用VB制作网页浏览器时候需要使用到WebBrowser这个控件，它就是IE浏览器的窗口。简单的说，任何可以在IE浏览器中显示的文档都可以用WebBrowser控件显示，比如网页、本地HTML文件等。下面就先来定制浏览器所需要的控件。

　　1、新建一个工程，将Form1的Caption属性设置为“小叮当的浏览器”。

　　2、然后右击工具箱并选中“Microsoft Internet Controls”控件将其添加到工具箱中。这时工具箱中会多了一个地球图标，这所代表的控件就是WebBrowser。

　　3、将WebBrowser控件放置到Form1窗口中，由于在运行程序之后无法调整这个控件的大小，所以应该根据窗口的大小来调整它的大小，使其能够覆盖到大部分窗口区域。

　　4、在Form1窗口中添加1个CommandButton控件，将它的Caption属性分别设置为“打开文件”。

　　5、在Form1窗口中添加一个Common Dialpg控件，用于选择本地硬盘中的HTML文件。

　　6、添加一个ComboBox控件，用来输入和显示网页地址。

　　7、右击工具箱并将Microsoft Windows Common Control控件添加到工具箱中，接着添加一个StatusBar控件和一个ProgressBar控件。进入讨论组讨论。

　　所有控件添加完成之后如图所示。

　　

　　接着我们来看看程序的代码部分：

　　1、双击Form1窗口，并输入下列代码：

　　Private Sub Form_Load()
　　Combo1.Text = ""
　　Combo1.Top = 0　　　　/设置URL地址栏起始位置
　　Combo1.Left = 0
　　WebBrowser1.Top = Combo1.Top ＋ Combo1.Height　　/设置页面浏览区位置
　　WebBrowser1.Left = 0
　　Form_Resize
　　StatusBar1.Style = sbrSimple
[1] [2] [3] 下一页
小叮当也战江湖—VB实例七日谈(七) 相关文章：
·小叮当也战江湖—VB实例七日谈(七)
小叮当也战江湖—VB实例七日谈(七) 相关软件

上一篇:桌面背景任你改

下一篇:VB中远程数据库的访问

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

小叮当也战江湖—VB实例七日谈(七)

精品推荐

热点TOP10

特别推荐