vb.net 教程 12-3 HtmlElement类 4
发布时间:2020-12-17 08:13:58 所属栏目:百科 来源:网络整理
导读:在上一节提供的网页代码中有两个文本框, name分别是 studentname 和 studentage,分别模拟学生姓名和年龄,由于本教程并不是讲 html和javascript方面的, 所以我们并没有判断是否年龄是数字,姓名长度够不够等,很多判断都略去了。 请自行学习相关html和jav
在上一节提供的网页代码中有两个文本框,
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 教程 目录 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |