vb中关于 webbrowser问题

答案:3 悬赏:70 手机版

解决时间 2021-07-30 18:12

提问者网友：感性作祟
2021-07-29 21:28

Private Sub webbrowser1_documentcomplete(ByVal pDisp As Object, URL As Variant)
Command1_Click

End Sub

代码如上，当指定的网页加载完毕后自动实现Command1按钮，我在Command1中写了保存文档。可是每次加载完一个网页就自动保存2次，我要的是保存一次就够了。

请问该怎样在webbrowser1中写入只实现一次的代码。

最佳答案

五星知识达人网友：未来江山和你
2021-07-29 21:49

定义全局： dim bSuccess as boolean

Private Sub Form_Load()
bSuccess=false
end sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object,URL As Variant)
If not bSuccess Then
bSuccess=True
Command1_Click
End If
End Sub

你要的每次加载完网页，得有个链接按钮，新建个Command2，加入bSuccess=false

当然Command2下还要加你自己的链接代码

全部回答

1楼网友：有你哪都是故乡
2021-07-30 00:08

在command单击事件里加个判断

static a as integer

a=a+1

if a=1 then

,这里就保存

endif

2楼网友：青灯有味
2021-07-29 23:10

应该是webbrowser加载的网页中包含frame，才导致多次出发！

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object,URL As Variant) If (pDisp Is WebBrowser1.Object) Then Command1_Click

End If End Sub

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息