+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : قراءة ملف xml (/showthread.php?tid=16293)
RE: قراءة ملف xml - الوادي - 01-07-16
يا أسامة،
ممكن تضع المشروع ولكن ب 2010 لأن هناك مشكلة ب2012 و2013 وحكاية اني انقل الفورم متعبة واحيانا ما تضبط.
RE: قراءة ملف xml - سعود - 01-07-16
ماشاء الله انهيتو الموضوع بسرعة وتوي اتوصل لحل
RE: قراءة ملف xml - أسامة - 01-07-16
(01-07-16, 03:52 AM)الوادي كتب : يا أسامة،تم بحمد الله حل مشكلة الصور باضافة images.Images.Count - 1 فى كود الاضافه و ازالة For لاكن لا يزال يضيف اول Data فى Column Date
ممكن تضع المشروع ولكن ب 2010 لأن هناك مشكلة ب2012 و2013 وحكاية اني انقل الفورم متعبة واحيانا ما تضبط.
اريد قليل من الوقت لتحميل 2010
جرى التثبيت
(01-07-16, 04:34 AM)سعود كتب : ماشاء الله انهيتو الموضوع بسرعة وتوي اتوصل لحل
يوجد فقط مشكلة صغيره
تفضل اخى المشروع بى 2010
RE: قراءة ملف xml - الوادي - 02-07-16
يا أسامة،
ما فهمت حكاية الصور،
لقيت الصور لها اسماء محددة،
فهل هذا ما تريد؟
أم تريد أن يكون للصور مدلول عام مثل مسؤول ومستخدم وزائر وهكذا... وتعطى لأي اسم حسب تصنيفه، إذا كان كذلك فيجب إضافة في البيانات رمز يدل على التصنيف.
لابد من التوضيح من الفكرة منشان نمشي معاك بشكل صحيح.
RE: قراءة ملف xml - أسامة - 02-07-16
(02-07-16, 12:30 AM)الوادي كتب : يا أسامة،
ما فهمت حكاية الصور،
لقيت الصور لها اسماء محددة،
فهل هذا ما تريد؟
أم تريد أن يكون للصور مدلول عام مثل مسؤول ومستخدم وزائر وهكذا... وتعطى لأي اسم حسب تصنيفه، إذا كان كذلك فيجب إضافة في البيانات رمز يدل على التصنيف.
لابد من التوضيح من الفكرة منشان نمشي معاك بشكل صحيح.
اخى هذا ما اريد تم حل مشكلة الصور بحمد الله لاكن المشكلة فى ال Data ان يضيف اول Data فقت فى Listview و لا يمكن اضافى ال Data لاخرى
RE: قراءة ملف xml - الوادي - 02-07-16
يا أسامة،
هذا تعديل
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
ولاحظ أني طلبت منك توضيح للفكرة منشان نمشي معاك بشكل صحيح!
موفق...
RE: قراءة ملف xml - أسامة - 02-07-16
[quote pid='79102' dateline='1467416560']
يا أسامة،
هذا تعديل
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
ولاحظ أني طلبت منك توضيح للفكرة منشان نمشي معاك بشكل صحيح!
موفق...
[/quote]
اعلم اخى فقط اضافة اسم الشخص للصورة افضل طرية حتى الان انا فقط كونت احسب انك لاتزال تحسب ان كود الصورة ما يزال يوجد به مشكلة
جزاك الله الف خير على مساعددك اخى ولا اعلم كيف اشكرك لاكن اعلم ان الدعاء افضل من اى شيئ ربنا يشفيك ويعافيك وزادك علما اثابك الله الاجرو الثواب وجزيت خيرا وجعله في ميزان حسناتك