关于VB中webbrowser控件的使用问题
我在Form1中用webbrowser1制作了一个浏览器,为了让网站打开新窗口时也是用我的webbrowser1,我写了如下代码:PrivateSubWebBrowser...
我在Form1中用webbrowser1制作了一个浏览器,为了让网站打开新窗口时也是用我的webbrowser1,我写了如下代码:
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim frmWB As Form1
Set frmWB = New Form1
frmWB.WebBrowser1.RegisterAsBrowser = True
Set ppDisp = frmWB.WebBrowser1.Object
frmWB.Visible = True
End Sub
这样就解决了我的问题。但是出现了新问题,我原来对Form1写了这一段代码:
Private Sub Command1_Click()
Form2.Show
Form2.Text1.Text = Form1.Text1.Text
Form2.Text2.Text = Form1.WebBrowser1.LocationName
但是我发现网页打开新窗口后,点击该窗口上的Command1,按钮,出现Form2后,他获取的Text1的文字和网页标题并不是本窗口的,而是第一个窗口的,怎么办? 展开
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim frmWB As Form1
Set frmWB = New Form1
frmWB.WebBrowser1.RegisterAsBrowser = True
Set ppDisp = frmWB.WebBrowser1.Object
frmWB.Visible = True
End Sub
这样就解决了我的问题。但是出现了新问题,我原来对Form1写了这一段代码:
Private Sub Command1_Click()
Form2.Show
Form2.Text1.Text = Form1.Text1.Text
Form2.Text2.Text = Form1.WebBrowser1.LocationName
但是我发现网页打开新窗口后,点击该窗口上的Command1,按钮,出现Form2后,他获取的Text1的文字和网页标题并不是本窗口的,而是第一个窗口的,怎么办? 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询