تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
نشر أيام الشهر داخل الداتاجريد فيو
#1
السلام عليكم اخواني الاعزاء ارجو منكم مساعدتي لاتمام هذا المشروع
اريد لما اختار اليوم من الكمبوبكس رقم 1 و اختار السنة من الكمبوبكس رقم 2 يتم نشر كل ايام الشهر الذي تم اختياره داخل الدتا جريد فيو .. طبعا قد تختلف الشهور من 28 أو 29 أو 30 أو 31 .. بهذي الكيفية مثل الصورة و لكم جزيل الشكر و بارك الله فيكم
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام

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




.zip   Calendar.zip (الحجم : 64.01 ك ب / التحميلات : 29)
الرد }}}
تم الشكر بواسطة: محمد خيري , محمد خيري
#3
شكرا استاذ عبد الله على المشروع لكني للم اعرف كيف احوله لتظهر ايام الشهر مثل الصورة يلي فوق .. جزاك الله كل الخير
الرد }}}
تم الشكر بواسطة:
#4
وضح اكثر
يعني ممكن تظهر بهذا الشكل تقصد ؟
   
الرد }}}
تم الشكر بواسطة: محمد خيري
#5
(04-11-22, 02:21 PM)عبدالله الدوسري كتب : وضح اكثر
يعني ممكن تظهر بهذا الشكل تقصد ؟

نعم أستاذ عبد الله اريدها تظهر ايام الشهر كلها بسطر واحد مثل الصورة تماما
الرد }}}
تم الشكر بواسطة:
#6
الأعضاء يساعدونك إن شاء الله الموضوع سهل
الرد }}}
تم الشكر بواسطة: محمد خيري
#7
السلام عليكم
اظن الكود التالى سيفى بالغرض 
كود :
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
الرد }}}
تم الشكر بواسطة: محمد خيري
#8
(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
شكرا جزيلا اخي بارك الله فيك و في والديك كلو تمام و الحمد لله
الرد }}}
تم الشكر بواسطة:
#9
إقتباس :http://vb4arb.com/vb/user-33068.html

السيد   الفاضل صاحب الموضوع
ممكن تتضع المثال بعد التعديل عليه
يلزمني جدا ومعرفتش انفذه
الرد }}}
تم الشكر بواسطة:
#10
(05-11-22, 11:30 PM)atefkhalf2004 كتب :
إقتباس :http://vb4arb.com/vb/user-33068.html

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] طريقة توسيط النص داخل اداة comboBox سمير1404 7 3,857 24-08-25, 01:01 PM
آخر رد: أبو خالد الشكري
  استدعاء من جدولين داخل اداه FlowLayoutPanel برجاء الافادة للضرورة جداً modymody300894 7 629 15-11-24, 11:02 AM
آخر رد: modymody300894
  كتابه عدد معين من الارقام داخل تيكست بوكس modymody300894 3 552 07-11-24, 09:15 PM
آخر رد: modymody300894
  ترتيب شجره الحسابات داخل الجريد فيو modymody300894 2 407 31-10-24, 12:27 PM
آخر رد: modymody300894
Exclamation [VB.NET] ممكن عمل كود لحفظ المكتوب داخل اداة TextBox الورد الصناعي 9 783 17-10-24, 11:43 PM
آخر رد: salamandal
  ارجو المساعدة في كود مقارنة عامود داخل الداتا جريد فيو alachk 11 1,076 11-08-24, 11:44 AM
آخر رد: alachk
  كيف اقوم بتحديث بيانات داخل Datagrid عبر Button moh61 5 461 28-06-24, 12:03 AM
آخر رد: Zuhare
  اعاني من بطئ بتحميل البيانات داخل الداتا جيرد يوجد لدي اكثر من 100 الف صف RADOS 1 578 11-06-24, 07:42 PM
آخر رد: غزة العزة
  [VB.NET] حفظ بيانات معروضة من جدولين داخل dgv مبرمج مسلم 0 439 09-06-24, 02:30 AM
آخر رد: مبرمج مسلم
  ماهي الطريقة الصحيحة والسريعة لجلب بيانات من قاعدة البيانات داخل Private Sub mohamedgadain61 22 1,352 08-06-24, 12:33 AM
آخر رد: mohamedgadain61

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


يقوم بقرائة الموضوع: