7,763
社区成员
发帖
与我相关
我的任务
分享webbrows中如何触发text 框的onchange事件？
vb中用webbrows打开html后，自动输入数据后，
如何触发text 框的onchange事件？
如何触发text 框的onchange事件？
...全文
请发表友善的回复…
发表回复
cacu 2003-12-21
- 打赏
- 举报
用
call item(1).onchenge() 解决，送分
call item(1).onchenge() 解决，送分
online 2003-12-21
- 打赏
- 举报
如何触发text 框的onchange事件？
TEXT框是html页面里的
你试试下面这种方法，我没有试过
原理应该是一样的
a.htm
----------------------
<HTML>
<HEAD>
<SCRIPT>
var obj;
</SCRIPT>
</HEAD>
<BODY>
<a href=# onclick="obj.w(); return false;">asdasdsad</a>
</BODY>
</HTML>
建立一个EXE再窗体上放置一个WebBrowser控件，改名为web
Private Sub Form_Load()
web.Navigate "c:\a.htm"
DoEvents
Do While web.Busy
DoEvents
Loop
Set web.Document.ParentWindow.obj = Me
End Sub
Public Sub w()
MsgBox "haha"
End Sub
TEXT框是html页面里的
你试试下面这种方法，我没有试过
原理应该是一样的
a.htm
----------------------
<HTML>
<HEAD>
<SCRIPT>
var obj;
</SCRIPT>
</HEAD>
<BODY>
<a href=# onclick="obj.w(); return false;">asdasdsad</a>
</BODY>
</HTML>
建立一个EXE再窗体上放置一个WebBrowser控件，改名为web
Private Sub Form_Load()
web.Navigate "c:\a.htm"
DoEvents
Do While web.Busy
DoEvents
Loop
Set web.Document.ParentWindow.obj = Me
End Sub
Public Sub w()
MsgBox "haha"
End Sub
