أعتذر لصاحب الأعلان
عندي أستفسار داخل التكست بكس
إذا ضغطت أنتر يقوم بحذف النص عندي ما يقارب 80 تكست بكس كيف أحل المشكله بطريقه ميسره وشكراً
أكرر أعتذاري
(02-11-15, 01:27 AM)أبو فيصل كتب : [ -> ]أعتذر لصاحب الأعلان
عندي أستفسار داخل التكست بكس
إذا ضغطت أنتر يقوم بحذف النص عندي ما يقارب 80 تكست بكس كيف أحل المشكله بطريقه ميسره وشكراً
أكرر أعتذاري
قم بعمل موضوع عشان نقدر نتناقش في استفسارك
(02-11-15, 01:27 AM)أبو فيصل كتب : [ -> ]أعتذر لصاحب الأعلان
عندي أستفسار داخل التكست بكس
إذا ضغطت أنتر يقوم بحذف النص عندي ما يقارب 80 تكست بكس كيف أحل المشكله بطريقه ميسره وشكراً
أكرر أعتذاري
كود :
For Each txt As Control In Me.Controls
If TypeOf txt Is TextBox Then
txt.Text = String.Empty
End If
Next
خذ راحتك وسبحان الله أحتاج الكود
لو التكست بوكس كلها موجودة داخل الفورم مباشرة هنا تستطيع أن تستخدم الكود الذي تفضل الاخ حريف برمجة بكتابته
لكن لو كانت بعض من التكست بوكس موجودة داخل الفورم و البعض الأخر موجود داخل Panel او داخل GruoupBox عليك أن تضيف الكود التالي الي الفورم لتجد جميع التكست بوكس الموجودة علي الفورم او علي اي كونترول اخر داخل الفورم
كود :
' This Method will detect contols only and components will not detected
Friend Shared Sub FindControls(ctrlContainer As Control, controls As HashSet(Of Control))
If ctrlContainer Is Nothing Then
Return
End If
For Each ctrl As Control In ctrlContainer.Controls
controls.Add(ctrl)
' If the control has hildren, recursively call this Method
If ctrl.HasChildren Then
FindControls(ctrl, controls)
End If
Next
End Sub
' This Function will return contols only and components will not be returned
Friend Shared Function GetControls(list As ICollection, ctrlContainer As Control) As HashSet(Of Control)
If list Is Nothing OrElse ctrlContainer Is Nothing Then
Return Nothing
End If
Dim controls As HashSet(Of Control) = New HashSet(Of Control)()
For Each ctrl As Control In list
controls.Add(ctrl)
FindControls(ctrlContainer, controls)
Next
Return controls
End Function
و لحذف جميع التكست من حميع التكست بوكس يمكنك أن تستخدم الكود التالي
كود :
For Each ctrl As Control In GetControls(Me.Controls)
If TypeOf ctrl Is TextBox Then
ctrl.Text = ""
End If
Next
وضعت كود حريف
دبـل كليك على التسكست ثم وضعت الكود
النتيجه = لا يكتب شـي
أتمنى أنكم توضحون أين نضع هذه الأكواد أول مره نتعامل معاها
مشـكورين حفظكم الله
أبو فيصل
النسخ واللصق دون فهم الكود راح يتسبب في ظهور مشاكل
بداية عندما تقوم بدبل كلك على التكست راح يفتح لك محرر الكود على حدث
تغير النص في التكست بوكس
يعني اي حرف اي نقطة تضيفها للتكست راح تتمسح بشكل تلقائي بما انك اضف الكود ا‘لاه
يلزمك تختار حديث آخر وتعمل كوندشن اذا توفر تقوم بمسح كل النصوص من جميع التكستات
بالتوفيق
ممتاز يابو عمر
تفضل أشرح لنا الطريقه