VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > vb >

  • vb.net 教程 12-3 HtmlElement类 5

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。
 
上一节讲了如何自动填充网页数据，这一节讲如何提交网页数据。
 
 
 
方法一：使用 HtmlElement 类提供的RaiseEvent()方法：
 
当获得网页元素（HtmlElement）后，调用RaiseEvent(参数)方法，该方法中参数是该元素对应的事件，例如onclick、onchanged等。
 
代码如下：
 
    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
 
 
方法二、比上一个方法更简单，使用HtmlDocument类的InvokeScript()方法。
 
这个方法直接调用网页内的已经定义的脚本。
 
在本例中我们直接调用网页上的 check()，代码如下：
 
    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
 
参数scriptName：要调用的脚本的名称。
 
参数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>
 
 
其中使用脚本check()检查数据，脚本包含两个参数，一个是学生姓名，一个是学生年龄。
 
我们在代码中采用如下方法调用脚本：
 
    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 教程 目录
 
 
————————————————
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/uruseibest/article/details/76349988

相关教程