أنت غير متصل حاليًا، وفي انتظار الإنترنت الخاص بك ليقوم بإعادة الاتصال

كيفية استخدام التحكم Script دالات مكالمة

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

اضغط هنا لرابط المقالة باللغة الانجليزية184740
تمت أرشفة هذه المقالة. وتظهر "كما هي" ولن يتم تحديثها بعد الآن.
الموجز
توفر هذه المقالة نموذج التعليمة البرمجية لعنصر التحكم Script يوضح الأساليب المختلفة من استدعاء وظائف البرنامج النصي من Visual Basic.
معلومات أخرى
هام: تقدم Microsoft الأمثلة البرمجية فقط دون أي ضمان التعبير عن أو ضمنية ، ، لا الحصر إلى ضمانات القابلية للتسويق و/أو الملاءمة لغرض معين. تفترض هذه المقالة أنك معتاد على لغة البرمجة التي تم شرحها والأدوات المستخدمة لإنشاء الإجراءات وتصحيحها.

يمكن استضافة عنصر التحكم Script VBScript و JavaScript أي الأخرى المتوافقة مع لغة البرمجة النصية, بحيث يمكن للمستخدمين من برنامج نصي التطبيق الخاص بك بطريقة مشابهة لاستخدام VBScript أو JavaScript لتوفير وظائف إضافية لصفحات ويب.

تتناول المقالة التالية في "قاعدة المعارف لـ Microsoft كيفية الحصول على عنصر تحكم البرنامج النصي:
184739: INFO: مكان الحصول على التحكم في البرنامج النصي

يوفر عنصر التحكم Script النصية استدعاء Sub و دالة أساليب أربعة إجراءات:
  • Eval: تقييم تعبير نص.
  • التشغيل: تشغيل فرعي مسمى أو دالة.
  • تنفيذ: التنفيذ عبارة البرنامج نصي.
  • الأسلوب كائن الوحدة النمطية.

eval

اصطلاح استدعاء:
  Result = ScriptControl.Eval("some text expression")				
يمكن استخدام هذا الأسلوب إلى استدعاء كلا وظائف البرنامج النصي مضمن بالإضافة إلى دالات المستخدم. وسيطات الدالة تمرير بوصفها القيم الحرفية في النص تعبير و يمكن إما تلوينها القرص الثابت أو متصلاً من متغير.

ملاحظة: لا يمكن استخدام هذه الطريقة للاتصال Subroutines.

تشغيل

اصطلاح استدعاء:
  Result = ScriptControl.Run("Name", arg1, arg2, ... argn)				
يمكن استخدام هذا الأسلوب للاتصال Subroutines في الحالة نتيجة إرجاع فارغ و استخدام اصطلاح استدعاء البديل لتجاهل النتيجة الإرجاع:
  ScriptControl.Run "Name", arg1, arg2, ... argn				
ملاحظة: اسم هو الاسم من Sub أو دالة و arg1... argn اختيارية اعتماداً على فرعي أو دالة في السؤال.

تنفيذ

اصطلاح استدعاء:
  ScriptControl.Execute "statement text"				
هذه الطريقة إمكانية استدعاء أية بيان مضمن أو Sub روتين. يمكنك استخدامه للاتصال دالات ولكن يتم إسقاط النتيجة الإرجاع.

أسلوب الوحدة النمطية

اصطلاح استدعاء:
   Result = ScriptControl.Modules(modulename).functionname(arg1, arg2, ...)   ScriptControl.Modules(modulename).subname arg1, arg2, ...				

الوحدة النمطية الافتراضية ثابت GlobalModule منح مثل:
   Result = ScriptControl.Modules(GlobalModule).MyFunction(5)   ScriptControl.Modules(GlobalModule).MySub 5, "A"				

للحصول على مزيد من المعلومات حول الوحدات النمطية ScriptControl الرجاء مراجعة المقالة التالية في "قاعدة المعارف لـ Microsoft:
184745: كيفية استخدام الوحدات النمطية التحكم Script ومجموعات إجراءات

المثال

  1. في Visual Basic، قم بإنشاء مشروع جديد. يتم إنشاء Form1 بشكل افتراضي.
  2. انقر فوق "المكونات" من القائمة المشروع ثم قم بتحديد خانة الاختيار "التحكم Microsoft Script 1.0".
  3. إضافة عنصر تحكم Script (ScriptControl1) و مربع نص (النص1) زر أمر (Command1) إلى نموذج. قم بتعيين خاصية مربع النص متعدد الأسطر إلى True.
  4. قم بإضافة التعليمات البرمجية التالية إلى Form1:
          Private Sub Command1_Click()        With ScriptControl1          ' Set script language (VBScript is the default).          .Language = "VBScript"          ' Set UI interaction (TRUE is the default).          .AllowUI = True          ' Copy the script to the control.          .AddCode Text1.Text          ' Demonstrate the Eval method.          Debug.Print .Eval("AddTwo(5,7)")          ' Demonstrate the Run method both with and without return values.          .Run "Hello", "Jane Doe"          Debug.Print .Run("Hello", "James Smith")          .Run "AddTwo", 4, 6          Debug.Print .Run("AddTwo", 7, 8)          ' Demonstrate the ExecuteStatement method.          .ExecuteStatement "Hello ""Sue Smith"""          .ExecuteStatement "AddTwo 9,18"          .ExecuteStatement "MsgBox CStr(AddTwo(3,8))"          .Modules(GlobalModule).Hello "Jane Doe"          Dim oMod As Object          Set oMod = .Modules(GlobalModule)          Debug.Print oMod.AddTwo 12, 24          Set oMod = Nothing        End With      End Sub						
  5. قم بتشغيل Form1 ثم فتح إطار التصحيح.
  6. اكتب البرنامج النصي التالي في مربع النص:
          Sub Hello(YourName)        MsgBox "Hello " & YourName      End Sub      Function AddTwo(X1, X2)        AddTwo = X1 + X2      End Function						
  7. انقر فوق CommandButton.

    ملاحظة: العبارات التالية جهازي لم بإصدار إخراج لأن الدالة الإرجاع يتم فقدان لم التعليمة البرمجية إخراج النتيجة خلال أي وسائل أخرى ، مثل مربع رسالة أو متغير عمومي:
          .Run "AddTwo", 4, 6      .ExecuteStatement "AddTwo 9,18"						
مراجع
للحصول على معلومات حول كيفية الحصول على التحكم Script الرجاء مراجعة المقالة التالية في "قاعدة المعارف لـ Microsoft:
184739: INFO: مكان الحصول على التحكم في البرنامج النصي

(ج) 1998 شركة Microsoft ، كافة حقوق محجوز.
المساهمات بواسطة Malcolm Stewart ، شركة Microsoft
kbVBA500 kbVBp500 kbNoKeyWord kbVBp600 kbScript kbCtrl

تحذير: تمت ترجمة هذه المقالة تلقائيًا

خصائص

رقم الموضوع: 184740 - آخر مراجعة: 12/05/2015 08:36:33 - المراجعة: 4.2

Microsoft Visual Basic 5.0 Learning Edition, Microsoft Visual Basic 6.0 Learning Edition, Microsoft Visual Basic 5.0 Professional Edition, Microsoft Visual Basic 6.0 Professional Edition, Microsoft Visual Basic 5.0 Enterprise Edition, Microsoft Visual Basic Enterprise Edition for Windows 6.0, Microsoft Visual Basic 4.0 Standard Edition, Microsoft Visual Basic 4.0 Professional Edition, Microsoft Visual Basic 4.0 32-Bit Enterprise Edition, Microsoft Visual Basic for Applications 5.0

  • kbnosurvey kbarchive kbmt kbhowto KB184740 KbMtar
تعليقات