vb.net 教程 12-3 HtmlElement类 4

在上一节提供的网页代码中有两个文本框，

name分别是 studentname 和 studentage，分别模拟学生姓名和年龄，由于本教程并不是讲 html和javascript方面的，

所以我们并没有判断是否年龄是数字，姓名长度够不够等，很多判断都略去了。

请自行学习相关html和javascript方面的知识，当然，如果确实有需要，我也可以写一些这方面的教程。

回到正题，我们已经知道网页中的两个变量名称，那么通过webbrowser就可以完成一键填表的操作。

需要使用到 HtmlElement 类的 GetAttribute和 SetAttribute 方法。

设计界面如下：

具体代码：

转到网页：

    Private Sub btnGoto_Click(sender As Object,e As EventArgs) Handles btnGoto.Click
        wbMain.Navigate(txtUrl.Text)
    End Sub

一键填表：

    Private Sub btnFill_Click(sender As Object,e As EventArgs) Handles btnFill.Click
        Dim strName As String = "张三"
        Dim strAge As String = "12"

        Dim htmlAlls As HtmlElementCollection
        htmlAlls = wbMain.Document.All

        For Each htmlSingle As HtmlElement In htmlAlls
            Select Case htmlSingle.GetAttribute("name")
                Case "studentname"
                    htmlSingle.SetAttribute("value",strName)
                Case "studentage"
                    htmlSingle.SetAttribute("value",strAge)
                Case Else
                    '不处理
            End Select
        Next
    End Sub

GetAttribute(参数)：返回网页元素的某个属性的值（String），参数为该网页元素的某个属性，代码中为文本框的name

SetAttribute（参数1，参数2）：设置网页元素的某个属性的值，参数1、2均为String类型，参数1为属性的名称，代码中为文本框的value，参数2为新值。

运行结果：

SetAttribute()对按钮同样适用，以下代码实现为按钮的value设置新值，同时将第二个按钮设置为可用：

    Private Sub btnEnabled_Click(sender As Object,e As EventArgs) Handles btnEnabled.Click

        Dim htmlAlls As HtmlElementCollection
        htmlAlls = wbMain.Document.All

        For Each htmlSingle As HtmlElement In htmlAlls
            Select Case htmlSingle.GetAttribute("name")
                Case "submit1"
                    htmlSingle.SetAttribute("value","submit")
                Case "submit2"
                    htmlSingle.Enabled = True
                Case Else
                    '不处理
            End Select
        Next
    End Sub

运行后将按钮一的value修改为了“submit”，按钮2修改为了可用状态。如下图：

由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。

学习更多vb.net知识，请参看 vb.net 教程 目录