منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الصفحات : 1 2

السلام عليكم

اريد هذا المشروع مثلا اضافة ملف txt يحتوي على حكم بالتنسيق هذا

يموت الجبناء مراراً ويموت الشجعان مرة
يوليوس قيصر

الجبان يهدد إذا شعر بالأمان
جوهان ولفجانج جوته

أفضل أن تموت عن أن تموت من الخوف
روبرت سورتيس

اريد انا يقوم بعرض الحكمه مع القائل - يعني يعرض السطر الاول ويعرض السطر الثاني في تكست بوكس ويتجاهل السطر الثالث الفراغ الفاضي

كذلك عند الضغط على عشوائي يختار حكمه عشوائيه من listbox ويقوم بعرضها في textbox مع القائل

وعند الضغط على ترتيب يختار الحكمه التاليه وليست عشوائي

ارفق المشروع للتعديل افضل

وشكرا

المشروع بالمرفقات مع ملف txt يحتوي على حكم

المطلوب عرض الحكمه مع القائل يعني يعرض سطرين في textbox ويتجاهل السطر الفاضي

لانه لدي ملف txt يحتوي على حكم كبيره لكن بالترتيب هذا

يموت الجبناء مراراً ويموت الشجعان مرة
يوليوس قيصر

الجبان يهدد إذا شعر بالأمان
جوهان ولفجانج جوته

أفضل أن تموت عن أن تموت من الخوف
روبرت سورتيس

اضف هذا الكود

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 

بعد اذن الاخوان

تم تعديل على المشروع

في المرفقات

مببببببببدع اخوي حسين ضبطت عالترتيب فقط

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

ياليت تعمل لي زر عشوائي كذلك - يأتي بحكمه عشوائيه مع القائل

(07-03-16, 07:05 AM)khodor1985 كتب : [ -> ]الله يعطيك العافية يا أخي حسان

الله يعافيك يا اخي

(07-03-16, 04:27 AM)الـ ـجارح كتب : [ -> ]مببببببببدع اخوي حسين ضبطت عالترتيب فقط

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

ياليت تعمل لي زر عشوائي كذلك - يأتي بحكمه عشوائيه مع القائل

تم التعديل على زر عشوائي

المشروع في المرفقات

شكرا لكم

الف شكرررررررررر لك يامبدع الان 100 %

اخوي حسين طرت في بالي فكره سويت مشروع كا مثال لها - هل يمكن تطبيقها ؟

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

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

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

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

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

(09-03-16, 08:33 AM)الـ ـجارح كتب : [ -> ]اخوي حسين طرت في بالي فكره سويت مشروع كا مثال لها - هل يمكن تطبيقها ؟

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

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

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

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

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

العفووووووووووو يا اخي

الي انت تطلبه يحتاج له امر Select Case او if وهاذا يطلب تحديد الاشعار والقائلين في الكود البرمجي

لان لو تلاحظ في الاكواد الي سويته لك هو يحدد الشعر وحدد الاسم الي تحته

اما الان وش يعرف البرنامج ان هاذا الشعر لهاذا الشاعر وهم في اكثر مين ليست بوكس

شكرا لك

الصفحات : 1 2

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الـ ـجارح

hassan

الـ ـجارح

HASAN6.0

hassan

الـ ـجارح

hassan

الـ ـجارح

الـ ـجارح

hassan