(01-07-16, 02:50 AM)الوادي كتب : يا أسامة،
أنا طبقت المثال على البيانات في المشاركة رقم 4
ممكن تضع المشروع مع ملف xml اللي تريد تقرأه.
لم أنتبه ل (معلومات Data فى ListBox) فجعلتها كلها في ListView
(01-07-16, 03:29 AM)الوادي كتب : يا أسامة،
لكن عدم وجود المسافة غير قانوني في تنسيق Xml
كلامك يعني الشكل يشبه Xml ولكن ليس ي Xml.
اجل تعلمت هذه الان الكود يعمل بكفاءة 100% لا اعرف كيف اشكرك جزاك الله خيرا
سؤال اخير اذا امكن
كونت استخدم هذا الكود لاضافة الصور
كود :
Dim s As New List(Of String)
Dim currentimg As String
Dim images As New ImageList
While reader.Read()
If reader.NodeType = XmlNodeType.Element Then
Dim mName As String = reader("Name")
Dim mAge As String = reader("Age")
'Dim mData As String = reader("Data")'
If mName <> "" Then
currentimg = mName
images.Images.Add(CType(My.Resources.ResourceManager.GetObject(currentimg), Image))
s.Add(mName)
s.Add(mAge)
End If
End If
If reader.NodeType = XmlNodeType.ProcessingInstruction Then
If reader.Name = "Data" Then
Dim valueStart As Integer = reader.Value.IndexOf(Chr(34)) + 1
Dim valueEnd As Integer = reader.Value.LastIndexOf(Chr(34))
Dim mData As String = reader.Value.Substring(valueStart, valueEnd - valueStart)
s.Add(mData)
End If
End If
For i As Integer = 0 To images.Images.Count - 1
ListView1.SmallImageList = images
If reader.NodeType = XmlNodeType.EndElement Then
If s.Count > 0 Then ListView1.Items.Add(New ListViewItem(s.ToArray, i))
s.Clear()
End If
Next i
End While
End Usingو مشكلة اخرى فى القراءة انه يضيف اول Date فقط !


