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

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

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

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

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] اريد طريقة لمنع تكرار عناصر listbox riad21 4 375 13-10-17, 10:03 AM
آخر رد: مصطفي الشكلي
  [VB.NET] استفسار بخصوص ال textbox dubai.eig 2 47 12-10-17, 09:07 PM
آخر رد: dubai.eig
Exclamation [VB.NET] حدف اسطر في textbox mervandzz 3 52 12-10-17, 02:40 PM
آخر رد: mervandzz
  [VB.NET] استفسار :- تحديث ال TEXTBOX dubai.eig 8 154 10-10-17, 07:03 PM
آخر رد: dubai.eig
  مساعدة في حفظ ماهو مكتوب في textbox اوتوماتيكي trakktour 1 82 01-10-17, 10:30 PM
آخر رد: Amir_alzubidy
  [سؤال] طلب كود لتكرار كلمة في TextBox vbb6 3 86 01-10-17, 04:11 PM
آخر رد: vbb6
  [VB.NET] كيفية جلب مستند نصي من Resources الي Listbox e-coder 3 107 04-09-17, 07:28 AM
آخر رد: سعود
  [كود] كود لإظهار قيمة في TextBox حسب ما يقابلها من قيمة في combobox momiana1 7 5,104 02-09-17, 08:46 PM
آخر رد: ahmedgamal
  نقل عناصر listbox الى textbox بـــكوما مفصولة srca100050 13 336 26-08-17, 06:33 PM
آخر رد: سعود
Wink [مثال] فيديو طريق التعامل مع textbox في شكل إله حسابه alims 1 120 13-08-17, 10:52 PM
آخر رد: Amir_alzubidy

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


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