[العتيق]

يبدو أن المشكلة تكمن في كيفية تعيين القيمة المناسبة في الـ ComboBox1 بناءً على اليوم الذي يتم اختياره في DateTimePicker1. لنقم بإجراء بعض التعديلات على الكود لتصحيح المشكلة.أولاً، تأكد أن ComboBox1 يحتوي على عناصر الأيام بشكل صحيح (السبت، الأحد، ...). سنفترض أن ComboBox1 يحتوي على الأيام بترتيب صحيح من 0 إلى 6، حيث 0 يمثل الأحد، 1 يمثل الاثنين، وهكذا حتى 6 الذي يمثل السبت.ثانياً، سنقوم بتعديل دالة Geet4 لتعيين العنصر الصحيح في ComboBox1 مباشرة بناءً على اليوم الذي يتم اختياره من DateTimePicker1.إليك الكود المعدل

PHP كود :

Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
    ' احصل على اليوم الموافق للتاريخ المحدد في DateTimePicker1
    Dim dayOfWeek As Integer = DateTimePicker1.Value.DayOfWeek

    ' قم بتعيين اليوم الموافق في ComboBox1
    ComboBox1.SelectedIndex = dayOfWeek

    ' قم بتحديث TextBox1 بالنص الموجود في ComboBox1
    TextBox1.Text = ComboBox1.Text
End Sub 


لا حاجة لاستخدام دالة Geet4 في هذه الحالة، لأن تعيين العنصر المناسب في ComboBox1 يمكن تحقيقه مباشرة داخل الحدث DateTimePicker1_ValueChanged.تأكد أن ComboBox1 يحتوي على العناصر بالترتيب الصحيح (الأحد، الاثنين، ...، السبت). إذا كان الترتيب في ComboBox1 مختلفًا، عليك تعديل الكود ليتناسب مع الترتيب الموجود.على سبيل المثال، إذا كان الترتيب في ComboBox1 يبدأ بالسبت وينتهي بالجمعة، يمكنك تعديل الكود كالتالي

PHP كود :

Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
    ' احصل على اليوم الموافق للتاريخ المحدد في DateTimePicker1
    Dim dayOfWeek As Integer = DateTimePicker1.Value.DayOfWeek

    ' تعديل قيمة اليوم للحصول على الترتيب الصحيح في ComboBox1
    Dim comboBoxIndex As Integer = (dayOfWeek + 1) Mod 7

    ' قم بتعيين اليوم الموافق في ComboBox1
    ComboBox1.SelectedIndex = comboBoxIndex

    ' قم بتحديث TextBox1 بالنص الموجود في ComboBox1
    TextBox1.Text = ComboBox1.Text
End 


بهذا الشكل، يجب أن يتم عرض اليوم الصحيح في ComboBox1 بناءً على التاريخ الذي يتم اختياره في