منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة الفيجوال بيسك VB.NET > قسم اسئلة VB.NET > تعديل على كود وتقليص
نسخة كاملة : تعديل على كود وتقليص
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

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

Taha Okla

22-12-22, 06:29 PM
وعليكم السلام ورحمة الله وبركاته

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

27-12-22, 01:31 PM

Taha Okla

27-12-22, 02:01 PM
 TypeOf (t1)

aminesori

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

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

Taha Okla

27-12-22, 02:05 PM
فوق عند تعريف واستيراد المكتبات البرمجية
عطل المكتبة التالية :

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

aminesori

27-12-22, 02:22 PM

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

Taha Okla

27-12-22, 02:29 PM
اذهب لأعلى نافذة الاكواد لديك (الأسطر الأولى) :

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



كود :
'Imports System.Web.UI.WebControls
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة الفيجوال بيسك VB.NET > قسم اسئلة VB.NET > تعديل على كود وتقليص