التحكم Errorprovider

يستخدم التحكم ErrorProvider لتنبيه المستخدم بطريقة مرئية إلى خطأ مرتبط بتحكم ما على النموذج. ويمكن وضعه على النموذج من صندوق الأدوات صفحة Components أو يمكنك إنشاء كيان جديد منه مباشرة واستخدامه بواسطة الكود بدون الدخول على صندوق الأدوات

Private Erp As New ErrorProvider

يمتلك التحكم ErrorProvider العديد من الخصائص حيث تعتبر الخاصية SetError أهمها وأكثرها استخداما وهي تقوم بضبط وصف نصي للخطأ من أجل تحكم معين وتكون صيغتها العامة

Public Sub SetError ( _
	control As Control, _
	value As String)

حيث يكون control هو تحكم نماذج النوافذ الذي تريد ضبط نص الخطأ الخاص به و value هي السلسلة النصية التي تصف ذلك الخطأ فإن كان طول السلسلة النصية التي تصف الخطأ أكبر من الصفر تظهر أيقونة الخطأ بجانب التحكم وإن كان طولها صفرا فيتم إخفاء تلك الأيقونة فإن أردنا إظهار أيقونة تنبه المستخدم إلى أنه يجب أن يدخل تاريخ صالح في صندوق النصوص يمكننا استخدام الكود التالي للتحقق من إدخال المستخدم وتقرير فيما إذا كان يجب إظهار أيقونة الخطأ إن لم يكن قد أدخل تاريخا صالحا

If Not IsDate(Me.TextBox1.Text) Then
	Erp.SetError(Me.TextBox1, "Enter a Valid Date")
	Me.TextBox1.SelectAll()
	Me.TextBox1.Focus()
Else
	Erp.SetError(Me.TextBox1, String.Empty)
End If

كما يمتلك التحكم العديد من الخصائص الأخرى مثل Icon التي تستخدم لتغيير الأيقونة الخاصة بالخطأ والتي يجب أن تكون أبعادها 16 × 16 من أجل الحصول على أفضل النتائج فإن انتقلنا إلى صفحة Resources في خصائص MyProject ثم أضفنا Icon باسم Go إلى هناك يمكننا استخدامها لتغيير الأيقونة التي يظهرها التحكم كما يلي

Erp.Icon = My.Resources.Go

كما يمكن استخدام الطريقة SetIconAlignment لضبط مكان ظهور الأيقونة وصيغتها العامة

Public Sub SetIconAlignment ( _
	control As Control, _
	value As ErrorIconAlignment)

حيث يمثل control التحكم المراد تغيير مكان الأيقونة بالنسبة له و value هي من نوع التعداد ErrorIconAlignment الذي يمكنك من اختيار إحدى القيم TopLeft و TopRight و MiddleLeft و MiddleRight و BottomLeft و BottomRight لتحديد مكان ظهور أيقونة الخطأ بالنسبة للتحكم كما في المثال

Erp.SetIconAlignment(Me.TextBox1, ErrorIconAlignment.TopLeft)

وتستخدم الطريقة GetIconAlignment لمعرفة مكان الأيقونة بالنسبة لتحكم ما وتكون صيغتها العامة

Public Function GetIconAlignment ( _
	control As Control _
) As ErrorIconAlignment

والطريقة GetError تستخدم لمعرفة نص الخطأ المرتبط بتحكم ما مثال

Dim ers As String = Erp.GetError(Me.TextBox1)

كما يمتلك التحكم ErrorProvider خاصية لضبط المسافة بين التحكم وأيقونة الخطأ هي SetIconPadding وصيغتها العامة

Public Sub SetIconPadding ( _
	control As Control, _
	padding As Integer)

حيث padding هي قيمة المسافة بالبيكسل وتستخدم الطريقة GetIconPadding لقراءة هذه القيمة وصيغتها العامة

Public Function GetIconPadding ( _
	control As Control _
) As Integer

ويمكن استخدام الطريقة BlinkRate لضبط معدل وميض الأيقونة بالميللي ثانية وهي من النوع Integer مثال

Erp.BlinkRate = 250

كما يمتلك الخاصية BlinkStyle التي تستخدم لتحديد طريقة وميض أيقونة الخطأ وهي تأخذ إحدى قيم التعداد ErrorBlinkStyle كقيمة لها وهذه القيم هي BlinkIfDifferentError حيث تومض الأيقونة عندما تكون ظاهرة مسبقا وتم ضبط نص خطأ جديد للتحكم و AlwaysBlink تومض الأيقونة دوما عندما يتم إظهارها لأول مرة أو عندما يتم تغيير نص الخطأ المرتبط بالتحكم وكانت الأيقونة ظاهرة مسبقا و NeverBlink لا تومض أيقونة الخطأ أبدا مثال

Erp.BlinkStyle=ErrorBlinkStyle.AlwaysBlink