If...Then...#Else Directives#
الكتل المحددة من التعليمات البرمجية لـ Visual Basic تُحول برمجياً بشكل مشروط .
#If expression Then
statements
[ #ElseIf expression Then
[ statements ]
...
#ElseIf expression Then
[ statements ] ]
[ #Else
[ statements ] ]
#End If
الأجزاء
expression
مطلوبة لكشوفات #If و #ElseIf ، و اختيارية في أي مكان آخر. و أي تعبير مكوّن بشكل خاص من واحد أو أكثر من ثوابت المترجم الشرطي ، أو القيم الحرفية أو عوامل التشغيل ، التي يتم تقييمها إلى True أو False.statements
مطلوبة لكتلة كشف #If ، و اختيارية في أي مكان آخر. خطوط برنامج Visual Basic أو توجيهات المترجم التي يتم تحويلها برمجياً إذا تم تقييم التعبير المقترن إلى True.#End If
تنهي كتلة كشف #If .
ملاحظات
على السطح ، سلوك توجيهات #If...Then...#Else يظهر نفس سلوك كشوفات If...Then...Else . ومع ذلك ، توجيهات #If...Then...#Else تقيم ما يتم ترجمته بواسطة برنامج التحويل البرمجي ، بينما كشوفات If...Then...Else تقيم الشروط في وقت التشغيل .
الترجمة الشرطية المستخدمة عادةً لتحويل نفس البرنامج على أنظمة أساسية مختلفة برمجياً . كما تستخدم أيضاً لمنع تصحيح أخطاء التعليمات البرمجية من الظهور في الملف القابل للتنفيذ . و التعليمات البرمجية المستبعدة أثناء الترجمة الشرطية يتم حذفها من الملف القابل للتنفيذ نهائياً ، بحيث لا يكون له أي تأثير في الحجم أو الأداء.
بغض النظر عن ناتج أي تقييم ، يتم تقييم كل التعبيرات باستخدام Option Compare Binary . كشف Option Compare لا يؤثر على التعبيرات في كشوفات #If و #ElseIf .
ملاحظة
لا يوجد نموذج خط واحد لـ #If, #Else, #ElseIf، و توجيهات #End If موجودة . لا يمكن أن تظهر أية تعليمات برمجية أخرى في نفس السطر مثل أي توجهات.
مثال
يستخدم هذا المثال بناء #If...Then...#Else لتحديد ما إذا كان سيترجم هذه الكشوفات المعينة.
#Const CustomerNumber = 36
#If CustomerNumber = 35 Then
' Insert code to be compiled for customer # 35.
#ElseIf CustomerNumber = 36 Then
' Insert code to be compiled for customer # 36.
#Else
' Insert code to be compiled for all other customers.
#End If
راجع أيضًا:
المرجع
كشف If...Then...Else (Visual Basic)