我在vb.net中有一个Windows应用程序，我正在尝试从我的服务器（http://dev2010.abc.com/abc.xml）读取一个xml文件。我能够读取abc.xml。 现在我需要在vb.net的富文本框中显示abc.xml，然后我必须在组合框中显示节点及其值。我可以用一个目录来做这个（假设该文件在C：/abc.xml中） 请建议我在富文本框中从服务器加载该xml文件的方法，并从那里显示组合框中的节点和相应的值，并在文本框中显示其输出..
Imports System.Xml
Imports System.IO
Public Class Form1
Inherits System.Windows.Forms.Form
Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
InitializeComponent()
End Sub
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
Friend WithEvents txtFile As System.Windows.Forms.TextBox
Friend WithEvents txtResults As System.Windows.Forms.TextBox
Friend WithEvents btnList As System.Windows.Forms.Button
Friend WithEvents txtTagName As System.Windows.Forms.TextBox
Friend WithEvents lblFile As System.Windows.Forms.Label
Friend WithEvents lblTag As System.Windows.Forms.Label
Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
Friend WithEvents DG_IPInfo As System.Windows.Forms.DataGridView
Private components As System.ComponentModel.Container
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.lblTag = New System.Windows.Forms.Label
Me.txtResults = New System.Windows.Forms.TextBox
Me.btnList = New System.Windows.Forms.Button
Me.lblFile = New System.Windows.Forms.Label
Me.txtFile = New System.Windows.Forms.TextBox
Me.txtTagName = New System.Windows.Forms.TextBox
Me.ComboBox1 = New System.Windows.Forms.ComboBox
Me.DG_IPInfo = New System.Windows.Forms.DataGridView
CType(Me.DG_IPInfo, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'lblTag
'
Me.lblTag.Location = New System.Drawing.Point(47, 30)
Me.lblTag.Name = "lblTag"
Me.lblTag.Size = New System.Drawing.Size(32, 16)
Me.lblTag.TabIndex = 4
Me.lblTag.Text = "Tag"
'
'txtResults
'
Me.txtResults.Location = New System.Drawing.Point(496, 239)
Me.txtResults.Multiline = True
Me.txtResults.Name = "txtResults"
Me.txtResults.ScrollBars = System.Windows.Forms.ScrollBars.Both
Me.txtResults.Size = New System.Drawing.Size(200, 309)
Me.txtResults.TabIndex = 3
'
'btnList
'
Me.btnList.Location = New System.Drawing.Point(228, 30)
Me.btnList.Name = "btnList"
Me.btnList.Size = New System.Drawing.Size(40, 23)
Me.btnList.TabIndex = 1
Me.btnList.Text = "List"
'
'lblFile
'
Me.lblFile.Location = New System.Drawing.Point(82, 217)
Me.lblFile.Name = "lblFile"
Me.lblFile.Size = New System.Drawing.Size(100, 19)
Me.lblFile.TabIndex = 5
Me.lblFile.Text = "File"
Me.lblFile.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'txtFile
'
Me.txtFile.Location = New System.Drawing.Point(12, 239)
Me.txtFile.Multiline = True
Me.txtFile.Name = "txtFile"
Me.txtFile.ScrollBars = System.Windows.Forms.ScrollBars.Both
Me.txtFile.Size = New System.Drawing.Size(224, 309)
Me.txtFile.TabIndex = 2
'
'txtTagName
'
Me.txtTagName.Location = New System.Drawing.Point(100, 30)
Me.txtTagName.Name = "txtTagName"
Me.txtTagName.Size = New System.Drawing.Size(104, 20)
Me.txtTagName.TabIndex = 0
Me.txtTagName.Text = "Status"
'
'ComboBox1
'
Me.ComboBox1.FormattingEnabled = True
Me.ComboBox1.Location = New System.Drawing.Point(496, 179)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(200, 21)
Me.ComboBox1.TabIndex = 6
'
'DG_IPInfo
'
Me.DG_IPInfo.BackgroundColor = System.Drawing.SystemColors.ControlLightLight
Me.DG_IPInfo.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.DG_IPInfo.Location = New System.Drawing.Point(12, 73)
Me.DG_IPInfo.Name = "DG_IPInfo"
Me.DG_IPInfo.Size = New System.Drawing.Size(461, 127)
Me.DG_IPInfo.TabIndex = 7
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(833, 560)
Me.Controls.Add(Me.DG_IPInfo)
Me.Controls.Add(Me.ComboBox1)
Me.Controls.Add(Me.txtResults)
Me.Controls.Add(Me.txtTagName)
Me.Controls.Add(Me.lblTag)
Me.Controls.Add(Me.btnList)
Me.Controls.Add(Me.lblFile)
Me.Controls.Add(Me.txtFile)
Me.Name = "Form1"
Me.Text = "GetElementsByTagName"
CType(Me.DG_IPInfo, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Private xml_doc As XmlDocument
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim resolver As New XmlUrlResolver()
Dim myUri As New Uri("http://dev2010.abc.com/abc.xml")
' Dim myUri As New Uri("http://localhost/test_abc/abc.xml")
'Dim s1 As String = DirectCast(resolver.GetEntity(myUri, Nothing, GetType(String)), String)
Dim s As Stream = DirectCast(resolver.GetEntity(myUri, Nothing, GetType(Stream)), Stream)
Dim xmlTextReader As New XmlTextReader(s)
Dim xdoc1 As New XmlDataDocument()
xdoc1.DataSet.ReadXml(xmlTextReader, XmlReadMode.Auto)
Dim ds As DataSet = xdoc1.DataSet
'DG_LiveRates.DataSource = xdoc1.DataSet;
'DataSet ds = new DataSet();
Dim dt As DataTable = ds.Tables(0)
DG_IPInfo.DataSource = dt
Dim file_name As String = DataSubdirectory() & "\abc.xml"
'Dim results As String
txtFile.Text = GetFileContents(file_name)
xml_doc = New XmlDocument()
xml_doc.Load(file_name)
ComboBox1.Items.Add("Status")
ComboBox1.Items.Add("Ip")
ComboBox1.Items.Add("CountryCode")
ComboBox1.Items.Add("CountryName")
ComboBox1.Items.Add("RegionCode")
ComboBox1.Items.Add("RegionName")
ComboBox1.Items.Add("City")
ComboBox1.Items.Add("ZipCode")
ComboBox1.Items.Add("Latitude")
ComboBox1.Items.Add("Longitude")
End Sub
Private Sub btnList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnList.Click
'Dim xml_node_list As XmlNodeList
'Dim xml_node As XmlNode
' Dim results As String
'xml_node_list = xml_doc.GetElementsByTagName(txtTagName.Text)
'For Each xml_node In xml_node_list
'results = results & xml_node.InnerText & vbCrLf
'ComboBox1.Items.Add("S")
'Next xml_node
'txtResults.Text = results
End Sub
Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize
Dim wid As Integer
Dim hgt As Integer
wid = ClientSize.Width \ 2
hgt = ClientSize.Height - txtFile.Location.Y
If hgt < 10 Then hgt = 10
lblFile.SetBounds(0, 0, wid, lblFile.Size.Height)
txtFile.SetBounds(0, txtFile.Location.Y, wid, hgt)
lblTag.SetBounds(wid, 0, lblTag.Size.Width, lblTag.Size.Height)
txtResults.SetBounds(wid, txtFile.Location.Y, wid, hgt)
btnList.SetBounds(ClientSize.Width - btnList.Size.Width, 0, btnList.Size.Width, btnList.Size.Height)
wid = btnList.Location.X - lblTag.Location.X - lblTag.Size.Width - 10
If wid < 10 Then wid = 10
txtTagName.SetBounds(lblTag.Location.X + lblTag.Size.Width, 0, wid, txtTagName.Size.Height)
End Sub
Private Sub txtFile_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtFile.TextChanged
End Sub
Private Sub txtResults_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtResults.TextChanged
End Sub
Private Sub txtTagName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTagName.TextChanged
End Sub
Private Sub ComboBox1_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedValueChanged
Dim xml_node_list As XmlNodeList
Dim xml_node As XmlNode
Dim results As String
xml_node_list = xml_doc.GetElementsByTagName(txtTagName.Text)
For Each xml_node In xml_node_list
results = results & xml_node.InnerText & vbCrLf
Next xml_node
txtResults.Text = results
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim xml_node_list As XmlNodeList
Dim xml_node As XmlNode
Dim results1 As String
Dim results As String
results1 = ComboBox1.Text
xml_node_list = xml_doc.GetElementsByTagName(results1)
For Each xml_node In xml_node_list
results = results & xml_node.InnerText & vbCrLf
Next xml_node
txtResults.Text = results
End Sub
Private Sub DG_IPInfo_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DG_IPInfo.CellContentClick
End Sub
Private Sub lblFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblFile.Click
End Sub
End Class
请以某种方式建议我。
答案 0 :(得分：0)
Me.lblTag.Location = New System.Drawing.Point（47,30）Me.lblTag.Name =“lblTag”Me.lblTag.Size = New System.Drawing.Size（32,16）Me.lblTag。 TabIndex = 4 Me.lblTag.Text =“Tag”