vb.net 教程 12-3 HtmlElement类 4

当前位置:

首页 > 编程开发 > vb >

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

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

End Sub

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

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

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

————————————————

原文链接：https://blog.csdn.net/uruseibest/article/details/76321763

栏目列表