[求助] 窗体afterload事件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

参照这个帖子： http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=120985

但是我想把事件发生在窗体加载的时候，也就是打开这个窗体 afterload 这个事件里头：

如下代码，如果是在窗体上加载一个按钮是可以执行的，但是如果写在 afterload 里头没有反应。

Dim web As System.Windows.Forms.WebBrowser = e.Form.controls("webbrowser1").basecontrol

Dim vw As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")

web.ScriptErrorsSuppressed = True

vw.Address = "https://XXXXX.com"

Dim vu = web.Document.GetElementById("mobile")

Dim vp = web.Document.GetElementById("password")

vu.SetAttribute("value", "test")

vp.SetAttribute("value", "test")

web.Document.InvokeScript("login")

@谢谢有点甜的解答，按照你这边的做法，做了一下并不能实现跳转，主要是你红色的部分和红色以下的部分，基本上是同时执行的。

我自己稍微研究了一下，有2种方式可以实现：

方法一：把你的那串红色的字改为一个弹窗 messagebox.show

方法二：启用timertick,

1) aferload :

Dim web As System.Windows.Forms.WebBrowser = e.Form.controls("webbrowser1").basecontrol

web.ScriptErrorsSuppressed = True

Dim vw As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")

vw.Address = "https://XXXX"

e.Form.TimerEnabled = True

P_IS_LOGIN_BMC = False

2) timertick:

Dim web As System.Windows.Forms.WebBrowser = e.Form.controls("webbrowser1").basecontrol

web.ScriptErrorsSuppressed = True

If web.ReadyState.Complete And P_IS_LOGIN_BMC = False Then

Dim vu = web.Document.GetElementById("mobile")

Dim vp = web.Document.GetElementById("password")

vu.SetAttribute("value", "test")

vp.SetAttribute("value", "test")

web.Document.InvokeScript("login")

e.Form.TimerEnabled = False

P_IS_LOGIN_BMC = True

End If

太赞了，非常好，你的这个使代码优雅许多，很赞

主题：[求助] 窗体afterload事件