الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف يتم اضافة سطر جديد في listbox1

مغلق
بدأه روح الفيجوال بيسك نت في 26 مايو 2007 · 3 رد · 832 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاتة

انا مشكلتي بسيطة جداً بس انا لم اعرف الحل لها

معلومات:

انا اريد عندما يشتغل البرنامج حقي يقوم بقراة ملف تاكست واضهارة في listbox1.items.add ولكن انا لا اريدة يضهر كل شي في السطر الاول من listbox1

انا اريدة يذهب ويقراء التاكس (الذي انا سوف احددة ) ولكن مثلاً لو نفترض التالي

السطر الاول من التاكس حقي text هو

عمار

السطر الاول من التاكس حقي text هو

سعيد

السطر الاول من التاكس حقي text هو

علي

الخ

انا اريد البرنامج يضهر لي في listbox1 عمار في سطر لحالة وسعيد في سطر لحالة وعلى في سطر لحالة

انا لا اريد البرنامج يضهر لي في listbox1 عمار و سعيد و على في نفس السطر

على العلم اني جربت هذا الكود لكن المشكلة ان البرنامج يضهرهن في نفس السطر (عمار و سعيد و على)

Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
		Dim textfiles As New StreamReader("D:/stream.txt")

		ListBox1.Items.Add(textfiles.ReadToEnd & vbCrLf)


	End Sub

منتضر الرد

تم تعديل هذه المشاركة بواسطة روح الفيجوال بيسك نت في 26 مايو 2007 في 20:50

if You.needhelp = true then

msgbox ("Never Ever Ask dam Question  Before Searching in google")

Else 

msgbox ("You are Doing Good")

End if
#2

استخدم readline بدل قراءة كل الملف

Dim textfiles As New IO.StreamReader("D:/stream.txt")

Do While Not textfiles.EndOfStream

ListBox1.Items.Add( textfiles.ReadLine()(

Loop

myblog.jpeg

مدونتي

استضافة مواقع asp.net :.Net 3.5,4,4.5, MVC2 & 3,SQL server 2008 R2, Crystal reports

#3

شكراً لك على الرد

بس يا الغالي ليس هنالك شي يسمى EndOfStream في vb.net

كلما اكتب هذا يضهر غلط

الرجاء المساعدة

تم تعديل هذه المشاركة بواسطة روح الفيجوال بيسك نت في 26 مايو 2007 في 21:11

if You.needhelp = true then

msgbox ("Never Ever Ask dam Question  Before Searching in google")

Else 

msgbox ("You are Doing Good")

End if
#4

اشكرك من كل اعماق قلبي يا الغالي

لقد عرفت الحل للمشكلة 

 Dim textfiles As New IO.StreamReader("D:/stream.txt")
		Do While Not textfiles.Read
			ListBox1.Items.Add(textfiles.ReadLine)
		Loop

-waf -waf -waf

if You.needhelp = true then

msgbox ("Never Ever Ask dam Question  Before Searching in google")

Else 

msgbox ("You are Doing Good")

End if

هذا الموضوع مغلق.

مواضيع مشابهة