هل يمكن استدعاء input box متعدد الادخال

[jjafferr]

السلام عليكم شباب

 

أخي أبوعبدالله:

قد لا يكون الذي تبحث عنه ، ولكنها طريقة مفيده لإدخال مجموعة من البيانات مرة واحدة:

 

جعفر

[أبو عبدالله الحلوانى]

8 دقائق مضت, jjafferr said:

السلام عليكم شباب

 

أخي أبوعبدالله:

قد لا يكون الذي تبحث عنه ، ولكنها طريقة مفيده لإدخال مجموعة من البيانات مرة واحدة:

 

وعليييكم السسلام  ورحمة الله وبركاته

ياهلا ياهلا عود أحمد - نورتنا وشرفتنا - ومش فاكر باقى البيت 

جزاكم الله خيرا أسعدنى وشرفتى مروركم الكريم 

قد توصلت للحل الذى ذكرته بمشاركة رقم 5 تقريبا وهو حل جيد الى الآن وقد أفادنا أستاذنا @أبو إبراهيم الغامدي  بأكواد مختصرة لنفس الفكرة .

ولكن مع طمع طلاب العلم بما هو أكثر دائما مازلت آمل أن نجد الكود الذى يمكننا من تشكيل الـ InputBox كما نشاء وحسب مرادنا لا مراد مايكروسفت   

وقد فتح أمامى هذه الثغرة من الأمل أنى وجدت كود بالمنتدى لجعل المدخلات بالــ InputBox تظهر على شكل *** 

وأعتقد أن الحل الأمثل المطلوب لم يعد بعيدا بعد زيارتكم - وزيارة الأكابر الكرام ممن ساهم وشارك من قبل

 

[أبو إبراهيم الغامدي]

11 ساعات مضت, أبو عبدالله الحلوانى said:

أولا- مبارك على الترقية الجديدة وان كانت أقل مما تستحقون - ونرجو منكم بهذه المناسبة المزيد من المشاركات فما يأتينا من قبلكم الا الخير

أشكرك  أخي @أبو عبدالله الحلوانى على تهنئتك لي وأتمنى أن أكون  عند حسن ظنكم جميعا.

 

11 ساعات مضت, أبو عبدالله الحلوانى said:

لكن ما الفارق هنا وبين أن أعرف متغيرين عامين وأحفظ بكل متغير قيمة ثم استدعى تلك القيم من أى مكان

لا فرق سوى تبعية النموذج للوظيفة! ونحن في الأصل عرفنا المتغير ptInputResult  على أنه عام وبناءً عليه يمكنك الوصول إلى المتغير من أي مكان دون الرجوع  الوظيفة.. لكن انفكت التبعية هنا.. والإشكالية هنا فنية برمجية بمعنى أن هذا الاسلوب غير مقبول برمجيا.

 

12 ساعات مضت, أبو عبدالله الحلوانى said:

يعنى ما الفائدة من استخدام تعريف Type للمتغرات

لكون الوظائف (Functions) لا تعيد إلا قيمة واحدة فقط.. ولا تعيد قيمة متعددة إلا إذا أعلنت عنها أنها من نوع (Type)!  هذا هو السبب!

 

ومع هذا كله يمكن إعادة استخدام النموذج وملؤه بالبيانات بطريقة أبينها لك وللأخ @sandanet 

يمكن أن تكون الطريقة بالنسبة للبعض أفضل من الوظيفة! إليكم الطريقة عن طريق محرر الشفرة

 

افتح وحدة نمطية جديدة وسمها ما شئت (mdlForms)، ثم قم باضافة الشفرة التالية

Dim UF As New Form_USysInputBox


Sub UserDlg()
On Error Resume Next
'-- تعبئة البيانات متسلسة
    UF.Caption = "صلاحية الدخول"
    UF.lblPrompt.Caption = "فضلا أدخل اسم المستخدم وكلمة المرور"
    UF.lblInputOne.Caption = "اسم المستخدم"
    UF.lblInputTwo.Caption = "كلمة المرور"
    UF.OnClose = "=SetClose()"
'-- اظهر النموذج
    UF.Visible = True

'-- القيمة العائدة من مربع النص مباشرة
    Debug.Print UF.txtInputOne
    Debug.Print UF.txtInputTwo
End Sub


Function SetClose()
    Set UF = Nothing
End Function

 

[sandanet]

استاذي الفاضل @أبو إبراهيم الغامدي بالحقيقة كنت اشم راحة الخبرة لديك قبل ترقيتك وبالفعل ماخاب ظني فيك فمبروك لك على تلك الترقية  التي تستحقها وبإذن الله نرى منك مشاركات مبهرة في هذا المنتدى