دليل استخدام إجراءات VBAppAss.dll للمبرمجين بلغة Visual Basic 6.0

الدالة GetInput

عرض نافذة إدخال مخصصة للحصول على إدخال من المستخدم.

الصيغة:

Function GetInput(ByRef Result As Variant, Prompt As String, _
  Optional Title As String = "", _
  Optional NoEmptyResultMsg As String = "", _
  Optional InputType As TGetInputDataType = GIDT_STRING, _
  Optional ControlType As TGetInputControlType = GICT_TEXTBOX, _
  Optional ListItems As Collection = Nothing, _
  Optional AllowEmptyResult As Boolean = True, _
  Optional RightToLeft As Boolean = True) As Boolean

الصنف:
TUserInterface.

الوسائط (Parameters):

الشرح:
لعلك لاحظت أن الدالة InputBox المضمنة مع Visual Basic تعرض نافذة إدخال بسيطة، يمكن للمستخدم أن يدخل من خلالها أية بيانات حتى و إن كانت تختلف عما هو مطلوب منه. بالإضافة إلى ذلك، لا توجد وسيلة - كما هو الحال مع الدالة MsgBox - لتعريب نافذة الدالة InputBox، فاتجاهها يبقى من اليسار إلى اليمين، و أزرارها تبقى OK و Cancel بدلاً من موافق و إلغاء الأمر.
بالمقابل فإن هذه الدالة (GetInput) تساعدك في تحديد نوع الإدخال المقبول من المستخدم، مثلاً قبول فقط الأعداد الصحيحة أو النصوص أو التواريخ، و يمكنك من خلالها تحديد نوع خانة الإدخال (TextBox أو ComboBox أو DateTimePicker)، و في حالة الخانة المدمجة (ComboBox) يمكنك تمرير مجموعة من البنود ليختار منها المستخدم، بالإضافة إلى إمكانية تحديد توافقها مع واجة البرنامج (عربية أو إنجليزية).

توضيح البارامترات:

• القيمة التي يدخلها المستخدم - إذا كانت مقبولة - يتم تخزينها في البارامتر Result، و لهذا يجب أن يكون هذا اليارامتر متغيراً من خارج الدالة، حيث نلاحظ أنه ممر بالمرجع (ByRef). إذا كان لذلك المتغير قيمة مبدئية فسيتم عرضها بشكل مبدئي في خانة الإدخال الخاصة بالنافذة.
• البارامتر Prompt هو نص الرسالة التوضيحية الموجهة إلى المستخدم و التي سيتم عرضها في نافذة الإدحال.
• البارامتر Title هو عنوان نافذة الإدخال. إذا كان نصاً فارغاً أو تم إهماله فإن الدالة تستخدم عنواناً افتراضياً حسب قيمة البارامتر RightToLeft:
    RightToLeft = True: العنوان يكون "إدخال بيانات"
    RightToLeft = False: العنوان يكون "Data Input"
• البارامتر NoEmptyResultMsg هو نص الرسالة التي سيتم عرضها على المستخدم إذا نقر على الزر "موافق" مع ترك خانة الإدخال فارغة بينما الإدخال الفارغ ليس مسموحاً به (AllowEmptyResult = False). إذا كان NoEmptyResultMsg نصاً فارغاً أو تم إهماله فإن الدالة تستخدم رسالة افتراضية حسب قيمة البارامتر RightToLeft:
    RightToLeft = True: نص الرسالة هو "الرجاء إدخال البيانات المطلوبة"
    RightToLeft = False: نص الرسالة هو "Please enter the required data"
• البارامتر InputType يحدد نوع البيانات المقبولة كإدخال من المستخدم: نص أو عدد صحيح أو عدد حقيقي أو تاريخ.
• البارامتر ControlType يحدد نوع خانة الإدخال التي سيتم عرضها في النافذة. خانة الإدخال يمكن أن تكون مربع نص (TextBox) أو مربعاَ مدمجاً بأحد شكليه (اختيار و كتابة - DropDown أو اختيار فقط - DropDownList). إذا كانت قيمة البارامتر InputType هي GIDT_DATE فإنه يتم إهمال البارامتر ControlType لأن الدالة ستعرض تلقائياً خانة اختيار تاريخ (DateTimePicker) في النافذة.
• البارامتر ListItems عبارة عن تجمع (Collection) يحتوي على مجموعة من البنود التي ستستخدم لملء قائمة المربع المدمج (ComboBox) إذا كانت قيمة البارامتر ControlType هي GICT_COMBOBOX_DDC أو GICT_COMBOBOX_DDL.
• إذا كانت قيمة البارامتر AllowEmptyResult هي True فإنه يمكن للمستخدم أن ينقر على الزر "موافق" مع ترك خانة الإدخال فارغة (أي يمكن قبول القيم الفارغة)، أما إذا كانت قيمة هذا البارامتر هي False فإن الإدخالات الفارغة تكون غير مقبولة.
• البارامتر RightToLeft يحدد اتجاه نافذة الإدخال. القيمة True تعني نافذة بتخطيط من اليمين إلى اليسار، و القيمة False تعني نافذة بتخطيط من اليسار إلى اليمين.

القيمة التي تعيدها الدالة:
إذا أدخل المستخدم إدخالاً مقبولاً و نقر على الزر "موافق" فإن الدالة تعيد True و يتم تخزين القيمة المدخلة في البارامتر Result، أما إذا نقر المستخدم على الزر "إلغاء الأمر" فإن الدالة تعيد False و لا يتم تغيير قيمة البارامتر Result.

الاستخدام:

Dim ObjUI As New TUserInterface
Dim Answer As Variant
Dim Msg As String, Caption As String
Dim Items As New Collection

Msg = "الرجاء اختيار أو كتابة الجنسية."
Caption = "تحديد الجنسية"
Answer = "ليبي"
Items.Add "ليبي"
Items.Add "عربي"
Items.Add "أجنبي"
If ObjUI.GetInput(Answer, Msg, Caption, Msg, GIDT_STRING, GICT_COMBOBOX_DDC, Items, False, True) Then
  Adodc1.Recordset("Nationality") = Answer
End If

بداية الصفحة