الدالة VarType

هام: تمت ترجمة هذه المقالة ترجمة آلية، راجع إقرار إخلاء المسؤولية. يرجى الاطلاع على النسخة الإنجليزية من هذه المقالة. هنا للرجوع إليها.

ترجع هذه الداله عدد صحيح يشير الي النوع الفرعي ل متغير.

بناء الجملة

VarType ( varname )

هو مطلوب varnameوسيطة متغير يحتوي علي اي متغير استثناء متغير من نوع المعرفه من قبل المستخدم.

القيم المرجعة

الثابت

القيمة

الوصف

vbEmpty

0

فارغ (غير مهيأ)

vbNull

1

القيمه null (بيانات غير صالحه)

vbInteger

2

عدد صحيح

vbLong

3

عدد صحيح طويل

vbSingle

4

رقم مفرد البايت للنقطة العائمة للدقة

vbDouble

5

رقم مزدوج البايت للنقطة العائمة للدقة

vbCurrency

6

قيمة عملة

vbDate

7

قيمة تاريخ

vbString

8

سلسلة أحرف

vbObject

9

كائن

vbError

10

قيمة خطأ

vbBoolean

11

قيمة منطقية

vbVariant

12

متغير (يستخدم فقط مع صفائف المتغيرات)

vbDataObject

13

كائن الوصول إلى البيانات

vbDecimal

14

قيمة عشرية

vbByte

17

قيمة بايت

vbUserDefinedType

36

متغيرات تتضمن أنواع معرّفة من قبل المستخدم

vbArray

8192

صفيف


ملاحظة: يتم تعيين هذه الثوابت قبل Visual Basic for Applications. يمكنك استخدام الاسماء في اي مكان في التعليمات البرمجيه بدلا من القيم الفعليه.

ملاحظات

لا تقوم الدالة VarType أبدًا بإرجاع قيمة vbArray بنفسها؛ لكن يتم إضافتها دومًا إلى بعض القيم الأخرى للإشارة إلى صفيف من نوع محدد. يتم فقط إرجاع الثابت vbVariant مع vbArray للإشارة إلى أن وسيطة الدالة VarType عبارة عن صفيف من نوع Variant. على سبيل المثال، يتم حساب القيمة المرجعة لصفيف من الأعداد الصحيحة كـ vbInteger + vbArray، أو 8194. إذا كان لأحد الكائنات خاصية افتراضية، تقوم VarType(object)‎ بإرجاع نوع الخاصية الافتراضية للكائن.

مثال

ملاحظة: توضح الأمثلة التالية استخدام هذه الدالة في وحدة نمطية لـ Visual Basic for Applications (VBA). لمزيد من المعلومات حول استخدام VBA، حدد مرجع المطور في القائمة المنسدلة بجوار بحث وأدخل مصطلح أو أكثر في مربع البحث.

يستخدم هذا المثال الدالة VarType لتحديد النوع الفرعي لمتغير ما.

Dim IntVar, StrVar, DateVar, MyCheck
' Initialize variables.
IntVar = 459
StrVar = "Hello World"
DateVar = #2/12/69#
MyCheck = VarType(IntVar) ' Returns 2.
MyCheck = VarType(DateVar) ' Returns 7.
MyCheck = VarType(StrVar) ' Returns 8.

ملاحظة: إقرار إخلاء المسؤولية للترجمة الآلية: تمت ترجمة هذه المقالة بواسطة نظام كمبيوتر دون تدخل العامل البشري. توفر Microsoft هذه الترجمات الآلية لمساعدة المستخدمين الذين لا يتحدثون الإنجليزية على استخدام منتجات Microsoft، وخدماتها، وتقنياتها والاستمتاع بها. قد تحتوي هذه المقالة على أخطاء في المفردات، أو بناء الجملة، أو القواعد نظرًا لترجمتها آليًا.

مشاركة Facebook Facebook Twitter Twitter البريد الإلكتروني البريد الإلكتروني

هل كانت المعلومات مفيدة؟

رائع! هل لديك أي ملاحظات أخرى؟

كيف يمكننا تحسين ذلك؟

نشكرك على ملاحظاتك!

×