الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال حول ال Loops المتقدمة

بدأه dvd_besoo في 29 مايو 2009 · 6 رد · 682 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

هل يمكنننى عمل لووب على الكونترولز بحيث اقدر انفذ كود معين عليهم كلهم

مثلا انى أفرغ محتويات تكست بوكس

for i = 0 to me.controls

me.control(i).text = ""

شئ مثل هذا انا سمعت انه فى الدوت نت ممكن عمل شئ مثل هذا

شاكرين الأفضال مقدما

#4 
		Dim Dvd As Control
		For Each Dvd In Me.Controls
			If TypeOf Dvd Is TextBox Then
				Dvd.Text = ""
			End If
		Next

فعلا شئ رائع بس لما باجى اضعها فى موديول بيعترض على Me.Controls

لو عندك حل باصيلى

ميرسى يا مان

#5 
Private Sub GetControls (FormName as object )

Dim Dvd As Control
		For Each Dvd In FormName.Controls
			If TypeOf Dvd Is TextBox Then
				Dvd.Text = ""
			End If
		Next

end sub

we Call el Sub Keda maslan

Call GetControls (form1)

تم تعديل هذه المشاركة بواسطة kazabra في 30 مايو 2009 في 03:12

#6

بارك الله فيكم جميعاً

ماذا لو اردنا ان نقوم بتفريغ MaskedTextBox و CheckBox و TextBox دفعة واحدة من علي الفورم

سيصبح الكود كالتالي وسنضعة في Module

  1.  
  2. Public Sub ClearAll(ByVal C As Control)
  3.  
  4.         Dim Ctrl As Control 'Declare generic control object
  5.         Dim MyCheckBox As CheckBox 'Declare CheckBox control object
  6.         For Each Ctrl In C.Controls
  7.             Select Case TypeName(Ctrl)
  8.                 Case "TextBox" 'Do the following code if control is a Text Box
  9.                     Ctrl.Text = ""
  10.                 Case "MaskedTextBox" 'Do the following code if control is a Masked Text Box
  11.                     Ctrl.Text = ""
  12.                 Case "CheckBox" 'Do the following code if control is a Check Box
  13.                     MyCheckBox = CType(Ctrl, CheckBox) 'Use here as generic control type
  14.                     MyCheckBox.Checked = False         'Ctrl doesn’t have Checked property
  15.                 Case Else
  16.                     If Ctrl.Controls.Count > 0 Then 'Check for container control
  17.                         ClearAll(Ctrl) 'Recursively call sub for controls in container
  18.                     End If
  19.             End Select
  20.         Next Ctrl
  21.     End Sub
  22.  
  23.  
  24.  
ويتم استدعاء الدالة من داخل اي فورم عن طريق هذا الكود
  1. ClearAll(Me)
  2.  
  3.  
  4.  


      
تم تعديل هذه المشاركة بواسطة محمد فؤاد تركي في 30 مايو 2009 في 14:13 — السبب: تنسيق

      

      
certifiedj.jpg
 
 
Image Hosted by ImageShack.us

    

  

    
    
    
 مواضيع مشابهة