الدوال فى الفيجوال بيسك وشرحها الجزء الثانى عشر

دوال متنوعة الجزء الاول

دالة Iif

Dim Answer As String

("Answer = IIf(Text1.Text > 1000, "Large", "Small

"MsgBox "Large

"MsgBox "Small

تقوم هذه الدالة باختبار تعبير وإرجاع القيمة True (بمعني صح ) إذا تحقق التعبير أو القيمة False ( بمعني خطأ ) إذا لم يتحقق .
ويوضح هذا المثال استخدام الدالة Iif حيث يتم اختبار محتويات صندوق النص وتحديد محتوياته وبناء علي النتيجة الاختبار يتم تعين العبارة Large للمتغير Answer إذا كانت قيمة صندوق النص أكبر من 1000 أو العبارة Small إذا كانت أقل من أو تساوي 1000 .




دالة Shell

(Prgm=Shell(“Calc.exe”,1

or

  Dim RetVal

  RetVal = Shell("C:\WINDOWS\CALC.EXE", 1)            ' Run Calculator.

or

Shell("C:\Program Files\Microsoft   office\Office\WINWORD.EXE",1 )1

تستخدم هذه الدالة في تشغيل البرامج التنفيذية ( اللى هيا exe)

دالة QBColor

(Form1.BackColor = QBColor(3

تستخدم هذه الدالة لتلوين الكائنات .

دالة RGB

(Form1.BackColor = RGB(255,0,0

وهي الدالة الثانية التي تستخدم في التلوين حيث الأزرق ، الأخضر و الأحمر هي الألوان الثلاثة الأساسية التي تتكون منها جميع الألوان .