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

تستعمل الدالة IIf مثل أي استعمالات للدالة if

مع فروقات بسيطة في الكتابة

و هذه الصيغة العامة لطريقة كتابة الدالة


كود :
[COLOR=#000000][COLOR=#0000bb]
IIf [/COLOR][color=#007700]([/color][color=#0000bb]Expression [/color][color=#007700]As [/color][color=#0000bb]Boolean[/color][color=#007700],[/color][color=#0000bb]TruePart [/color][color=#007700]As [/color][color=#0000bb]Object [/color][color=#007700],[/color][color=#0000bb]FalsePart [/color][color=#007700]As [/color][color=#0000bb]Object [/color][COLOR=#007700])  
[/COLOR][color=#0000bb][/color][/COLOR]

حيث أن Expression هي الشئ الذي نريد التحقق منه

TruePart => اذا تحقق شرط ال Expression نفذ TruePart

FalsePart => اذا لم يتحقق شرط ال Expression نفذ FalsePart

غير أن هذه الدالة تحتاج الى Object لعملها

و هذا مثال لاستخدامها


كود :
[COLOR=#000000][COLOR=#0000bb]
Dim Test [/COLOR][color=#007700]As [/color][color=#0000bb]String [/color][color=#007700]= [/color][color=#0000bb]IIf[/color][color=#007700]([/color][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][color=#dd0000]"123"[/color][color=#007700], [/color][color=#dd0000]"Done"[/color][color=#007700], [/color][color=#dd0000]"Error"[/color][COLOR=#007700])
[/COLOR][color=#0000bb]MsgBox[/color][color=#007700]([/color][color=#0000bb]Test[/color][COLOR=#007700])  
[/COLOR][color=#0000bb][/color][/COLOR]

لاحظ في هذا الكود

هو نفسه هذا الكود


كود :
[COLOR=#000000][COLOR=#0000bb]
Dim Test [/COLOR][color=#007700]As [/color][COLOR=#0000bb]String
[/COLOR][color=#007700]If [/color][color=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][color=#dd0000]"123" [/color][COLOR=#0000bb]Then
Test [/COLOR][color=#007700]= [/color][COLOR=#dd0000]"Done"
[/COLOR][COLOR=#007700]Else
[/COLOR][color=#0000bb]Test [/color][color=#007700]= [/color][COLOR=#dd0000]"Error"
[/COLOR][color=#0000bb]End [/color][COLOR=#007700]If
[/COLOR][color=#0000bb]MsgBox[/color][color=#007700]([/color][color=#0000bb]Test[/color][COLOR=#007700])  
[/COLOR][color=#0000bb][/color][/COLOR]

الاختلاف في صيغة الكتابة .
}}}
تم الشكر بواسطة:



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


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