代码如下:
Private Sub btnSubmit1_Click(sender As Object,e As EventArgs) Handles btnSubmit1.Click Dim htmlAlls As HtmlElementCollection htmlAlls = wbMain.Document.All For Each htmlSingle As HtmlElement In htmlAlls Select Case htmlSingle.GetAttribute("name") Case "submit1" htmlSingle.RaiseEvent("onclick") Case Else '不处理 End Select Next End Sub
Private Sub btnSubmit2_Click(sender As Object,e As EventArgs) Handles btnSubmit2.Click wbMain.Document.InvokeScript("check") End Sub
看起来更简洁。
当然InvokeScript()还有个重载的方法:
Public Function InvokeScript (scriptName As String,args As Object() ) As Object
参数args:要传递给脚本scriptName的参数。
例如下面的HTML代码(PS:此网页已经传到我的网站:http://www.qqrec.com/vblessons/vbnet20-2-2.htm):
<html> <head> <title>这是配合vb.net教程的网页</title> <script language="javascript"> function check(studentname,studentage) { if(studentname=="") { alert("姓名没有填写"); return false; } if(studentage.length>2) { alert("年龄长度超过2位"); return false; } alert("数据木有问题:"+studentname+"的年龄是"+studentage); } </script> </head> <body> <input type="button" name="submit" id="submit" value="检查数据" onclick="check('张三','12')"> </body> </html>
Private Sub btnCheck_Click(sender As Object,e As EventArgs) Handles btnCheck.Click Dim scriptName As String = "check" Dim args As Object() = {"李四","8"} wbMain.Document.InvokeScript(scriptName,args) End Sub
当直接按下网页上的按钮:
当按下窗体上的”检查数据“按钮:
由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。
学习更多vb.net知识,请参看 vb.net 教程 目录
原文地址:https://www.jb51.cc/vb/256478.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。