VB 自动提交表单的一个奇怪的问题

[Gordon_Freeman]

W1是一个WebBrowser对象

Dim doc As New HTMLDocument
Dim f As New HTMLFormElement

W1.Navigate "c:\cc.htm"

Set doc = W1.Document
Set f = doc.Forms("mobileform")

f.Item("mobile").Value ="hello"
f.submit

这段代码吧，我直接运行，屏幕上的W1控件里的网页的文本框的内容并没有改变
但是呢，我用调试单步运行，却能看见W1控件里网页内容的改变。

真郁闷啊，用的是VB6.0

[Gordon_Freeman]

要运行此工程必须引用Microsoft HtmlObject Library

[Gordon_Freeman]

而且f.submit 貌似也没有效果嘛，用单步调试就能看见效果。郁闷啊

[Z782282738]

不会VB.自己多编几次试一试.VB 是WINDOWS的,我学的是通用的,C.C++,PHP.

[zzyong00]

submit后，可能Item("mobile")值被清空了

[zzyong00]

也有可能Item("mobile")赋值需要延时

[Gordon_Freeman]

发现原因了，是因为WEBBROWSER装载页面需要一定的时间，而程序代码在这段时间内已经被执行完毕了，所以没有起到作用，解决方法就是延时。用sleep函数

[Gordon_Freeman]

顶啊

[dingyanwei]

我也发现有这个问题，我的更怪异，点击链接都不跳转

[wjr50]

If Not (pDisp Is WebBrowser1.object) Then Exit Sub
在　WebBrowser1_DocumentComplete事件里最前面加上上面的代码