[aminesori]

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

كود :

       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

[Taha Okla]

وعليكم السلام ورحمة الله وبركاته

كل TextBox من الـ TextBox التي تريد أن ينطبق عليها الكود حول اسمها إلى الاسم  (txtBox) مع رقمها 
أي : (txtBox1) - (txtBox2)  و هكذا  ..  (txtBox5) أو حتى لأي رقم كان..

و أي TextBox آخر لا تريد أن ينطبق عليه هذا الكود لا تغير اسمه ..

ثم استخدم هذا الكود..

كود :

       Dim grd As Double = CDbl(TextBox7.Text)

       For Each t1 As Control In Me.Controls
           If TypeOf (t1) Is TextBox Then
               If (Mid(t1.Name, 1, Len("txtBox")) = "txtBox") Then t1.Visible = False
               For i = 1 To grd
                   If t1.Name = "txtBox" & i Then
                       t1.Visible = True
                       t1.Text = Today.AddMonths(i)
                   End If
               Next
           End If
       Next

[aminesori]

[Taha Okla]

 TypeOf (t1)

[aminesori]

(27-12-22, 02:01 PM)Taha Okla كتب :  TypeOf (t1)

نعم لقد جربت نفس المشكل

[Taha Okla]

فوق عند تعريف واستيراد المكتبات البرمجية
عطل المكتبة التالية :

كود :

'Imports System.Web.UI.WebControls

[aminesori]

---

شكرا لك على المتابعة لقد تم حل المشكل 

[Taha Okla]

اذهب لأعلى نافذة الاكواد لديك (الأسطر الأولى) :

عطل الكود التالي (أو أمسحه - أعمل له حذف - ديليت -- Delete):

كود :

'Imports System.Web.UI.WebControls