تنفيذ الايعازات على مجموعة ادوات

بدأه mkyh86 في 3 سبتمبر 2013 · 2 رد · 500 مشاهدة · في Microsoft Visual Basic.NET

#13 سبتمبر 2013 في 19:01 صاحب الموضوع

السلام عليكم

ارجو مساعدتي في حل مشكلة عند تنفيذ ايعاز على مجموعة من الادوات لا تستجيب على سبيل المثال مسح محتوي صندوق النص بالشفرة التالية

For Each ct As Control In Me.Controls

If TypeOf ct Is TextBox Then

CType(ct, TextBox).Clear()

End If

البرنامج لا يتسجيب لهذه الشفرة وتبقى محتويات الصندوق

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

#23 سبتمبر 2013 في 23:06

استخدم هذه الدالة

Public Sub ClearTextBox(ByVal root As Control)

For Each ctrl As Control In root.Controls

ClearTextBox(ctrl)

If TypeOf ctrl Is TextBox Then

CType(ctrl, TextBox).Text = String.Empty

End If

Next ctrl

End Sub

واستعديها

ClearTextBox(Me)

#34 سبتمبر 2013 في 03:43

اجعلها تساوي ""

textbpx1.text="";

عدد الزوار حالياً