تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
التحكم ErrorProvider
#1
كاتب الموضوع : samerselo


يستخدم التحكم 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
}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  معلومة ::: How To - Use ErrorProvider RaggiTech 2 2,478 06-10-12, 09:56 PM
آخر رد: RaggiTech
  تعلم التحكم في برنامج آخر من داخل برنامجك RaggiTech 0 2,136 03-10-12, 09:34 AM
آخر رد: RaggiTech
  التحكم PropertyGrid RaggiTech 0 1,627 02-10-12, 09:53 AM
آخر رد: RaggiTech
  التحكم في HScrollBar الرجاء المساعدة 0 1,337 منذ اقل من1 دقيقه مضت
آخر رد:

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم