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

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

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

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

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  إذا كان ال textbox فارغ أريد رسالة خطئء hichem1 8 90 06-06-18, 06:28 PM
آخر رد: hichem1
Question [سؤال] مساعدة أريد أن يستخرج ال textbox من ال webbrowser الذي أضفته في مشروعي hichem1 2 59 06-06-18, 05:02 PM
آخر رد: hichem1
  [سؤال] أريد أن أنشئ textbox غير مسموح بالكتابة عليه مطلقا hichem1 3 77 06-06-18, 03:41 AM
آخر رد: hichem1
  [سؤال] أريد من التكست بوكس (textbox) أن يحفظ البيانات التي كتبت فيه ثم يستعيدها عند فتح الب hichem1 2 69 06-06-18, 01:42 AM
آخر رد: hichem1
  التكرار في Listbox عن طريق Regex aftfm 22 2,599 03-06-18, 06:14 PM
آخر رد: mrnooo2000
Exclamation تنفيذ كود مكتوب في TextBox YousefOkasha 12 249 02-06-18, 12:29 AM
آخر رد: YousefOkasha
  [VB.NET] سؤال في TextBox e-coder 2 90 26-05-18, 05:15 PM
آخر رد: elgokr
  [VB.NET] كيف أتحكم في TextBox DOX.1 9 169 26-05-18, 05:14 PM
آخر رد: elgokr
  [VB.NET] كيف اجعل listbox تستوعب اكبر عدد ممكن من الكلمات او الارقام e-coder 3 113 06-05-18, 12:53 PM
آخر رد: viv
  مساعدة فيما يخص الكتابة في textbox ahmedfa71 2 125 02-04-18, 11:35 AM
آخر رد: ahmedfa71

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


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