怎样在vb6中直接显示webbrowser内容，窗体不带边框
[问题点数：20分]
本版专家分：0
CSDN今日推荐
本版专家分：10
本版专家分：28726
2011年10月 VB大版内专家分月排行榜第二2011年3月 VB大版内专家分月排行榜第二2011年2月 VB大版内专家分月排行榜第二
2011年5月 VB大版内专家分月排行榜第三2011年4月 VB大版内专家分月排行榜第三
本版专家分：25
本版专家分：0
匿名用户不能发表回复！|
其他相关推荐VB6如何删除webbrowser中的缓存_百度知道
VB6如何删除webbrowser中的缓存
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
Webbrower1.stop
为您推荐：
其他类似问题
vb6的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。欢迎加入我们，一同切磋技术 &
用户名： &&&
密　码： &
共有 1077 人关注过本帖
标题：新手求教！关于利用WebBrowser制作浏览器的问题
等　级：论坛游民
帖　子：54
专家分：53
结帖率：85.71%
&&已结贴√
&&问题点数：10&&回复次数：5&&&
新手求教！关于利用WebBrowser制作浏览器的问题
我打算做个浏览器，但是我发现在打开链接时，新的网页会出现在ie而不是程序里，怎样才能让新的网页出现在本程序里而不是外部打开IE？（注：就类似于市面上见到的浏览器，在单击一个链接时，创建一个标签并显示新的网页）
以下是图片：
（例如，打开了360网址导航）
（当单击“人民网”以后，弹出ie而不是新建标签并直接在本程序中显示人民网的网页内容）
以下是代码：
程序代码：
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
List1.ListIndex = List1.ListCount - <font color=#
List1.AddItem (WebBrowser1.LocationURL)
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Text1.Text = WebBrowser1.LocationURL
Me.Caption = &Sundy浏览器 - [& & WebBrowser1.LocationName & &]&
以下是程序设计的界面图片：
先谢谢各位好心人了！
附件: 您没有浏览附件的权限，请
搜索更多相关主题的帖子:
&&&&&&&&&&
等　级：版主
威　望：212
帖　子：4217
专家分：25812
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
'浏览器要求新开窗口时
On Error Resume Next
Dim fr As New Form1&&&&&&&&&'新建一个窗体，里面包含一个 WebBrowser 控件
fr.Show&&&&&&&&&&&&&&&&&&&&&'显示
Set ppDisp = fr.WebBrowser1.Object&&&&&'设置新的窗口为这个
授人于鱼，不如授人于渔
早已停用QQ了
等　级：论坛游民
帖　子：54
专家分：53
回复 2楼 风吹过b
我是想做类似于360，百度之类的浏览器，单击链接后新建一个标签（界面图左侧list1），并显示新页面内容，不是再弹出一个窗口
来　自：湖北
等　级：版主
威　望：119
帖　子：1088
专家分：5802
结合你的要求，我和2楼答主同样使用了NewWindow2事件，代码及运行效果如下：
程序代码：Private Sub Command1_Click()
&&WebBrowser1.Navigate Text1
Private Sub List1_Click()
&&WebBrowser1.Navigate List1
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
&&Dim a As String, i As Integer, j As Boolean
&&a = WebBrowser1.LocationURL
&&j = True
&&For i = <font color=# To List1.ListCount - <font color=#
&&& If a = List1.List(i) Then
&&&&&&j = False
&&&&&&Exit For
&&& End If
&&If j Then List1.AddItem a
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
&&Dim a As String
&&a = WebBrowser1.Document.ActiveElement.href
&&Cancel = True
&&WebBrowser1.Navigate a
附件: 您没有浏览附件的权限，请
等　级：版主
威　望：212
帖　子：4217
专家分：25812
好吧，做了一个基本框架，你自己去完善吧。
1、窗体，一个 webbrows(0) ,一个Text1,一个Command1，一个list1
程序代码：Option Explicit
Private Sub Command1_Click()
web(webindex).URL = Text1.Text
WebBrowser1(webindex).Navigate web(webindex).URL
web(webindex).Title = &&
Private Sub Form_Load()
ReDim web(<font color=#)
web(<font color=#).index = <font color=#
web(<font color=#).URL = &About:Black&
Private Sub List1_Click()
webindex = List1.ListIndex
Text1.Text = web(webindex).URL
Call viewweb
Private Sub WebBrowser1_BeforeNavigate2(index As Integer, ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
Dim i As Long
For i = <font color=# To UBound(web)
&&& If web(i).index = index Then
&&&&&&&&Exit For
&&& End If
web(i).URL = URL
List1.List(i) = URL
Private Sub WebBrowser1_DocumentComplete(index As Integer, ByVal pDisp As Object, URL As Variant)
Dim i As Long
For i = <font color=# To UBound(web)
&&& If web(i).index = index Then
&&&&&&&&Exit For
&&& End If
web(i).Title = WebBrowser1(index).Document.Title
List1.List(i) = web(i).Title
Private Sub WebBrowser1_NewWindow2(index As Integer, ppDisp As Object, Cancel As Boolean)
Call Addweb
Set ppDisp = WebBrowser1(web(webindex).index).Object
Public Sub viewlist()
List1.Clear
Dim i As Long
For i = <font color=# To UBound(web)
If web(i).index && -<font color=# Then
&&& If web(i).Title && && Then
&&&&&&&&List1.AddItem web(i).Title
&&&&&&&&List1.AddItem web(i).URL
&&& End If
Public Sub viewweb()
Dim obj As WebBrowser
For Each obj In WebBrowser1
&&& If obj.index = webindex Then
&&&&&&&&obj.Visible = True
&&&&&&&&obj.Visible = False
&&& End If
程序代码：Option Explicit
Public Type 结构类型
&&& index&&&As Long&&&&&'对应 webbrows 的index
&&& URL&&&&&As String&&&'对应 webbrows 的网址
&&& Title&&&As String&&&'网页标题
Public web() As 结构类型&&&&&&&&'保存整个webbrows数据
Public webindex As Long
Public webnext As Long
Public Sub DELweb(id As Long)
Dim obj As WebBrowser
Dim i As Long
Form1.List1.RemoveItem web(id).index&&&&&&&&'删列表
For Each obj In Form1.WebBrowser1&&&&&&&&&&&'删对象
&&& If obj.index = web(id).index Then
&&&&&&&&Unload obj
&&&&&&&&Exit For
&&& End If
For i = id To UBound(web()) - <font color=#&&&&&&&&&&&& '删数据结构
&&& web(i).index = web(i + <font color=#).index
&&& web(i).Title = web(i + <font color=#).Title
&&& web(i).URL = web(i).URL
web(i).index = -<font color=#&&&&&&&&&&&&&&&&&&&&&&&&&&&'设置不可用
If web(id).index && -<font color=# Then
&&& webindex = web(id).index&&&&&&&&&&&&&&&&&&&&'下一个窗口为当前窗口
&&& webindex = <font color=#
Call Form1.viewweb
Call Form1.viewlist
Public Sub Addweb()
Dim i As Long, j As Long
Dim webmax As Long
j = -<font color=#
For i = <font color=# To UBound(web)
&&& If webmax & web(i).index Then
&&&&&&&&webmax = web(i).index
&&& End If
&&& If web(i).index = -<font color=# And j & -<font color=# Then
&&&&&&&&j = i
&&& End If
If j = -<font color=# Then
&&& ReDim Preserve web(i)
webmax = webmax + <font color=#
Load Form1.WebBrowser1(webmax)
web(j).index = webmax
webindex = j
'web(j).url = url
'Form1.WebBrowser1(webmax).Navigate url
Call Form1.viewweb
Call Form1.viewlist
-------------
其实，模块里这二个过程，也应该是放在窗体里的，因为模块里操作了窗体上的控件。
已初步实现了你的新页面功能。
关闭页面功能，未实现，只写了一个实现代码，但未经任何测试。
授人于鱼，不如授人于渔
早已停用QQ了
等　级：版主
威　望：212
帖　子：4217
专家分：25812
附件: 您没有浏览附件的权限，请
授人于鱼，不如授人于渔
早已停用QQ了
版权所有，并保留所有权利。
Powered by , Processed in 0.070153 second(s), 8 queries.
Copyright&, BCCN.NET, All Rights Reserved想用WebBrowser 做一个透明的显示网页的框架、怎么办？大虾指点
我试了一下，没有找到什么直接解决办法。
个人想法，是不是用浏览器自动读取这个地址，然后使用拷贝屏幕的方式得到这个图片，最后自动裁剪得到这个小图片。
－－－－－－...
MsgBox &#034;欢迎你来学VB&#034; & vbCrLf & &#034;每天学一点点,持之以恒,一定会有成效的!&#034; 难道我不是说这样写，这样是对的！！
先在数据库中建立一个查询，这个查询可以按你的要求索引，再在程序中连接你的这个索引，就可以了，很简单的啊！
代码是：STYLE type=text/css&
body
{background:url(页面背景图片) repeat
scroll!}
...
背景虚化效果实际上与景深是一回事，它跟几方面的因素有关:
1、镜头焦距的长短，焦距越长效果越好；
2、光圈的大小，光圈越大效果越好；
3、镜头与拍摄主体的距离，...
答: 在国外能使用第三方支付软件吗？
答: “沉浸”是指人可以完全融入其中：各地的参与者通过网络聚集在同一个虚拟空间里，既可以随意漫游，又可以相互沟通，还可以与虚拟环境交互，使之发生改变
答: 端口：500说明：InternetKeyExchange(IKE)（Internet密钥交换）端口：说明：RemotAuthenticatio...
海鸟的种类约350种，其中大洋性海鸟约150种。比较著名的海鸟有信天翁、海燕、海鸥、鹈鹕、鸬鹚、鲣鸟、军舰鸟等。海鸟终日生活在海洋上，饥餐鱼虾，渴饮海水。海鸟食量大，一只海鸥一天要吃6000只磷虾，一只鹈鹕一天能吃(2～2.5)kg鱼。在秘鲁海域，上千万只海鸟每年要消耗?鱼400×104t，它们对渔业有一定的危害，但鸟粪是极好的天然肥料。中国南海著名的金丝燕，用唾液等作成的巢被称为燕窝，是上等的营养补品。
关于三国武将的排名在玩家中颇有争论，其实真正熟读三国的人应该知道关于三国武将的排名早有定论，头十位依次为：
头吕（吕布）二赵（赵云）三典韦，四关（关羽）五许（许楮）六张飞，七马（马超）八颜（颜良）九文丑，老将黄忠排末位。
关于这个排名大家最具疑问的恐怕是关羽了，这里我给大家细细道来。赵云就不用多说了，魏军中七进七出不说武功，体力也是超强了。而枪法有六和之说，赵云占了个气，也就是枪法的鼻祖了，其武学造诣可见一斑。至于典韦，单凭他和许楮两人就能战住吕布，武功应该比三英中的关羽要强吧。
其实单论武功除吕布外大家都差不多。论战功关羽斩颜良是因为颜良抢军马已经得手正在后撤，并不想与人交手，没想到赤兔马快，被从后背赶上斩之；文丑就更冤了，他是受了委托来招降关羽的，并没想着交手，结果话没说完关羽的刀就到了。只是由于过去封建统治者的需要后来将关羽神话化了，就连日本人也很崇拜他，只不过在日本的关公形象是扎着日式头巾的。
张飞、许楮、马超的排名比较有意思，按理说他们斗得势均力敌都没分出上下，而古人的解释是按照他们谁先脱的衣服谁就厉害！有点搞笑呦。十名以后的排名笔者忘记了，好象第11个是张辽。最后需要说明的是我们现在通常看到的《三国演义》已是多次修改过的版本，笔者看过一套更早的版本，有些细节不太一样。
做鲫鱼汤很重要的一点是注意火候的把握。
步骤如下：
买新鲜现杀的鲫鱼两条，个头要适中。洗的时候要把鱼鳞全部弄干净，鱼肚里也要洗净，免得汤有腥味；
洗好后，在鱼身上涂抹适当食盐，腌放十分钟；
准备好香葱三根，洗净，打结备用；
切好姜片若干（根据鱼的大小和量）；
均匀涂抹姜汁于锅内（防止鱼皮粘锅），倒入色拉油，点火；
油不宜太热，将火旋小，轻轻放鱼入锅，同时放入姜片，把火调大；
煎至鱼皮微露金黄色，将鱼轻轻翻身，直至也微呈金黄色；
煎的过程中，注意转动锅，使鱼均匀煎透；
把火调小，加冷水至淹没鱼为止，放入备好的葱结，开大火，煮沸；
把鱼翻身，再煮五分钟，放入适量的盐，继续煮，直至汤呈现奶白色；
加味精，煮两分钟。
同时准备好吃鱼的料：蘸鱼的陈醋少许倒入碗中，放少许盐，糖，味精，搅拌均匀。
将鱼单独盛在大碗里，鲫鱼汤盛在汤碗里；鱼蘸着料吃，汤即喝。
^_^，美味的鲫鱼汤呈现在你的眼前了，还有香喷喷的鱼肉……
公司为员工租房，属于一种福利，不应该缴纳个人所得税的
租赁协议应该公司与房主统一签订
考虑是由于天气比较干燥和身体上火导致的，建议不要吃香辣和煎炸的食物，多喝水，多吃点水果，不能吃牛肉和海鱼。可以服用（穿心莲片，维生素b2和b6）。也可以服用一些中药，如清热解毒的。
确实没有偿还能力的，应当与贷款机构进行协商，宽展还款期间或者分期归还； 如果贷款机构起诉到法院胜诉之后，在履行期未履行法院判决，会申请法院强制执行； 法院在受理强制执行时，会依法查询贷款人名下的房产、车辆、证券和存款；贷款人名下没有可供执行的财产而又拒绝履行法院的生效判决，则有逾期还款等负面信息记录在个人的信用报告中并被限制高消费及出入境，甚至有可能会被司法拘留。
第一步：教育引导
不同年龄阶段的孩子“吮指癖”的原因不尽相同，但于力认为，如果没有什么异常的症状，应该以教育引导为首要方式，并注意经常帮孩子洗手，以防细菌入侵引起胃肠道感染。
第二步：转移注意力
比起严厉指责、打骂，转移注意力是一种明智的做法。比如，多让孩子进行动手游戏，让他双手都不得闲，或者用其他的玩具吸引他，还可以多带孩子出去游玩，让他在五彩缤纷的世界里获得知识，增长见识，逐渐忘记原来的坏习惯。对于小婴儿，还可以做个小布手套，或者用纱布缠住手指，直接防止他吃手。但是，不主张给孩子手指上“涂味”，比如黄连水、辣椒水等，以免影响孩子的胃口，黄连有清热解毒的功效，吃多了还可导致腹泻、呕吐。
合肥政务区网络广告推广网络推广哪家公司比较好 一套能在互联网上跑业务的系统，被网络营销专家赞为目前最 有效的网络推广方式！
1、搜索引擎营销：分两种SEO和PPC，即搜索引擎优化，是通过对网站结构、高质量的网站主题内容、丰富而有价值的相关性外部链接进行优化而使网站为用户及搜索引擎更加友好，以获得在搜索引擎上的优势排名为网站引入流量。
良工拥有十多位资深制冷维修工程师，十二年生产与制造经验，技术力量雄厚，配有先进的测试仪器，建有系列低温测试设备，备有充足的零部件，包括大量品牌的压缩机，冷凝器，蒸发器，水泵，膨胀阀等备品库，能为客户提供迅捷，优质的工业冷水机及模温机维修和保养。
楼主，龙德教育就挺好的，你可以去试试，我们家孩子一直在龙德教育补习的，我觉得还不错。
成人可以学爵士舞。不过对柔软度的拒绝比较大。　　不论跳什么舞，如果要跳得美，身体的柔软度必须要好，否则无法充分发挥出理应的线条美感，爵士舞也不值得注意。在展开暖身的弯曲动作必须注意，不适合在身体肌肉未几乎和暖前用弹振形式来做弯曲，否则更容易弄巧反拙，骨折肌肉。用静态方式弯曲较安全，不过也较必须耐性。柔软度的锻炼动作之幅度更不该超过疼痛的地步，肌肉有向上的感觉即可，动作(角度)保持的时间可由10馀秒至30-40秒平均，时间愈长对肌肉及关节附近的联结的组织之负荷也愈高。
正在加载...
Copyright &
Corporation, All Rights Reserved
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区
相关问答：123456789101112131415要怎么用VB6的WebBrowser撷取到网页上的字 - 怎么办？ - 怎么治？
stratwine 提问：
要怎么用VB6的WebBrowser撷取到网页上的字
我想要用VB撷取网页某个字串例如 我想要这个网页 http://tw.money.yahoo.com/intlmoney_chart?s=USDTWD=X&把 美元 / 新台币最新汇价： 30.1& 这串里面的 更多： 30.1显示在我的VB上希望可以顺便放上原始码谢谢~
Stefano D 回答：
Private Sub Command1_Click()　Dim myStr As String　With WebBrowser1.Document　　myStr = .getElementById(&yfiien&).getElementsByTagName(&div&)(0).innerHTML　　MsgBox Mid(myStr, InStr(myStr, &：&) + 1)　End WithEnd SubPrivate Sub Form_Load()　WebBrowser1.Navigate &http://tw.money.yahoo.com/intlmoney_chart?s=USDTWD=X&End Sub
VB6 and Me
最新问题：，，，，，，，，，，，，，，，
CopyRight & 2018
All Rights Reserved}