关于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的文字和网页标题并不是本窗口的,而是第一个窗口的,怎么办? 展开
1个回答
微测检测5.10
2023-05-10 广告
2023-05-10 广告
您好!建议咨 深圳市微测检测有限公司,已建立起十余个专业实验室,企业通过微测检测就可以获得一站式的测试与认 证解决方案;(EMC、RF、MFi、BQB、QI、USB、安全、锂电池、快充、汽车电子EMC、汽车手机互 联、语音通话质量),认证遇...
点击进入详情页
本回答由微测检测5.10提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询