+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] عرض سطرين من listbox ووضعهم في textbox (/showthread.php?tid=14989)
الصفحات:
1
2
عرض سطرين من listbox ووضعهم في textbox - الـ ـجارح - 05-03-16
السلام عليكم
اريد هذا المشروع مثلا اضافة ملف txt يحتوي على حكم بالتنسيق هذا
يموت الجبناء مراراً ويموت الشجعان مرة
يوليوس قيصر
الجبان يهدد إذا شعر بالأمان
جوهان ولفجانج جوته
أفضل أن تموت عن أن تموت من الخوف
روبرت سورتيس
اريد انا يقوم بعرض الحكمه مع القائل - يعني يعرض السطر الاول ويعرض السطر الثاني في تكست بوكس ويتجاهل السطر الثالث الفراغ الفاضي
كذلك عند الضغط على عشوائي يختار حكمه عشوائيه من listbox ويقوم بعرضها في textbox مع القائل
وعند الضغط على ترتيب يختار الحكمه التاليه وليست عشوائي
RE: عرض سطرين من listbox ووضعهم في textbox - hassan - 05-03-16
ارفق المشروع للتعديل افضل
وشكرا
RE: عرض سطرين من listbox ووضعهم في textbox - الـ ـجارح - 06-03-16
المشروع بالمرفقات مع ملف txt يحتوي على حكم
المطلوب عرض الحكمه مع القائل يعني يعرض سطرين في textbox ويتجاهل السطر الفاضي
لانه لدي ملف txt يحتوي على حكم كبيره لكن بالترتيب هذا
يموت الجبناء مراراً ويموت الشجعان مرة
يوليوس قيصر
الجبان يهدد إذا شعر بالأمان
جوهان ولفجانج جوته
أفضل أن تموت عن أن تموت من الخوف
روبرت سورتيس
RE: عرض سطرين من listbox ووضعهم في textbox - HASAN6.0 - 06-03-16
اضف هذا الكود
PHP كود :
Private Sub ListBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 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
RE: عرض سطرين من listbox ووضعهم في textbox - hassan - 06-03-16
بعد اذن الاخوان
تم تعديل على المشروع
في المرفقات
RE: عرض سطرين من listbox ووضعهم في textbox - الـ ـجارح - 07-03-16
مببببببببدع اخوي حسين ضبطت عالترتيب فقط
لما اضغط ترتيب فعلا يظهر لي سطرين - اريد عند الضغط على عشوائي يأتي بحكمه عشوائيه مع القائل
ياليت تعمل لي زر عشوائي كذلك - يأتي بحكمه عشوائيه مع القائل
RE: عرض سطرين من listbox ووضعهم في textbox - hassan - 07-03-16
(07-03-16, 07:05 AM)khodor1985 كتب : الله يعطيك العافية يا أخي حسان
الله يعافيك يا اخي
(07-03-16, 04:27 AM)الـ ـجارح كتب : مببببببببدع اخوي حسين ضبطت عالترتيب فقط
لما اضغط ترتيب فعلا يظهر لي سطرين - اريد عند الضغط على عشوائي يأتي بحكمه عشوائيه مع القائل
ياليت تعمل لي زر عشوائي كذلك - يأتي بحكمه عشوائيه مع القائل
تم التعديل على زر عشوائي
المشروع في المرفقات
شكرا لكم
RE: عرض سطرين من listbox ووضعهم في textbox - الـ ـجارح - 09-03-16
الف شكرررررررررر لك يامبدع الان 100 %
RE: عرض سطرين من listbox ووضعهم في textbox - الـ ـجارح - 09-03-16
اخوي حسين طرت في بالي فكره سويت مشروع كا مثال لها - هل يمكن تطبيقها ؟
مثلا اضيف قائمة القائلين - لنفرض
هتلر
شكسبير
طاغور
وكل شخص اضيف له حكمه واقواله وصوره له او مجموعة صور
وعند الضغط على عشوائي يأتي بحكمه عشوائيه من قائمة القائلون مع عرض صورته في بيكتشر بوكس
مثل اضغط على عشوائي يأتي بحكمه عشوائيه لشكسبير مع صورته اضغط عشوائي مره اخرى يأتي بحكمه لهتلر مع صورة هتلر
هذا مثال للمطلوب - هل ذلك ممكن ؟ مع اضافة اشياء بسيطه مثل مسح حكمه او مسح قائل الخ ...
RE: عرض سطرين من listbox ووضعهم في textbox - hassan - 09-03-16
(09-03-16, 08:33 AM)الـ ـجارح كتب : اخوي حسين طرت في بالي فكره سويت مشروع كا مثال لها - هل يمكن تطبيقها ؟العفووووووووووو يا اخي
مثلا اضيف قائمة القائلين - لنفرض
هتلر
شكسبير
طاغور
وكل شخص اضيف له حكمه واقواله وصوره له او مجموعة صور
وعند الضغط على عشوائي يأتي بحكمه عشوائيه من قائمة القائلون مع عرض صورته في بيكتشر بوكس
مثل اضغط على عشوائي يأتي بحكمه عشوائيه لشكسبير مع صورته اضغط عشوائي مره اخرى يأتي بحكمه لهتلر مع صورة هتلر
هذا مثال للمطلوب - هل ذلك ممكن ؟ مع اضافة اشياء بسيطه مثل مسح حكمه او مسح قائل الخ ...
الي انت تطلبه يحتاج له امر Select Case او if وهاذا يطلب تحديد الاشعار والقائلين في الكود البرمجي
لان لو تلاحظ في الاكواد الي سويته لك هو يحدد الشعر وحدد الاسم الي تحته
اما الان وش يعرف البرنامج ان هاذا الشعر لهاذا الشاعر وهم في اكثر مين ليست بوكس
شكرا لك