منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] تعديل على كود وتقليص - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] تعديل على كود وتقليص (/showthread.php?tid=44613)

تعديل على كود وتقليص - aminesori - 22-12-22

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



كود :
       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


RE: تعديل على كود وتقليص - Taha Okla - 22-12-22

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

كل 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


RE: تعديل على كود وتقليص - aminesori - 27-12-22



RE: تعديل على كود وتقليص - Taha Okla - 27-12-22

 TypeOf (t1)

RE: تعديل على كود وتقليص - aminesori - 27-12-22

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

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

RE: تعديل على كود وتقليص - Taha Okla - 27-12-22

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

كود :
'Imports System.Web.UI.WebControls


RE: تعديل على كود وتقليص - aminesori - 27-12-22


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


RE: تعديل على كود وتقليص - Taha Okla - 27-12-22

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

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



كود :
'Imports System.Web.UI.WebControls