vb.net 教程 12-3 HtmlElement类 4

悠悠 2022-08-28 15:00 93阅读 0赞

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

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

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

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

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

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

设计界面如下：

![Center][]

具体代码：

转到网页：

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为新值。

运行结果：

![Center 1][]

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修改为了可用状态。如下图：

![Center 2][]

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

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

————————————————  
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

[Center]: /images/20220828/0723ddd02a6f4154b449f7dab6d70be8.png
[Center 1]: /images/20220828/330d5bd003cc4d09ba8b4ff3f57087b4.png
[Center 2]: /images/20220828/7b79b23286b04b828fa6f306db53fe1c.png
[vb.net]: https://www.xin3721.com/eschool/vbnetxin3721/