在上一节提供的网页代码中有两个文本框,
name分别是 studentname 和 studentage,分别模拟学生姓名和年龄,由于本教程并不是讲 html和javascript方面的,
所以我们并没有判断是否年龄是数字,姓名长度够不够等,很多判断都略去了。
请自行学习相关html和javascript方面的知识,当然,如果确实有需要,我也可以写一些这方面的教程。
需要使用到 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
运行结果:
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
由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。
学习更多vb.net知识,请参看 vb.net 教程 目录
原文地址:https://www.jb51.cc/vb/256479.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。