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 教程目录

原文链接：https://www.f2er.com/vb/256478.html

vb.net 教程 12-3 HtmlElement类 5

猜你在找的VB相关文章