- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- BIN老师请看一下。---网页加载判断 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=48359)
-- 发布时间：2014/3/27 16:01:00
-- BIN老师请看一下。---网页加载判断
现在我窗体有一个按钮，想法是单击窗体按钮，WebBrowser页面提交，提交成功后返回到另一个页面（页面标记 id="OK"）。
窗体的按钮 根据页面标记 id="OK" 来判断是否提交成功！
考虑到提交是有延迟情况，所以要用加载状态判断。
这是一段您在全局变量里定义的代码。
Public lb As String \'定义一个全局变量作为标志,根据这个标志执行对应操作
Public Isgo As Boolean \'定义一个全局变量逻辑值,根据这个逻辑值判断是否继续进行运作
\'定义一个WebBrowser加载完成事件,(每当浏览器加载完成当前页面就会执行该事件)
Public Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
If Isgo Then \'判断一下ISGO是否需要执行操作 如果是TRUE说明可以继续执行操作, 如果是FALSE说明已经执行完毕,或者点击了停止.
Dim web As System.Windows.Forms.WebBrowser = sender \'把触发该事件的Sender转换为WebBrowser
If web.ReadyState=System.Windows.Forms.WebBrowserReadyState.Complete\'由于加载完成事件会触发多次,分别为页面数据加载完成,DOM树加载完成.所以这里要判断一下.确保所有东西都加载完成再执行下面的操作
Public Isgo As Boolean \'定义一个全局变量逻辑值,根据这个逻辑值判断是否继续进行运作
\'定义一个WebBrowser加载完成事件,(每当浏览器加载完成当前页面就会执行该事件)
Public Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
If Isgo Then \'判断一下ISGO是否需要执行操作 如果是TRUE说明可以继续执行操作, 如果是FALSE说明已经执行完毕,或者点击了停止.
Dim web As System.Windows.Forms.WebBrowser = sender \'把触发该事件的Sender转换为WebBrowser
If web.ReadyState=System.Windows.Forms.WebBrowserReadyState.Complete\'由于加载完成事件会触发多次,分别为页面数据加载完成,DOM树加载完成.所以这里要判断一下.确保所有东西都加载完成再执行下面的操作
请问BIN老师，我如何把你用全局变量定义的代码 直接移植给按钮。不想在全局里定义。
[此贴子已经被作者于2014-3-27 16:04:03编辑过]
-- 发布时间：2014/3/27 16:04:00
--
只能在全局.
-- 发布时间：2014/3/27 16:07:00
--
噢
