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

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

دالة $ Error/Error

("أدخل رقم رسالة الخطأ المطلوب إظهار محتوياتها")ErrNum = InputBox

 )Error&";:الرسالة هى"&ErrNum  &": رقم الرسالة هو" msgbox 

 (ErrNum

تعيد هذه الدالة رسالة تبين نوع الخطأ الناتج أثناء التشغيل وتخص الكود المكتوب . المثال التالي يستخدم الدالة Error لإظهار رسالة الخطأ التي تخص الكود الذي يدخله المستخدم .



دالة Send dkey

'المثال 1

"{SendKeys "{TAB} 

'المثال2

"+%"

SendKeys  

'المثال 3

 Dim ReturnValue, I

  ReturnValue = Shell(" CALC.EXE ", 1)    ' Run Calculator

  AppActivate ReturnValue     ' Activate the Calculator

  For I = 1 To 100    ' Set up counting loop

      SendKeys I & "{+}", True        ' Send keystrokes to Calculator

  Next I      ' to add each value of I

  SendKeys "=", True          ' Get grand total

  SendKeys "%{F4}", True          ' Send  ALT + F4  to close Calculator

'المثال4

SendKeys "{TAB 2} "         'press TAB 2 Times

'المثال 5

  SendKeys "%{F4}", True          ' Send  ALT + F4  to close program

'المثال 6

SendKeys "%{TAB}"    'Send ALT + TAB

وتعمل هذه الدالة علي إرسال ضربة واحدة  او اكثر من ضربات  المفاتيح الى النافذه الفعالة  كما لو انها ضربت من لوحة المفاتيح 

.انظر المثال 1

 حيث تم إرسال أمر إلى زرار TAB في لوحة المفاتيح لاستخدام وظيفته .

المثال 2

وهذا الأمر لإرسال أمر إلى مفتاحي Alt+Sheft يمين لتغير من إنجليزي إلى عربي 

المثال 3

نقوم بفتح الحاسبة ثم نرسل اليها عدة ضربات متنوعة عى مفاتيحها

كي تعين مفاتيح مركبة مع اتحاد مع المفاتيح alt,ctrl,shift تسبق شيفرة المفتاح بواحد او اكثر من الشفرات التالية

المفتاح        الشفرة

shift               +

ctrl                 ^

alt                  %

هذا جدول بكود المفاتيح

   

 Key     Code    

      

  BACKSPACE     {BACKSPACE} ,  {BS} , or  {BKSP}    

 BREAK     {BREAK}    

 CAPS LOCK     {CAPSLOCK}    

 DEL  or  DELETE     {DELETE}  or  {DEL}    

 DOWN ARROW     {DOWN}    

 END     {END}    

 ENTER     {ENTER} or  ~    

 ESC     {ESC}    

 HELP     {HELP}    

 HOME     {HOME}    

 INS  or  INSERT     {INSERT}  or  {INS}    

 LEFT ARROW     {LEFT}    

 NUM LOCK     {NUMLOCK}    

 PAGE DOWN     {PGDN}    

 PAGE UP     {PGUP}    

 PRINT SCREEN     {PRTSC}    

 RIGHT ARROW     {RIGHT}    

 SCROLL LOCK     {SCROLLLOCK}    

 TAB     {TAB}    

 UP ARROW     {UP}    

 F1     {F1}    

 F2     {F2}    

 F3     {F3}    

 F4     {F4}    

 F5     {F5}    

 F6     {F6}    

 F7     {F7}    

 F8     {F8}    

 F9     {F9}    

 F10     {F10}    

 F11     {F11}    

 F12     {F12}    

 F13     {F13}    

 F14     {F14}    

 F15     {F15}    

 F16     {F16}    

    

 Key     Code    

      

  SHIFT     +    

 CTRL       ^    

 ALT     % 

دالة Chrw  

(MsgBox ChrW(1578

وهي عكس الدالة Chr تعيد الحرف الممثل لهذه القيمة في الترميز Unicode 

دالة Choose

    'الخيار الاول

    ( "الخيار الاول", "الخيار الثاني", "الخيار الثالث"

Print Choose(1

    'الخيار الثاني

   ("الخيار الاول", "الخيار الثاني", "الخيار الثالث" Print Choose(2

    'الخيار الثالث

   ( "الخيار الاول", "الخيار الثاني", "الخيار الثالث" Print Choose(2

تستخدم للاختيار من احد الخيارات الموجودة ضمن النطاق المحدد