比如全局代码
Public Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
Dim web As System.Windows.Forms.WebBrowser = sender '把触发该事件的Sender转换为WebBrowser
If web.ReadyState=System.Windows.Forms.WebBrowserReadyState.Complete'由于加载完成事件会触发多次,分别为页面数据加载完成,DOM树加载完成.所以这里要判断一下.确保所有东西都加载完成再执行下面的操作
web.Document.GetElementById("physical_workerName").SetAttribute("Value",tables("表A").current("姓名"))
web.Document.GetElementById("physical_workerSex").innertext = tables("表A").current("性别")
End If
End Sub
加好友 
发短信
Post By：2019/9/24 8:33:00 [显示全部帖子]
