تقييم الموضوع :
  • 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 ك ب / التحميلات : 50)
الرد
تم الشكر بواسطة:
#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 ك ب / التحميلات : 57)
لحمد لله رب العالمين على كل شي
الرد
تم الشكر بواسطة: 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 ك ب / التحميلات : 55)
لحمد لله رب العالمين على كل شي
الرد
تم الشكر بواسطة:
#9
الف شكرررررررررر لك يامبدع الان 100 %
الرد
تم الشكر بواسطة:
#10
اخوي حسين طرت في بالي فكره سويت مشروع كا مثال لها - هل يمكن تطبيقها ؟

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

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

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

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] سؤال حول listbox farfour 3 95 24-11-18, 06:21 PM
آخر رد: Rabeea Qbaha
  [VB.NET] حفظ ما في textbox farfour 5 99 21-11-18, 06:31 PM
آخر رد: farfour
  تحديث قائمة checked listbox alfauori 0 57 06-11-18, 07:40 AM
آخر رد: alfauori
  [VB.NET] استفسار :- بخصوص TEXTBOX dubai.eig 2 113 04-11-18, 12:48 AM
آخر رد: dubai.eig
  [VB.NET] سؤال حول textbox trakktour 3 144 29-10-18, 05:38 PM
آخر رد: elgokr
  [VB.NET] سؤال حول القراءة من textbox trakktour 5 143 28-10-18, 11:50 PM
آخر رد: elgokr
  HScrollBar1 و listbox dasktop 0 112 07-10-18, 06:13 PM
آخر رد: dasktop
  [VB.NET] كود حفظ محتويات listbox Aminsoft 3 176 07-10-18, 08:43 AM
آخر رد: elgokr
  [VB.NET] عرض عدد في textbox trakktour 4 138 06-10-18, 11:36 PM
آخر رد: trakktour
  textbox وlistbox dasktop 5 173 06-10-18, 06:25 PM
آخر رد: ابو روضة

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


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