【原创】又来分享了——这次是一个浏览器，附源码，附注释！ - 编程论坛

#2

suxin8682009-08-03 22:57

怎么没人顶。难倒不专业？

#3

三断笛2009-08-04 00:13

不错,支持原创,支持源码,支持楼主!

#4

xxfs912009-08-04 09:20

好像一最大化就不行了······我吧最大化按钮给取消不知行不

#5

suxin8682009-08-04 09:32

回复 4楼 xxfs91

自己去试试，不过我昨晚发现最小化就会出错！
需要加一句错误处理语句
'以下根据窗口的变换变换webbrowser控件的大小
Private Sub Form_Resize()
On Error GoTo c:
WebBrowser1.Width = Me.Width - 45
WebBrowser1.Height = Me.Height - 1400
c:
End Sub

#6

xxfs912009-08-04 09:35

这个似乎就可以咯刚才那个不知怎么的最大化Combo就不大对我是刚学的不知是不是我理解错了

#7

xxfs912009-08-04 09:37

对哦好像不能最小化刚才没发现耶

#8

xxfs912009-08-04 09:40

呃发错了

#9

xxfs912009-08-04 09:40

不好意思哈

#10

suxin8682009-08-04 09:41

回复 6楼 xxfs91

其实我觉得没必要更改combo的大小。地址栏可以固定！

最小化的bug我已经解决了。看上面的解决方法

#11

xxfs912009-08-04 09:45

忽然有发现自己没发错了

好的

我看看

我刚学的

有个问题想问问大侠

怎么vb程序都那么小呢

想这样一个程序不过8k

#12

suxin8682009-08-04 09:56

程序打包发布的话，不会这么小的。

#13

zgxg2009-08-04 09:57

支持一下

#14

xxfs912009-08-04 10:10

O~~明白了

#15

xxfs912009-08-04 10:41

上面的哪些刷新等等怎么不做成toolbar
这样怪怪滴

#16

风吹过b2009-08-04 13:10

自己去试试，不过我昨晚发现最小化就会出错！
需要加一句错误处理语句
'以下根据窗口的变换变换webbrowser控件的大小
Private Sub Form_Resize()
On Error GoTo c:
WebBrowser1.Width = Me.Width - 45
WebBrowser1.Height = Me.Height - 1400
c:
End Sub

这段代码里有毛病,不是BUG,是外观上的毛病.

测试的办法,运行这个程序,然后修改Windows 的样式,如经典和WINDOWS XP 之间切换一下,就可以看得出来.

#17

风吹过b2009-08-04 13:27

Private Sub Form_Resize()
On Error Resume Next '出现错误继续下一条命令
WebBrowser1.Width = Me.ScaleWidth - WebBrowser1.Left - WebBrowser1.Left
WebBrowser1.Height = Me.ScaleHeight - 64 - StatusBar1.Height - WebBrowser1.Top
End Sub

'Me.ScaleWidth 表示本窗体内可用的实际宽度
'Me.ScaleHeight 表示本窗体内可用的实际高度,不包括标题栏高度及菜单栏高度,只需计算自己的控件高度就是了.
在 windows 样式中,标题栏的高度是可以变的,菜单栏的高度也随着菜单字体的选择而会产生变化.

#18

suxin8682009-08-05 10:19

回复 17楼风吹过b

不错，不错。学习了！

#19

suxin8682009-08-05 10:32

回复 17楼风吹过b

WebBrowser1.Height = Me.ScaleHeight - 64 - StatusBar1.Height - WebBrowser1.Top
减去这64是干什么啊？没看明白啊，指点一下！

#20

suxin8682009-08-25 14:27

#21

scyey2009-08-26 01:17

简单修改了一下，大家指正。

#22

Joforn2009-08-26 09:09

果然是简易的

#23

woody19862009-08-27 17:40

果然简单

#24

suxin8682009-09-10 00:14

简单就好

#25

sunboy76792012-03-11 15:18

回复 4楼 xxfs91
自己去试试，不过我昨晚发现最小化就会出错！
需要加一句错误处理语句
'以下根据窗口的变换变换webbrowser控件的大小
Private Sub Form_Resize()
On Error GoTo c:
WebBrowser1.Width = Me.Width - 45
c:
End Sub
===================================================
我把上面的WebBrowser1.Height = Me.Height - 1400
修改为
WebBrowser1.Height = Me.Height - 400

修改之后在winxp+vb 6.0通过调试。

#26

一键游2013-01-09 11:01

支持开源

#27

Edgepioneer2020-11-20 14:23

穿越时空的打捞，2020年就需要这么简洁的浏览器