كيفية القيام بما يلي: تحدد ما إذا كان كائنان متطابقان
في Visual Basic، يعتبر مرجعين متغير متطابقين اذا كان المؤشر الخاصة بهم متماثلين, وهذا يعني أن هذين مرجعين المتغير يؤشران الى نفس مثيل الفئة في الذاكرة. على سبيل المثال، في أحد تطبيقات نماذج Windows , قد تحتاج إلى إجراء مقارنة لتحديد ما إذا كان المثيل الحالي (Me) هو نفس مثيل خاص مثل Form2.
Visual Basic يوفر عاملا تشغيل لمقارنة المؤشرات. عامل التشغيل Is في (Visual Basic) يقوم بإرجاع True إذا كانت الكائنات متماثلة و عامل التشغيل IsNot يقوم إرجاع True إذا لم يكن كذلك.
تحديد ما إذا كان هناك كائنين متطابقين
لتحديد ما إذا كان هناك كئنين متطابقين
قم بـإعداد Boolean التعبير لاختبار الكائنين.
في تعبير الاختبار قم باستخدام Is عامل التشغيل مع الكائنين الاثنين كـمعاملات.
Is يقوم بإرجاع True إذا كانت الكائنات تؤشر إلى نفس مثيل الفئة.
تحديد ما إذا كان هناك كائنين غير متطابقين
أحيانًا تريد تنفيذ إجراء إذا الكائنين الاثنين غير متطابقين و يمكن أن نكون الأمر غريب لضم Not و Is، على سبيل المثال If Not obj1 Is obj2. في مثل هذه الحالة يمكنك استخدام عامل تشغيل IsNot.
لتحديد ما إذا كان هناك كائنين غير متطابقين
قم بـإعداد Boolean التعبير لاختبار الكائنين.
في تعبير الاختبار قم باستخدام IsNot عامل التشغيل مع الكائنين الاثنين كـمعاملات.
IsNot يقوم بإرجاع True إذا كانت الكائنات لا تؤشر إلى نفس مثيل الفئة.
مثال
المثال التالي يقوم باختبار أزواج من Object المتغيرات لمعرفة ما إذا كانت تؤشر إلى نفس مثيل الفئة.
Dim objA, objB, objC As Object
objA = My.User
objB = New ApplicationServices.User
objC = My.User
MsgBox("objA different from objB? " & CStr(objA IsNot objB))
MsgBox("objA identical to objC? " & CStr(objA Is objC))
يعرض المثال السابق الإخراج التالي.
objA different from objB? True
objA identical to objC? True
راجع أيضًا:
المهام
كيفية القيام بما يلي: تحدد ما إذا كان كائنان ذو صله ببعضهما
المرجع
عامل التشغيل Is في (Visual Basic)