دخول

**aminesori** · 22-12-22, 03:38 PM

السلام عليكم ممكن محترف تقليص كود هدا

كود :

       Dim grd As Double = CDbl(TextBox7.Text)

        If grd = 1 Then

            TextBox2.Visible = False

            TextBox3.Visible = False

            TextBox4.Visible = False

            TextBox5.Visible = False

            TextBox1.Text = Today.AddMonths(1)

        ElseIf grd = 2 Then

            TextBox3.Visible = False

            TextBox4.Visible = False

            TextBox5.Visible = False

            TextBox1.Text = Today.AddMonths(1)

            TextBox2.Text = Today.AddMonths(2)

        ElseIf grd = 3 Then

            TextBox4.Visible = False

            TextBox5.Visible = False

            TextBox1.Text = Today.AddMonths(1)

            TextBox2.Text = Today.AddMonths(2)

            TextBox3.Text = Today.AddMonths(3)

        ElseIf grd = 4 Then

            TextBox5.Visible = False

            TextBox1.Text = Today.AddMonths(1)

            TextBox2.Text = Today.AddMonths(2)

            TextBox3.Text = Today.AddMonths(3)

            TextBox4.Text = Today.AddMonths(4)

        ElseIf grd = 5 Then

            TextBox1.Text = Today.AddMonths(1)

            TextBox2.Text = Today.AddMonths(2)

            TextBox3.Text = Today.AddMonths(3)

            TextBox4.Text = Today.AddMonths(4)

            TextBox5.Text = Today.AddMonths(5)

        End If

دخول
إسم المستخدم
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة

المواضيع المحتمل أن تكون متشابهة .
الموضوع :		الكاتب	الردود :	المشاهدات :	آخر رد
	[VB.NET] مساعدة تعديل على الكود	ZEEN4ZEEN	2	218	08-10-25, 02:20 PM آخر رد: salamandal
	تعديل كود تحديث البيانات	مصمم هاوي	1	790	26-04-25, 06:07 PM آخر رد: مصمم هاوي
	تعديل على استدعاء الدرجات حسب الاختيار	مصمم هاوي	11	1,016	15-04-25, 06:16 PM آخر رد: princelovelorn
	ارجو تعديل الكود بواستطة الاجراء المخزن	new_programer	3	680	03-04-25, 02:44 PM آخر رد: princelovelorn
	تعديل مسار مكان حفظ النسخة الاحتياطية	مصمم هاوي	6	827	02-03-25, 01:06 PM آخر رد: atefkhalf2004
	محتاج تعديل على كود الحذف	new_programer	2	655	17-02-25, 06:50 PM آخر رد: new_programer
	ارجو تعديل الكود جلب البيانات عن طريق اجراء مخزن - مرفق مثال	new_programer	0	625	05-02-25, 01:51 AM آخر رد: new_programer
	طلب تعديل كود جلب اسم الملف ومساره	مصمم هاوي	4	548	25-01-25, 12:45 AM آخر رد: مصمم هاوي
	تعديل كود الحذف	مصمم هاوي	2	491	10-01-25, 03:03 PM آخر رد: عبد العزيز البسكري
	تعديل حجم ورق الطابعة برمجيا	kmar12	1	355	21-12-24, 02:36 PM آخر رد: aljzazy