您的位置：程序门 -> vb -> 基础类

vb 浏览器后退按钮怎么做??

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

vb 浏览器后退按钮怎么做??[已结贴,结贴人:xk254304244]

发表于：2007-06-16 09:24:11 楼主

是这样的,我想做个简单的浏览器,加那个后退按钮,
可是webbrowser1.goback这样的话,要是刚打开页面返回就会出错,我想要是刚才开的,就让它变成灰色,请哪位高手告我下,怎么做

发表于：2007-06-16 11:39:291楼得分:5

‘...我想做个简单的浏览器... '

如果后退按钮都不会做，你还是别浪费时间。
告诉你，将浏览的网页地址放到一数组中。退出时存在registry或ini文件中。

建议找一个例子看看人家是怎样实现的。
中国最佳vb开源code by lingll:le v1.4.56
http://nullvb.go3.icpcn.com/
http://blog.csdn.net/lingll/

发表于：2007-06-16 13:12:132楼得分:15

option explicit

dim withevents web_v1 as shdocvwctl.webbrowser_v1

private sub form_load（)
set web_v1 = webbrowser1.object '初始化web_v1对象
webbrowser1.navigate （ "http://community.csdn.net/ ")
command1.enabled = false '前进按钮
command2.enabled = false '后退按钮
end sub

'保证连接在一个窗口打开
private sub web_v1_newwindow（byval url as string, byval flags as long, byval targetframename as string, postdata as variant, byval headers as string, processed as boolean)
on error resume next
processed = true
webbrowser1.navigate url
end sub

'判断能否前进后退,设置对应按键的enabled属性
private sub webbrowser1_commandstatechange（byval command as long, byval enable as boolean)
on error resume next
if （command = csc_navigateback) then
command2.enabled = enable
end if
if （command = csc_navigateforward) then
command1.enabled = enable
end if

end sub

private sub command2_click（)
on error resume next
webbrowser1.goback '后退
end sub

private sub command1_click（)
on error resume next
webbrowser1.goforward '前进
end sub

发表于：2007-06-16 16:20:033楼得分:0

非常感谢楼上的这位兄弟,很详细,分给你

您的位置：程序门 -> vb -> 基础类

vb 浏览器 后退按钮 怎么做??

vb 浏览器后退按钮怎么做??