|
Poslao: 31 Maj 2006 23:05
|
offline
- sadux
- Građanin
- Pridružio: 22 Feb 2005
- Poruke: 282
- Gde živiš: Šabac
|
Ok je druze,ovo radi ok i ovo sam i ja znao..
Mene muci atributstring u treeview kontroli..Da dobijem ovako
Ime:Marko
Prezime:Markovic
Razumes?
|
|
|
|
|
Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
|
|
|
Poslao: 02 Jun 2006 07:46
|
|
|
Pa ne kontam te bas. Ako hoces da ti ispred imena i prezimena pise "Ime" odnosno "Prezime" onda uradi ovako:
While iter.MoveNext
Do
iter.Current.MoveToFirstChild()
Dim N As New TreeNode("Kontakt " & i)
TV.Nodes.Add(N)
Do
Select Case iter.Current.Name
Case "ime" : TV.Nodes(i - 1).Nodes.Add("Ime: " & iter.Current.Value)
Case "prezime" : TV.Nodes(i - 1).Nodes.Add("Prezime: " & iter.Current.Value)
End Select
Loop Until (Not iter.Current.MoveToNext)
i = i + 1
Loop Until (Not iter.Current.MoveToNextAttribute)
End While
Dopuna: 02 Jun 2006 8:00
Vidio sam sta ti treba a to ti je isto sto sam ti poslao samo je petlja malchice slozenija
Dopuna: 02 Jun 2006 8:00
Ajd evo napravicu pa cu ti poslati
Dopuna: 02 Jun 2006 8:46
Rijesio sam to sto ti treba ali nisam koristio objekte XmlTextWriter nego objekte DataSet i DataRow. Xml fajl sam ucitao u DataSet a zatim citao red po red i zapisivao u TreeView. Prvo moras imati xml fajl koji izgleda ovako:
<?xml version="1.0" encoding="utf-8" ?>
<adresar>
<ime>Marko</ime>
<prezime>Markovic</prezime>
<prikaz>
<kontakt>
<ime>Marko</ime>
<prezime>Markovic</prezime>
</kontakt>
<kontakt>
<ime>Petar</ime>
<prezime>Petrovic</prezime>
</kontakt>
<kontakt>
<ime>Simo</ime>
<prezime>Simic</prezime>
</kontakt>
<kontakt>
<ime>Ognjen</ime>
<prezime>Askrabic</prezime>
</kontakt>
<kontakt>
<ime>Marko</ime>
<prezime>Polo</prezime>
</kontakt>
<kontakt>
<ime>Pero</ime>
<prezime>Mitic</prezime>
</kontakt>
</prikaz>
</adresar >
Zatim napravi formu koja ima TreeView objekt koji se zove TV:
Public Class Form1
Dim DS As New DataSet
Dim Red As DataRow
Dim Password As String = "neka_sifra"
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim A As String = InputBox("Unesite putanju do fajla", , "c:\test.xml")
Ucitaj_preko_DS(A)
End Sub
Sub Ucitaj_preko_DS(ByVal Fajl As String)
DS.ReadXml(Fajl)
Red = DS.Tables("adresar").Rows(0)
TV.Nodes.Add("Ime fajla: " & Fajl)
TV.Nodes.Add("Password za program: " & Password)
TV.Nodes(0).Nodes.Add("Informacije")
TV.Nodes(0).Nodes(0).Nodes.Add("Ime: " & Red("ime"))
TV.Nodes(0).Nodes(0).Nodes.Add("Prezime: " & Red("prezime"))
TV.Nodes(0).Nodes(0).Nodes.Add("Prikazi")
Dim i As Integer
For i = 0 To DS.Tables("kontakt").Rows.Count - 1
Red = DS.Tables("kontakt").Rows(i)
TV.Nodes(0).Nodes(0).Nodes(2).Nodes.Add("Prikaz " & i + 1)
TV.Nodes(0).Nodes(0).Nodes(2).Nodes(0 + i).Nodes.Add("Ime: " & Red("ime"))
TV.Nodes(0).Nodes(0).Nodes(2).Nodes(0 + i).Nodes.Add("Prezime: " & Red("prezime"))
Next
End Sub
End Class
|
|
|
|
|
|
|
Poslao: 02 Jun 2006 10:13
|
offline
- sadux
- Građanin
- Pridružio: 22 Feb 2005
- Poruke: 282
- Gde živiš: Šabac
|
ok druze hvala ti..
ali pazi fora je u tome,sto meni treba samo da provalim kako da citam atribute i njihove vrednosti u kodu,i samo to!
znaci <Kontakt Ime="Marko" Prezime="Markovic>
Znaci kako da ovo procitam u kodu i da mi izadje
Kontakt
Ime Marko
Prezime Markovic
Za element znam,ide objDoc.DocumentElement.Name 'Dobijem "Kontakt"
Ali ne znam kako da odradim atribute,ako me razumes..
Pazi meni samo to treba i nista vise.. Smile
|
|
|
|
|
|
|
Poslao: 02 Jun 2006 11:11
|
|
|
imas objDoc.DocumentElement.Attributes
Poradi malo na njima
mada ja mislim da ti ne trebaju atributi
|
|
|
|
|
|
|
Poslao: 02 Jun 2006 19:26
|
offline
- sadux
- Građanin
- Pridružio: 22 Feb 2005
- Poruke: 282
- Gde živiš: Šabac
|
ok ajde videcu pa cu javiti sta sam uradio..
hvala ti care,na svemu..
|
|
|
|
|
|
