تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] عرض سطرين من listbox ووضعهم في textbox
#1
السلام عليكم 

اريد هذا المشروع مثلا اضافة ملف txt يحتوي على حكم بالتنسيق هذا


يموت الجبناء مراراً ويموت الشجعان مرة
يوليوس قيصر

الجبان يهدد إذا شعر بالأمان
جوهان ولفجانج جوته

أفضل أن تموت عن أن تموت من الخوف
روبرت سورتيس




اريد انا يقوم بعرض الحكمه مع القائل - يعني يعرض السطر الاول ويعرض السطر الثاني في تكست بوكس ويتجاهل السطر الثالث الفراغ الفاضي

كذلك عند الضغط على عشوائي يختار حكمه عشوائيه من listbox ويقوم بعرضها في textbox مع القائل

وعند الضغط على ترتيب يختار الحكمه التاليه وليست عشوائي


الرد }}}}
تم الشكر بواسطة:
#2
ارفق المشروع للتعديل افضل

وشكرا
لحمد لله رب العالمين على كل شي
الرد }}}}
تم الشكر بواسطة:
#3
المشروع بالمرفقات مع ملف txt يحتوي على حكم

المطلوب عرض الحكمه مع القائل يعني يعرض سطرين في textbox ويتجاهل السطر الفاضي

لانه لدي ملف txt يحتوي على حكم كبيره لكن بالترتيب هذا

يموت الجبناء مراراً ويموت الشجعان مرة
يوليوس قيصر

الجبان يهدد إذا شعر بالأمان
جوهان ولفجانج جوته

أفضل أن تموت عن أن تموت من الخوف
روبرت سورتيس


الملفات المرفقة
.rar   WindowsApplication76 -t.rar (الحجم : 68.5 ك ب / التحميلات : 23)
الرد }}}}
تم الشكر بواسطة:
#4
اضف هذا الكود
PHP كود :
Private Sub ListBox2_SelectedIndexChanged(sender As ObjectAs EventArgsHandles ListBox2.SelectedIndexChanged
        TextBox1
.Text ""
 
       If ListBox2.Text "" Then Exit Sub
        If ListBox2
.SelectedIndex 0 Then
            TextBox1
.Text &= ListBox2.Items(ListBox2.SelectedIndex) & vbNewLine
            TextBox1
.Text &= ListBox2.Items(ListBox2.SelectedIndex 1)
 
       End If
 
       If ListBox2.SelectedIndex ListBox2.Items.Count 1 Then
            TextBox1
.Text &= ListBox2.Items(ListBox2.SelectedIndex 1) & vbNewLine
            TextBox1
.Text &= ListBox2.Items(ListBox2.SelectedIndex)
 
       End If
 
       If ListBox2.Items(ListBox2.SelectedIndex 1).ToString "" Then
            TextBox1
.Text &= ListBox2.Items(ListBox2.SelectedIndex) & vbNewLine
            TextBox1
.Text &= ListBox2.Items(ListBox2.SelectedIndex 1)
 
       Else
            TextBox1
.Text &= ListBox2.Items(ListBox2.SelectedIndex 1) & vbNewLine
            TextBox1
.Text &= ListBox2.Items(ListBox2.SelectedIndex)
 
       End If

 
   End Sub 
الرد }}}}
تم الشكر بواسطة: khodor1985
#5
بعد اذن الاخوان

تم تعديل على المشروع


في المرفقات


الملفات المرفقة
.rar   WindowsApplication76 -t.rar (الحجم : 68.67 ك ب / التحميلات : 27)
لحمد لله رب العالمين على كل شي
الرد }}}}
تم الشكر بواسطة: khodor1985 , khodor1985
#6
مببببببببدع اخوي حسين ضبطت عالترتيب فقط

لما اضغط ترتيب فعلا يظهر لي سطرين - اريد عند الضغط على عشوائي يأتي بحكمه عشوائيه مع القائل

ياليت تعمل لي زر عشوائي كذلك - يأتي بحكمه عشوائيه مع القائل
الرد }}}}
تم الشكر بواسطة: hassan
#7
الله يعطيك العافية يا أخي حسان
الرد }}}}
تم الشكر بواسطة: hassan
#8
(07-03-16, 07:05 AM)khodor1985 كتب : الله يعطيك العافية يا أخي حسان

الله يعافيك يا اخي

(07-03-16, 04:27 AM)الـ ـجارح كتب : مببببببببدع اخوي حسين ضبطت عالترتيب فقط

لما اضغط ترتيب فعلا يظهر لي سطرين - اريد عند الضغط على عشوائي يأتي بحكمه عشوائيه مع القائل

ياليت تعمل لي زر عشوائي كذلك - يأتي بحكمه عشوائيه مع القائل

تم التعديل على زر عشوائي

المشروع في المرفقات

شكرا لكم


الملفات المرفقة
.rar   WindowsApplication76 -t.rar (الحجم : 69.53 ك ب / التحميلات : 27)
لحمد لله رب العالمين على كل شي
الرد }}}}
تم الشكر بواسطة:
#9
الف شكرررررررررر لك يامبدع الان 100 %
الرد }}}}
تم الشكر بواسطة:
#10
اخوي حسين طرت في بالي فكره سويت مشروع كا مثال لها - هل يمكن تطبيقها ؟

مثلا اضيف قائمة القائلين - لنفرض
هتلر
شكسبير
طاغور

وكل شخص اضيف له حكمه واقواله وصوره له او مجموعة صور

وعند الضغط على عشوائي يأتي بحكمه عشوائيه من قائمة القائلون مع عرض صورته في بيكتشر بوكس

مثل اضغط على عشوائي يأتي بحكمه عشوائيه لشكسبير مع صورته اضغط عشوائي مره اخرى يأتي بحكمه لهتلر مع صورة هتلر

هذا مثال للمطلوب - هل ذلك ممكن ؟ مع اضافة اشياء بسيطه مثل مسح حكمه او مسح قائل الخ ...

الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كيف اجعل صف في listbox ملون 3asfa~mdmra 1 89 26-11-16, 01:00 PM
آخر رد: silverlight
  تقسيم text الى عدة listbox rabeh.ram 4 107 22-11-16, 12:06 AM
آخر رد: rabeh.ram
  مساعدة بخصوص Listbox CLARO 3 83 16-11-16, 06:15 PM
آخر رد: silverlight
  [سؤال] حفظ النص المكتوب داخل listBox فارس جراح 7 120 15-11-16, 04:00 AM
آخر رد: LoveVb
  [VB.NET] قاعدة بيانات و listbox rabeh.ram 2 122 05-11-16, 02:51 AM
آخر رد: rabeh.ram
Bug [VB.NET] مـساعدة بخـصوص Listbox 3asfa~mdmra 6 91 04-11-16, 07:33 PM
آخر رد: silverlight
  تقسيم ال textbox حسب محتوى hano 2 92 12-10-16, 08:18 PM
آخر رد: أبو ناصر
  listbox + listbox فى listbox Mohamed20 2 84 11-10-16, 11:00 PM
آخر رد: Mohamed20
  [سؤال] اريد كود حفظ listbox.item sharo.azad 1 86 07-10-16, 07:56 PM
آخر رد: silverlight
  تكبير اول حرف فى textbox Mohamed20 3 113 28-09-16, 09:27 PM
آخر رد: ابراهيم النعيمي

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


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