تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
الليست بوكس
#1
عندي بالفورم ليست بوكس تستقبل بيانات من خلال ملف تكست البيانات علي هذا الشكل 
1
2
3
4
5
من خلال هذا الكود 
كود :
Dim Lines() As String = My.Computer.FileSystem.ReadAllText("Datconfig\hoo.json").Split(vbCrLf)
       ListBox2.Items.AddRange(Lines)
انا اريد عند عمل سليكت علي كل سطر في الليست بوكس يتم حذفه من ملف التكست
كل الشكر الي الاخ عبودي في دعمه لي فهم كل كبيره وصغيره بخصوص الليست بوكس
الرد }}}
تم الشكر بواسطة: asemshahen5 , عبد العزيز البسكري , 3booody
#2
(07-12-19, 05:37 PM)اليوم السابع كتب : عندي بالفورم ليست بوكس تستقبل بيانات من خلال ملف تكست البيانات علي هذا الشكل 
1
2
3
4
5
من خلال هذا الكود 
كود :
Dim Lines() As String = My.Computer.FileSystem.ReadAllText("Datconfig\hoo.json").Split(vbCrLf)
       ListBox2.Items.AddRange(Lines)
انا اريد عند عمل سليكت علي كل سطر في الليست بوكس يتم حذفه من ملف التكست
كل الشكر الي الاخ عبودي في دعمه لي فهم كل كبيره وصغيره بخصوص الليست بوكس

.
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , 3booody , asemshahen5
#3
عفوآ اخي الشكر لله , هذا واجبنا

بالنسبة لسؤالك يفضل ان تعمل حفظ لليست نفسه بوقت معين انته تختاره بما ان الملف نصي وانته تضيفه لليست بهذا الشكل


كود :
ListBox1.Items.AddRange(IO.File.ReadAllText("المسار.txt").Split(vbNewLine).ToArray)

وبهذا الكود عند الضغط المزدوج على الليست بوكس يتم حذف المحدد


كود :
Private Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
       If ListBox1.SelectedIndex > 0 Then
           ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
       End If
   End Sub


اذا ماعندنا مشكلة غير حذف السطر للملف النصي هالشي ممكن انته تختصر الاكواد وفقط تحفظ ماموجود بالليست بوكس عن طريق الكود


كود :
Dim str As String = ""
       For Each txt As String In ListBox1.Items
           str &= txt & vbNewLine
       Next
       IO.File.WriteAllText("المسار.txt", str.Trim)
الرد }}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تظليل التكست بوكس عند وضع المؤشر مصمم هاوي 2 145 02-03-24, 08:48 AM
آخر رد: مصمم هاوي
  بحث بالكومبو بوكس لا ى جزء من النص Lathe1 3 441 28-02-24, 02:59 AM
آخر رد: معاند الحظ
  كيف ارسل مجموع 3 تكست بوكس إلى واحد بالترتيب ؟ أبووسم 3 330 18-12-23, 05:17 PM
آخر رد: أبووسم
  [سؤال] توزيع الارقام على أكثر من تكست بوكس أبووسم 11 692 17-11-23, 12:04 AM
آخر رد: أبووسم
  كود تغيير قيمة تكست بوكس فى تاريخ معين Ahmed.vb 2 909 11-10-23, 10:35 PM
آخر رد: aljzazy
  [VB.NET] اريد كود البحث او الفلترة عن طريق تيكست بوكس و عرض النتيجة في داتا جريد فيو الحسين احمد 6 10,621 10-06-23, 01:01 PM
آخر رد: mahmoud mostafa 2023
  [VB.NET] إرسال البيانات من التكست بوكس إلى الداتا قريد أبووسم 5 720 28-04-23, 04:15 PM
آخر رد: أبووسم
  [VB.NET] محتاج كود اضهار مسج بوكس كل يوم سبت او احد mac9 8 842 27-03-23, 10:44 PM
آخر رد: sanyor77
  مشكلة في كومبو بوكس فراس محي 3 570 14-03-23, 06:40 PM
آخر رد: عضو جديد
  [VB.NET] راديو بوتن & شيك بوكس الزويي 2 499 19-01-23, 05:25 PM
آخر رد: الزويي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم