Při kódu:
Imports System.Xml
Public Class Class1
Dim doc As New XmlDocument()
Dim _Neco As String
Property Neco() As String
Get
Return _Neco
End Get
Set(ByVal value As String)
_Neco = value
End Set
End Property
Sub New()
doc.Load("mydoc.xml")
Neco = doc.SelectSingleNode("Neco/Neco_").InnerText
End Sub
End Class
XMLku:
<?xml version="1.0" encoding="utf-8" ?>
<Neco>
<Neco_>
Ahojky!
Jak se máš?
Co děláš?
</Neco_>
</Neco>
A kodu ve formu:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As New Class1
RichTextBox1.Text = a.Neco()
End Sub
je richtextbox1.text rovno hodnotě " Ahojky! Jak se máš? Co děláš? " jak má. Nevím, ale ve VéBéčkách (VB.NET :-) ) to je takto ne?
|