تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] مساعده في الكود
#1
عندي في الفورم بوتن وريتش بوكس وليست بوكس محتاج ارسل من الريتش بوكس بيانات الي الليست بوكس  بهذا الشكل 
1
2

وتوصل لليست بوكس بفس الشكل 
1
2

وليس 123 
كيف اكتب الكود في البوتن وشكرا مقدمااا

(01-08-19, 05:29 PM)اليوم السابع كتب : عندي في الفورم بوتن وريتش بوكس وليست بوكس محتاج ارسل من الريتش بوكس بيانات الي الليست بوكس  بهذا الشكل 
1
2

وتوصل لليست بوكس بفس الشكل 
1
2

وليس 123 
كيف اكتب الكود في البوتن وشكرا مقدمااا

Huh Huh Huh

(01-08-19, 05:29 PM)اليوم السابع كتب : عندي في الفورم بوتن وريتش بوكس وليست بوكس محتاج ارسل من الريتش بوكس بيانات الي الليست بوكس  بهذا الشكل 
1
2

وتوصل لليست بوكس بفس الشكل 
1
2

وليس 123 
كيف اكتب الكود في البوتن وشكرا مقدمااا

(01-08-19, 05:29 PM)اليوم السابع كتب : عندي في الفورم بوتن وريتش بوكس وليست بوكس محتاج ارسل من الريتش بوكس بيانات الي الليست بوكس  بهذا الشكل 
1
2

وتوصل لليست بوكس بفس الشكل 
1
2

وليس 123 
كيف اكتب الكود في البوتن وشكرا مقدمااا

Huh Huh Huh

للنظر
الرد
تم الشكر بواسطة:
#2
السلام عليكم اخي الكريم
تفضل الكود كما يوجد في الريتش  سيكون في الليست بوكس
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       ListBox1.Items.Clear()
       If RichTextBox1.Text <> Nothing Then
           Dim ListLine As New List(Of String)(RichTextBox1.Lines)
           For Each itm As String In ListLine
               ListBox1.Items.Add(itm)
           Next
       End If
   End Sub

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







الرد
تم الشكر بواسطة: اليوم السابع , asemshahen5
#3
(01-08-19, 07:09 PM)ابراهيم ايبو كتب :
السلام عليكم اخي الكريم
تفضل الكود كما يوجد في الريتش  سيكون في الليست بوكس
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       ListBox1.Items.Clear()
       If RichTextBox1.Text <> Nothing Then
           Dim ListLine As New List(Of String)(RichTextBox1.Lines)
           For Each itm As String In ListLine
               ListBox1.Items.Add(itm)
           Next
       End If
   End Sub


شكرا يا هندسه علي تعبك ولكن عرض الكلام كله في سطر واحد في الليست بوكس وليس سطر سطر

(01-08-19, 07:09 PM)ابراهيم ايبو كتب :
السلام عليكم اخي الكريم
تفضل الكود كما يوجد في الريتش  سيكون في الليست بوكس
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       ListBox1.Items.Clear()
       If RichTextBox1.Text <> Nothing Then
           Dim ListLine As New List(Of String)(RichTextBox1.Lines)
           For Each itm As String In ListLine
               ListBox1.Items.Add(itm)
           Next
       End If
   End Sub


اضع الارقام او النصوص كاهذا اريدها تذهب الي الليست بوكس كماهي وليس في سطر واحد


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة: ابراهيم ايبو , سعود , asemshahen5
#4
وتوصل لليست بوكس بفس الشكل 
1
2

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







الرد
#5
(01-08-19, 07:25 PM)ابراهيم ايبو كتب : وتوصل لليست بوكس بفس الشكل 
1
2

وليس 123 
كيف اكتب الكود في البوتن وشكرا مقدمااا
انا ذاهب الى البيت الان

توصل بالسلامه رعاك الله ان شاء الله
الرد
تم الشكر بواسطة: سعود , asemshahen5
#6
عدنا والعود احمد
تفضل حسب ماتريد
كود :
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       ListBox1.Items.Clear()
       Dim kk As String = ""
       If RichTextBox1.Text <> Nothing Then
           Dim ListLine As New List(Of String)(RichTextBox1.Lines)
           For Each itm As String In ListLine
               kk += itm
           Next
           ListBox1.Items.Add(kk)
       End If
   End Sub
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة: سعود , asemshahen5 , اليوم السابع
#7
(01-08-19, 08:05 PM)ابراهيم ايبو كتب : عدنا والعود احمد
تفضل حسب ماتريد
كود :
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       ListBox1.Items.Clear()
       Dim kk As String = ""
       If RichTextBox1.Text <> Nothing Then
           Dim ListLine As New List(Of String)(RichTextBox1.Lines)
           For Each itm As String In ListLine
               kk += itm
           Next
           ListBox1.Items.Add(kk)
       End If
   End
شكرا اخي ابراهيم ولكن نفس النتيجه يظهر كل النصوص علي هيئه سطر واحد في الليست بوكس
الرد
تم الشكر بواسطة:
#8
عدله ليكون هكذا :

PHP كود :
   Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
        ListBox1
.Items.Clear()
 
       Dim kk As String ""
 
       If RichTextBox1.Text <> Nothing Then
            Dim ListLine 
As New List(Of String)(RichTextBox1.Lines)
 
           For Each itm As String In ListLine
                ListBox1
.Items.Add(itm)
 
           Next
        End 
If
 
   End Sub 
الرد
#9
(02-08-19, 03:12 AM)asemshahen5 كتب : عدله ليكون هكذا :

PHP كود :
   Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
        ListBox1
.Items.Clear()
 
       Dim kk As String ""
 
       If RichTextBox1.Text <> Nothing Then
            Dim ListLine 
As New List(Of String)(RichTextBox1.Lines)
 
           For Each itm As String In ListLine
                ListBox1
.Items.Add(itm)
 
           Next
        End 
If
 
   End Sub 

الله ينور هو ده المطلوب بالظبط
الرد
تم الشكر بواسطة: asemshahen5
#10
السلام عليكم اخي الكريم

اخي الم تر انك لم تجرب الكود الذي اعطيتك اياه بالرد الاول الذي عنوانه
تفضل الكود كما يوجد في الريتش  سيكون في الليست بوكس
وقلت لبس المطلوب واعدت وتريد سطر واحد 
====================
============
======
المهم انك وصلت الى مرادك
موفور الشكر ودوامه لاخي الحبيب عاصم 

السلام عليكم اخي الكريم

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







الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج مساعده طلب بسيط اليوم السابع 1 32 منذ 1 ساعه مضت
آخر رد: سعود
  محتاج مساعده في الداتا جريد فيو اليوم السابع 8 59 منذ 1 ساعه مضت
آخر رد: اليوم السابع
  تنفيذ استعلام حذف البيانات في جدول قاعدة بيانات سيكوال سيرفر باستخدام الكود في فجوال momani33 4 84 28-05-20, 12:46 AM
آخر رد: اسامه الهرماوي
  مساعده في الكيبورد في برنامجي alshandodi 5 83 21-05-20, 05:04 AM
آخر رد: DR.YASER
  اريد عمل Invoke لهذا الكود لوضعه في BackGroundWorker developermedo111 1 79 14-05-20, 12:00 PM
آخر رد: عبدالله الدوسري
  مساعده في إخفاء Rows alshandodi 9 174 10-05-20, 11:08 PM
آخر رد: سعود
  عايز اعرف السطر اللي بيحصل عنده المشكله في الكود makky 0 42 10-05-20, 08:43 PM
آخر رد: makky
  [كود] ما هو الكود المناسب لصنع برنمج تحويل الصور ل ايقونات محمد ايمن 7 304 08-05-20, 03:12 AM
آخر رد: سعود
  [VB.NET] محتاج مساعده في ال Chart اليوم السابع 4 106 03-05-20, 01:20 AM
آخر رد: اليوم السابع
  اريد كود لطباعة Report viewer تلقائيا مجرد م اقوم بفتح النافذه يتم وضع الكود بال Load mohamedgadain61 31 1,183 02-05-20, 08:47 PM
آخر رد: علي سالم

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


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