السلام عليكم اخواني الاعزاء ارجو منكم مساعدتي لاتمام هذا المشروع
اريد لما اختار اليوم من الكمبوبكس رقم 1 و اختار السنة من الكمبوبكس رقم 2 يتم نشر كل ايام الشهر الذي تم اختياره داخل الدتا جريد فيو .. طبعا قد تختلف الشهور من 28 أو 29 أو 30 أو 31 .. بهذي الكيفية مثل الصورة و لكم جزيل الشكر و بارك الله فيكم
شكرا استاذ عبد الله على المشروع لكني للم اعرف كيف احوله لتظهر ايام الشهر مثل الصورة يلي فوق .. جزاك الله كل الخير
(04-11-22, 02:21 PM)عبدالله الدوسري كتب : [ -> ]وضح اكثر
يعني ممكن تظهر بهذا الشكل تقصد ؟
نعم أستاذ عبد الله اريدها تظهر ايام الشهر كلها بسطر واحد مثل الصورة تماما
الأعضاء يساعدونك إن شاء الله الموضوع سهل
السلام عليكم
اظن الكود التالى سيفى بالغرض
كود :
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
شكرا جزيلا اخي بارك الله فيك و في والديك كلو تمام و الحمد لله
(05-11-22, 11:30 PM)atefkhalf2004 كتب : [ -> ]إقتباس :http://vb4arb.com/vb/user-33068.html
السيد الفاضل صاحب الموضوع
ممكن تتضع المثال بعد التعديل عليه
يلزمني جدا ومعرفتش انفذه
و الله اخي ما في اي مشروع فقط ضع الادوات التالية على الفورم
كومبوبوكس 1 و عبئه بالأرقام من 1 الى 12
كومبوبوكس 2 و عبئه بالسنوات مثل ما تريد 2022 - 2023 - 2024 - 2025 كمثال
ضع زر أمر على الفورم
وانسخ الكود الذي وضعه الاخ الكريم فقط و كل تمام