كيفية استدعاء وظيفة في VB: 3 خطوات (بالصور)

جدول المحتويات:

كيفية استدعاء وظيفة في VB: 3 خطوات (بالصور)
كيفية استدعاء وظيفة في VB: 3 خطوات (بالصور)

فيديو: كيفية استدعاء وظيفة في VB: 3 خطوات (بالصور)

فيديو: كيفية استدعاء وظيفة في VB: 3 خطوات (بالصور)
فيديو: تحميل نظام ماجنتو في 10 دقايق Magento HTTPS الدليل الكامل 2024, يمكن
Anonim

عالق مع مفاهيم "الوظيفة" في VB؟ إذا كانت الإجابة بنعم ، اقرأ هذا الدليل لتتعلم ما يسمى بنيات "الوظيفة" في نموذج VB.

خطوات

استدعاء وظيفة في VB الخطوة 1
استدعاء وظيفة في VB الخطوة 1

الخطوة 1. ما هي الوظيفة؟

  • استخدم إجراء الوظيفة عندما تحتاج إلى إرجاع قيمة إلى رمز الاتصال.
  • الوظيفة نفسها لها نوع ، وستعيد الوظيفة قيمة إلى روتين الاستدعاء بناءً على الكود الذي تحتويه.
استدعاء وظيفة في VB الخطوة 2
استدعاء وظيفة في VB الخطوة 2

الخطوة 2. كيف تصرح عن الوظيفة؟

  • يمكنك تحديد إجراء الوظيفة على مستوى الوحدة فقط. هذا يعني أن سياق الإعلان عن الوظيفة يجب أن يكون فئة أو بنية أو وحدة نمطية أو واجهة ، ولا يمكن أن يكون ملفًا مصدرًا أو مساحة اسم أو إجراء أو كتلة.
  • يتم التصريح عن الوظيفة بنفس طريقة إجراء فرعي ، باستثناء استخدام الكلمة الأساسية "Function" بدلاً من "Sub".
  • إجراءات الوظيفة الافتراضية للوصول العام. يمكنك ضبط مستويات الوصول الخاصة بهم باستخدام مُعدِّلات الوصول.
استدعاء وظيفة في VB الخطوة 3
استدعاء وظيفة في VB الخطوة 3

الخطوة 3. كيف تتصل بالوظيفة؟

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

بناء الجملة

إعلان

[accessmodifier] [Proceduremodifiers] [Shared] اسم الوظيفة [(Of typeparamlist)] [(معلمة قائمة)] [كنوع إرجاع] [عبارات] [Exit Function] [عبارات] End Function

الاتصال

"بدون استدعاء Function_Name ()" مع Call Call Function_Name ()

مثال

فيما يلي مثال على وظيفة تضيف رقمين

إضافة دالة خاصة (ByVal x As Integer، ByVal y As Integer) كـ عدد صحيح Dim Res كعدد صحيح Res = x + y Add = Res End Function Private Sub Form_Load () Dim a As Integer Dim b as Integer Dim c as Integer a = 32 ب = 64 ج = إضافة (أ ، ب) MsgBox ("المجموع هو:" & ج) End Sub

موصى به: