继续昨天的问题，打开一个新浏览器时用自己的……

Question

继续帖子
    http://expert.csdn.net/Expert/topic/3050/3050261.xml?temp=.6221582

Answer 1

在NewWindow2事件中Set ppDisp = 自己的WebBrowser

Answer 2

晕了，少了一点东西Set ppDisp = 我的WebBrowser控件.Application

Answer 3

Option ExplicitPrivate Sub Form_Resize()
    Text1.Width = Me.ScaleWidth - Text1.Left * 2
    WebBrowser1.Width = Text1.Width
    WebBrowser1.Height = Me.ScaleHeight - Text1.Top * 2 - Text1.Height
End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        WebBrowser1.Navigate Text1.Text
    End If
End SubPrivate Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
    Text1.Text = URL
End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Me.Caption = WebBrowser1.LocationName & " - Internet Explorer"
End SubPrivate Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim newForm As New Form1
    newForm.Show
    Set ppDisp = newForm.WebBrowser1.Object
    Cancel = False
End Sub

Answer 4

http://websx.home.zccn.net/bbs/SavePost.asp?Action=snew&boardid=53

Answer 5

//还是不行 啊……
//    麻烦大虾亲自试试哦，随便打开一个网页……不可以的我当然亲自试过了才贴上来的呀~~~~VB6SP5+XP+IE6SP1

Answer 6

javascript 语句打开的窗口如何解决呢？

Answer 7

回复人： griefforyou(为你伤心)PFPF，高手就是高手，我还笨的说要shell一个自己出来呢，嘿嘿：）回复人： maskzha(MaskZha) ( ) 信誉：100  2004-05-11 17:34:00  得分:0 
 
 
  javascript 语句打开的窗口如何解决呢？
  
用 griefforyou(为你伤心)的代码，不存在我说的那几个问题，javascript链接也可以正常打开的，我试过了