|
Ano tam jsem se během dneška také dostal, jenže mi nechtělo chodit víc než ověření připojení do DB tak jsem to vzdal. XML naštěstí vyřešilo mé problémy. Inspiroval jsem se článkem z tohoto webu http://www.vbnet.cz/clanek--80-prace_s_x... a výslený funkční kúd je zde:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
doc.Load("data.xml")
For Each n As Xml.XmlNode In doc.SelectNodes("/seznam/polozka")
ListBox1.Items.Add(" " & n.Attributes("nazev").Value)
Label1.Text = My.Settings.mov_nm
Next
End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
With doc.SelectNodes("seznam/polozka")(ListBox1.SelectedIndex)
Label1.Text = .SelectSingleNode("nazev").InnerText
My.Settings.mov_dir = " " & .SelectSingleNode("data").InnerText
My.Settings.mov_nm = .SelectSingleNode("nazev").InnerText
End With
Takže bych označil za vyřešené. Děkuji.
|