01.
Private
Sub
loadEvent()
02.
Dim
xdocaa
As
XDocument = XDocument.Load(
"C:\xml\login2.xml"
)
03.
Dim
sb
As
New
StringBuilder
04.
05.
06.
Dim
Subjet = From x
In
xdocaa.Root.<subject> Where x.@name =
"Principles of Programming Languages "
And
x.<subsec>.Value =
"800"
07.
For
Each
el
As
XElement
In
Subjet.<all_topic>.<topic>
08.
sb.AppendFormat(
"Topic : "
& el.<topicname>.Value & Environment.NewLine & _
09.
"Detail : "
& el.<topicdetail>.Value & Environment.NewLine & _
10.
"Teacher : "
& el.<topicadviser>.Value & Environment.NewLine & _
11.
"Date : "
& el.<topicdate>.Value & Environment.NewLine & _
12.
"--------------------------------------------------"
& Environment.NewLine & Environment.NewLine)
13.
Next
14.
15.
txtlogin.Text = sb.ToString
16.
End
Sub