تأكيد ملئ المستخدم لكافة البيانات

يقوم هذا الكود بفحص الادوات على الفورم مباشرة لكن اذا كانت في داخل اداة اخرى مثل Groupbox فلا يقوم بذلك

TareqVB كتب:

يقوم هذا الكود بفحص الادوات على الفورم مباشرة لكن اذا كانت في داخل اداة اخرى مثل Groupbox فلا يقوم بذلك

شكراً علي الرد السريع و الافادة جزاك الله خيراً فعلاً انا عامل group box

في المشروع بتاعي

كود الـ Classic VB الصحيح :

Dim Ctrl As Control

For Each Ctrl In Me
	If TypeOf Ctrl Is TextBox Then
		If Ctrl.Text = "" Then
			MsgBox "Fill all data"
			Ctrl.SetFocus
			Exit For
		End If
	End If
Next

و كود الـ VB.N هو :

Dim Ctrl As System.Windows.Forms.Control

For Each Ctrl In Me.Controls
	If TypeOf Ctrl Is System.Windows.Forms.TextBox Then
		If Ctrl.Text = "" Then
			MsgBox("Fill all data")
			Ctrl.Focus()
			Exit For
		End If
	End If
Next Ctrl

تعديل , طريقة الـ Validation اللى فى المشاركة التالية جميلة و ممكن تعديل كودى ليصبح شبيه بها عن طريق وضع نص رسالة مخصوص لكل مساحة نص بخاصية الـ Tag و نظهر النص ده بالرسالة (MsgBox)

مثال عندنا TextBox خاص بأسم المستخدم , نكتب فى خاصية الـ Tag مثلا (فضلا تأكد من أدخال أسمك) و نظهر النص ده بالرسالة عن طريق :

MsgBox(txtName.Tag)

فعلا كما تفضل الأخ msayed2004

كما يمكن عمل ذلك أيضا بطريقة اخرى وذلك باستخدام الحدث Validating حيث تمنع المستخدم من الخروج من الحقل النصي إذا كانت البيانات غير صحيحة

من المعلوم أنه في الدوت نيت يمكنك استخدام إجراء معالجة حدث واحد لعدة تحكمات وبهذا نكتب إجراء Validating واحد لعدة تحكمات نص

فمثلا إن كان لدينا ثلاثة صناديق نصوص يمكننا منع المستخدم من الانتقال للتحكم التالي في حالة وجود مسافات فقط في الحقل النصي أو عدم وجود شئ فيه كما في الكود التالي

	Private Sub GeneralTextBox_Validating(ByVal sender As Object, _
		ByVal e As System.ComponentModel.CancelEventArgs) _
		Handles TextBox1.Validating, TextBox2.Validating, TextBox3.Validating

		If Trim(sender.text) = String.Empty Then
			e.Cancel = True
			MsgBox("Enter Data")
		End If
	End Sub

لاحظ في سطر تعريف الإجراء بعد كلمة Handles كيف استفدنا من نفس الإجرائية لمعالجة نفس الحدث لأكثر من تحكم ودون تكرار الكود