本节主要谈谈如何在一个网页内添加网页元素。 @H_301_1@

@H_301_1@

HtmlDocument.CreateElement()将创建一个元素，但是它并不会将创建的元素添加进网页。 @H_301_1@

将创建的元素添加进网页需要使用 HtmlElement.AppendChild(新元素)。 @H_301_1@

@H_301_1@

来看看具体的代码： @H_301_1@

    Private Sub btnAddEle_Click(sender As Object,e As EventArgs) Handles btnAddEle.Click
        Dim wbDocument As HtmlDocument = wbMain.Document
        Dim newInput As HtmlElement = wbDocument.CreateElement("input")
        Dim htmlForm As HtmlElement
        htmlForm = wbDocument.GetElementById("sampleform")
        htmlForm.AppendChild(newInput)
        newInput.OuterHtml = "<input type='text' name='studentgrade' id='studentgrade' value='1'>"
    End Sub

@H_301_1@

以上代码在提交的Form下新建了一个文本框控件，并且value=1,name和id都是studentgrade。 @H_301_1@

数据填写的网页使用的是《 vb.net 教程 20-2 WebBrowser高级用法 2 HtmlElement类 3》中的vbnet20-2-1.htm @H_301_1@

数据提交后的网页做了修改，添加了获得studentgrade变量： @H_301_1@

<html>
<head>
<title>这是配合vb.net教程的网页</title>
</head>
<body>
<%
dim studentname
dim studentage
dim sutdentgrade
studentname=request.form("studentname")
studentage=request.form("studentage")
studentgrade=request.form("studentgrade")
%>

学生姓名：<%=studentname%> <br/>
学生年龄：<%=studentage%> <br/>
学生年级：<%=studentgrade%> <br/>
</body>
</html>

在vbnet20-2-1.htm中 sampleform 表单下是没有studentgrade这个变量的。 @H_301_1@

运行时效果： @H_301_1@

@H_301_1@

可以看到上图中，按下“添加元素”按钮后，网页上增加了一个文本框，并且文本框内文本（value）为1。 @H_301_1@

填好其他两个文本框后，提交数据： @H_301_1@

@H_301_1@

网页成功接收了我们添加的变量。 @H_301_1@

@H_301_1@

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

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

@H_301_1@