02-07-16, 03:42 AM
يا أسامة،
هذا تعديل
ولاحظ أني طلبت منك توضيح للفكرة منشان نمشي معاك بشكل صحيح!
موفق...
هذا تعديل
PHP كود :
Imports System.Xml
Public Class Form1
Private images As New ImageList With {.ColorDepth = ColorDepth.Depth32Bit, .ImageSize = New Size(24, 24)}
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
ListView1.SmallImageList = images
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Using reader As XmlReader = XmlReader.Create("test.xml")
Dim mName As String
Dim mAge As String
Dim mData As String
While reader.Read()
' Name, Age
If reader.NodeType = XmlNodeType.Element Then
mName = reader("Name")
mAge = reader("Age")
If mName <> "" Then
images.Images.Add(CType(My.Resources.ResourceManager.GetObject(mName), Image))
End If
End If
' Data
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 value As String = reader.Value.Substring(valueStart, valueEnd - valueStart)
mData = (mData & " " & value).Trim
End If
End If
If reader.NodeType = XmlNodeType.EndElement Then
If mData <> "" Then
ListView1.Items.Add(New ListViewItem(New String() {mName, mAge, mData}, images.Images.Count - 1))
mName = ""
mAge = ""
mData = ""
End If
End If
End While
End Using
End Sub
End Class
ولاحظ أني طلبت منك توضيح للفكرة منشان نمشي معاك بشكل صحيح!
موفق...


