在网页有一个按钮 单击他会弹出一个网页

来源：百度知道 编辑：UC知道 时间：2024/05/28 06:54:56
问题是弹出的网页要代替原来的网页 就是在网页中按一个按钮 本网页被另一个网页所替代 而不是再弹出一个网页窗口 我要求是VB语言编写的网页代码

右击新窗口打开

'在菜单“工程→部件”中勾选： Microsoft Internet Controls
'在控件工具栏中找到控件 WebBrowser（图标像一个地球），在窗体放一个控件：WebBrowser1

Private WithEvents V1 As SHDocVwCtl.WebBrowser_V1

Private Sub Form_Load()
Set V1 = WebBrowser1.Object
WebBrowser1.Navigate "http://zhidao.baidu.com/browse/867?lm=2"
End Sub

Private Sub V1_NewWindow(ByVal URL As String, ByVal Flags As Long, ByVal TargetFrameName As String, PostData As Variant, ByVal Headers As String, Processed As Boolean)
Processed = True '阻止弹出新窗口
WebBrowser1.Navigate URL '在本程序显示新网页
End Sub

<script language="vbscript">
function CAase()
Response.Redirect "A.asp" 'A.asp是需要打开的网页，可以有路径
end function
</script>
<input type="button" value="打开" onclick="return CAase