[محمد خيري]

السلام عليكم اخواني الاعزاء ارجو منكم مساعدتي لاتمام هذا المشروع
اريد لما اختار اليوم من الكمبوبكس رقم 1 و اختار السنة من الكمبوبكس رقم 2 يتم نشر كل ايام الشهر الذي تم اختياره داخل الدتا جريد فيو .. طبعا قد تختلف الشهور من 28 أو 29 أو 30 أو 31 .. بهذي الكيفية مثل الصورة و لكم جزيل الشكر و بارك الله فيكم

[عبدالله الدوسري]

وعليكم السلام

هذا مشروع من الإنترنت يمكن تستفيد منه
   




  Calendar.zip (الحجم : 64.01 ك ب / التحميلات : 29)

[محمد خيري]

شكرا استاذ عبد الله على المشروع لكني للم اعرف كيف احوله لتظهر ايام الشهر مثل الصورة يلي فوق .. جزاك الله كل الخير

[عبدالله الدوسري]

وضح اكثر
يعني ممكن تظهر بهذا الشكل تقصد ؟
   

[محمد خيري]

(04-11-22, 02:21 PM)عبدالله الدوسري كتب : وضح اكثر
يعني ممكن تظهر بهذا الشكل تقصد ؟

نعم أستاذ عبد الله اريدها تظهر ايام الشهر كلها بسطر واحد مثل الصورة تماما

[عبدالله الدوسري]

الأعضاء يساعدونك إن شاء الله الموضوع سهل

[barawy]

السلام عليكم
اظن الكود التالى سيفى بالغرض 

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       Dim MyDay() As String = {"الأحد", "الأثنين", "الثلاثاء", "الأربعاء", "الخميس", "الجمعة", "السبت"}

       If ComboBox1.Text <> Nothing And ComboBox2.Text <> Nothing Then

           Dim D1 As Date = DateValue("1/" & ComboBox1.Text & "/" & ComboBox2.Text)
           Dim D2 As Date

           If Val(ComboBox1.Text) < 12 Then
               D2 = DateValue("1/" & Val(ComboBox1.Text) + 1 & "/" & ComboBox2.Text)
           Else
               D2 = DateValue("1/" & "1" & "/" & Val(ComboBox2.Text) + 1)
           End If

           Dim J As Long = DateDiff(DateInterval.Day, D1, D2)

           If DataGridView1.Columns.Count > 0 Then
               DataGridView1.Columns.Clear()
           End If
           Dim mRow(J) As String

           For i = 1 To J
               D2 = DateValue(i & "/" & ComboBox1.Text & "/" & ComboBox2.Text)
               DataGridView1.Columns.Add("Col" & i, MyDay(Val(D2.DayOfWeek)))
               mRow(i - 1) = i & "/" & ComboBox1.Text
           Next

           DataGridView1.Rows.Add(mRow)

       Else
           MsgBox("من فضلك قم باختيار الشهر والسنة")
       End If


   End Sub

[محمد خيري]

(05-11-22, 04:49 PM)barawy كتب : السلام عليكم
اظن الكود التالى سيفى بالغرض 

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       Dim MyDay() As String = {"الأحد", "الأثنين", "الثلاثاء", "الأربعاء", "الخميس", "الجمعة", "السبت"}

       If ComboBox1.Text <> Nothing And ComboBox2.Text <> Nothing Then

           Dim D1 As Date = DateValue("1/" & ComboBox1.Text & "/" & ComboBox2.Text)
           Dim D2 As Date

           If Val(ComboBox1.Text) < 12 Then
               D2 = DateValue("1/" & Val(ComboBox1.Text) + 1 & "/" & ComboBox2.Text)
           Else
               D2 = DateValue("1/" & "1" & "/" & Val(ComboBox2.Text) + 1)
           End If

           Dim J As Long = DateDiff(DateInterval.Day, D1, D2)

           If DataGridView1.Columns.Count > 0 Then
               DataGridView1.Columns.Clear()
           End If
           Dim mRow(J) As String

           For i = 1 To J
               D2 = DateValue(i & "/" & ComboBox1.Text & "/" & ComboBox2.Text)
               DataGridView1.Columns.Add("Col" & i, MyDay(Val(D2.DayOfWeek)))
               mRow(i - 1) = i & "/" & ComboBox1.Text
           Next

           DataGridView1.Rows.Add(mRow)

       Else
           MsgBox("من فضلك قم باختيار الشهر والسنة")
       End If


   End Sub

شكرا جزيلا اخي بارك الله فيك و في والديك كلو تمام و الحمد لله

[atefkhalf2004]

إقتباس :http://vb4arb.com/vb/user-33068.html

السيد   الفاضل صاحب الموضوع
ممكن تتضع المثال بعد التعديل عليه
يلزمني جدا ومعرفتش انفذه

[محمد خيري]

(05-11-22, 11:30 PM)atefkhalf2004 كتب :

إقتباس :http://vb4arb.com/vb/user-33068.html

السيد   الفاضل صاحب الموضوع
ممكن تتضع المثال بعد التعديل عليه
يلزمني جدا ومعرفتش انفذه

و الله اخي ما في اي مشروع فقط ضع الادوات التالية على الفورم
كومبوبوكس 1 و عبئه بالأرقام من 1 الى 12
كومبوبوكس 2 و عبئه بالسنوات مثل ما تريد 2022 - 2023 - 2024 - 2025 كمثال
ضع زر أمر على الفورم 
وانسخ الكود الذي وضعه الاخ الكريم فقط و كل تمام