تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف يُمكن عرض خيارات داخل combobox بناء على ظهور شهر مُعين وسنة مُعين بأداةDatetimepi
#1
بسم الله الرحمن الرحيم

إخواني الكرام أود أن أعرض الخيارات داخل ال Combobox بناء على شرط مُعين مُرتبط بالشهر والسنة داخل أداة ال DatetimePicker، بمعنى إذا كنا في شهر سبتمبر 2018 سواء 1 سبتمبر أو 30 سبتمبر فتكون الخيارات الظاهرة في الcombobox هي :  أكتوبر 2018 - نوفمبر 2018 - ديسمبر 2018 ثم إذا دخلنا إلى شهر أكتوبر فيتم إزالة الشهر الحالي ويبدأ بعد ثلاث شهور جديدة، حاولت وبذلت جُهدي لتحقيق ذلك ولكن أحياناً يعمل الكود وأحياناً لا يعمل وخاصة لا يعمل في ظل اختيار الشهر الحالي، وهذا الكود الذي استخدمته، إذا كان منكم من عنده حلاً آخر فجزاكم الله خيراً.

PHP كود :
Public Class Form1

    
Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.ObjectByVal e As System.EventArgsHandles DateTimePicker1.ValueChanged



        DateTimePicker1
.Value Today
        Dim v 
As Integer
        Dim k 
As Integer

        v 
DateTimePicker1.Value.Month
        k 
DateTimePicker1.Value.Year

        
If "09" And "2018" Then
            ComboBox1
.Items.Add("10/2018")
            ComboBox1.Items.Add("11/2018")
            ComboBox1.Items.Add("12/2019")

        ElseIf "10" And "2018" Then
            ComboBox1
.Items.Remove("10/2018")
            ComboBox1.Items.Add("11/2018")
            ComboBox1.Items.Add("12/2018")
            ComboBox1.Items.Add("01/2019")

        End If


    End Sub
End 
Class 
عن أبي هريرة - رضي الله عنه - قال: قال رسول الله - صلى الله عليه وسلم -: ((كلمتان خفيفتان على اللسان، ثقيلتان في الميزان، حبيبتان إلى الرحمن: سبحان الله وبحمده، سبحان الله العظيم))؛ متفق عليه.

الرد
تم الشكر بواسطة: elgokr
#2
تفضل جرب هذا الكود .

كود :
Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
       Dim v As Integer = 0
       Dim k As Integer = 0
       v = DateTimePicker1.Value.Month
       k = DateTimePicker1.Value.Year
       ComboBox1.Items.Clear()
       For i As Integer = 0 To 2
           v += 1
           If v > 12 Then
               v = 1
               k = k + 1
           End If
           ComboBox1.Items.Add(v & "/" & k)
       Next
   End Sub

سبحان الله وبحمده و الحمد لله ولا اله الا الله والله اكبر
الرد
تم الشكر بواسطة: elgokr , elgokr , Hazem1 , Hazem1 , 911
#3
(14-09-18, 12:53 AM)asemshahen5 كتب : تفضل جرب هذا الكود .

كود :
Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
       Dim v As Integer = 0
       Dim k As Integer = 0
       v = DateTimePicker1.Value.Month
       k = DateTimePicker1.Value.Year
       ComboBox1.Items.Clear()
       For i As Integer = 0 To 2
           v += 1
           If v > 12 Then
               v = 1
               k = k + 1
           End If
           ComboBox1.Items.Add(v & "/" & k)
       Next
   End Sub

جزاك الله خيراً أخي الكريم  Heart نجحت فكرتك والشكر لله ثُم لك ، لي استفسار يسير لأن هذا الأمر سيحل مشكلة كبيرة بالنسبة لي في هذه الجُزئية : هل يُمكن إضافة الصفر ( 0 ) بحيث يكون شكل الأشهر 01 - 02 إلى 09 ؟
عن أبي هريرة - رضي الله عنه - قال: قال رسول الله - صلى الله عليه وسلم -: ((كلمتان خفيفتان على اللسان، ثقيلتان في الميزان، حبيبتان إلى الرحمن: سبحان الله وبحمده، سبحان الله العظيم))؛ متفق عليه.

الرد
تم الشكر بواسطة: elgokr
#4
لأنه مع الأسف عند البحث عن شهر 1 يجلب معه شهر 11 وعند البحث عن شهر 2 يجلب معه شهر 12 فضلاً عن ضرورة تغيير كافة أشكال الشهور المـدخلة مُسبقاً بالشكل 01، فوددت هذه الإضافة 01 - 02 وجزاكم الرحمن الجنة.
عن أبي هريرة - رضي الله عنه - قال: قال رسول الله - صلى الله عليه وسلم -: ((كلمتان خفيفتان على اللسان، ثقيلتان في الميزان، حبيبتان إلى الرحمن: سبحان الله وبحمده، سبحان الله العظيم))؛ متفق عليه.

الرد
تم الشكر بواسطة: elgokr
#5
كود :
ComboBox1.Items.Add(v.ToString("00") & "/" & k)
الرد
تم الشكر بواسطة: Hazem1 , asemshahen5 , elgokr
#6
(15-09-18, 02:00 AM)911 كتب :
كود :
ComboBox1.Items.Add(v.ToString("00") & "/" & k)

جزاك الله خيراً أخي الكريم، سأقوم بتطبيق الكود غداً إن شاء الله وأتمنى أن يحل هذه المشكلة.
عن أبي هريرة - رضي الله عنه - قال: قال رسول الله - صلى الله عليه وسلم -: ((كلمتان خفيفتان على اللسان، ثقيلتان في الميزان، حبيبتان إلى الرحمن: سبحان الله وبحمده، سبحان الله العظيم))؛ متفق عليه.

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ظهور رساله ازعجتنى فى مشروع مصمم بال vb.net خالد كامل1 6 156 20-02-19, 03:44 PM
آخر رد: elgokr
  [VB.NET] ظهور رسالة خطأ Ahmed Alkuiady 6 169 16-02-19, 06:10 PM
آخر رد: princelovelorn
  [Acces2007] كيف يمكن استخدام اداة WebBrowser4 داخل الاكسز بدون حفظ الروابط المستخدمة على الجهاز come2playati 0 44 05-02-19, 09:04 PM
آخر رد: come2playati
  مطلوب عرض تفاصيل بيانات داخل Texbox عن طريق ListView ... احتاج كود استعلام mohamedgadain61 9 274 30-01-19, 06:42 AM
آخر رد: حريف برمجة
  هل يُمكن إدراج شاشة تحميل تتزامن مع استكمال ظهور جميع أدوات المشروع؟ Hazem1 11 433 23-01-19, 02:54 PM
آخر رد: elgokr
  [سؤال] استعمال ComboBox عدة مرات ومن نفس المصدر كريم جودي 3 407 19-01-19, 02:45 PM
آخر رد: alsouf
  كيف يُمكن تزامن ال Progress bar مع ظهور نافذة الطباعة؟ Hazem1 1 146 18-01-19, 09:29 AM
آخر رد: Hazem1
  [سؤال] كيف امسح حرف او حرفين من داخل تيكست dametucorazon 2 107 12-01-19, 08:43 PM
آخر رد: حريف برمجة
  [VB.NET] أضافه فورم داخل فورم بدون كود أستفسار adel27 21 3,172 10-01-19, 02:38 AM
آخر رد: taregmusa
  [سؤال] كيفية البحث داخل حقل تيكست عن كلمة بداخله والمقارنة dametucorazon 3 226 09-01-19, 11:29 AM
آخر رد: dametucorazon

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


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