تقييم الموضوع :
  • 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
اخوي حسين طرت في بالي فكره سويت مشروع كا مثال لها - هل يمكن تطبيقها ؟

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

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

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

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] سؤال في TextBox e-coder 0 0 18-02-18, 06:54 PM
آخر رد: e-coder
  [سؤال] تفعيل خاصية TextChanged للبحث عن عناصر listbox & وتفعيل زر Enter waelalmsry75 2 101 12-01-18, 07:58 PM
آخر رد: waelalmsry75
  كيف يتم اظهار كلمة مدين اذاكان المبلغ موجب ودائن اذا كان المبلغ سالب بجوار Textbox السيد الجوهري 1 91 08-01-18, 02:06 PM
آخر رد: nooralcown
  كيفية ادراج ذر داخل textbox محمود صالح 1 75 01-01-18, 04:19 PM
آخر رد: طالب برمجة
  تعبئة textbox by select data from dropdownlist Marwan9990 8 202 26-12-17, 03:26 PM
آخر رد: حريف برمجة
Exclamation [VB.NET] مشكلة بسيطة في طباعة Textbox CoderMM 1 96 12-12-17, 09:54 PM
آخر رد: طالب برمجة
  تمرير الداتا من TextBox الي RichBox khaled12345 6 129 04-12-17, 11:59 PM
آخر رد: khaled12345
  تغير لون ال ListBox Forecolor تحت شرط khaled12345 3 92 03-12-17, 05:26 PM
آخر رد: alsouf
  نقل محتويات الداتاقريدفيو الى textbox في الكرستال ريبورت جيولوجي مبتدئ 0 82 26-11-17, 12:35 PM
آخر رد: جيولوجي مبتدئ
  [VB.NET] سؤال :- بخصوص ال textbox dubai.eig 6 137 21-11-17, 06:29 PM
آخر رد: dubai.eig

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


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