مكتبة Mniodialogs مفتوحة المصدر

استخدام صندوق الإدخال InputBox

يمكن التصريح عن صندوق الإدخال كالتالي:

Dim Inpt As New InputBox

يحتوي الكائن InputBox على أربع خصائص و طريقة أساسية

1. Prompt الرسالة التي ستظهر للمستخدم

2. DialogTitle عنوان صندوق الإدخال

3.DefualtValue القيمة الإفتراضية لصندوق الإدخال

4. ResultText خاصية للقراءة فقط و تعود بقيمة النص الذي يدخله المستخدم

مثال 1:

Dim Inpt As New InputBox
Inpt.Prompt = "أدخل رقم الهاتف
Inpt.DialogTitle = "رقم الهاتف"
Inpt.DefualtValue = "0000
Inpt.Show

If Inpt.ResultText = vbNullString Then Exit Sub
'Do Something

مثال 2:

Dim Inpt As New InputBox
Inpt.Show "النص الذي تريده" , "رقم الهاتف" , "أدخل رقم الهاتف"
If Inpt.ResultText = vbNullString Then Exit Sub
'Do Something

و النتيجة واحدة .

إذا أردت أن تعرف على أي زر ضغط المستخدم

فيوجد طريقتين انظر التالي :

Dim Inpt As New InputBox
Dim Result As InputDialogResult
Result = Inpt.Show ("النص الذي تريده" , "رقم الهاتف" , "أدخل رقم الهاتف")
If Result = InpOK Then 
'Do Something 
End If

أو في خطوة واحدة:

Dim Inpt As New InputBox
If Inpt.Show ("النص الذي تريده" , "رقم الهاتف" , "أدخل رقم الهاتف") = InpOK Then
'Do Something
End If

Manual.rar

أخي COMFORT جهد متعوب عليه ،وأعطاك الله الصحة والعافية ،ووفقك لما تريد

ولكن السؤال لماذا تصمم مكتبة أخرى كهذه رغم وجودها في نظامك حيث التعامل معها بسلاسة ،ومن يرغب بأضافة مكتبة أخرى لبرنامجه ؟

عذراً منك وبارك الله بك أخي كومفورت

إذاً أنت صممتها لدعم الله العربية فقط ،صراحة لم أقرأ مشاركتك رقم 3 ،لأنني قرأت الموضوع وحملت مرفقك الأول ورأيته ثم رديت على الموضوع وأرسلته ،ولم أعلم أنه صارت مشاركة قبل ردي .

أخي الكريم COMFORT من بعد ما أطلعت على مكتبتك فأود أن أشير لبعض الأمور التي تجعل من هذه المكتبة لها قيمة كبيرة :

طبعاً الملاحظات التي أذكرها يجب وضعها أختيارية

- لو تم فتح وعرض صندوق الرسالة بعدة طرق جذابة كأظهارها بشكل تدريجي وسريع مع صوت لطيف عند الظهور

- يجب أدراج صوت لكل طراز ،كمسج المعلومات له نغمة المعلومات ومسج الخطأ له نغمة الخطأ وهكذا ..

- الصوت الذي وضعته (ملف صوتي) عند أغلاق صندوق المسج ليس له أي نفع برأيي (أختياري) ويجب أن يكون له صوت موحد

- الكتابة على أزرار المسج يمكن أن تجعلها بارمترات تمرر للمكتبة ،لأن كل شخص يمكن يكتب على الزر الكتابة التي يرغبها بالأنكليزي أوالعربي

- ظهور المسج كنافذة وحيدة يمكنك أن تجعله أختياري

- أظهار المسج بقرب مكان النقر بالماوس - أو خيار آخر نقل الماوس لداخل المسج بوكس

والله الموفق . .

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

أخي العبد العزيز ملاحظات جميلة و كان في

بعضها في الحسبان إن شاء الله نعمل إصدار جديد

و ننزل فيه تلك الإمكانيات لكني منشغل قليلاً بسبب الدراسة هذه الأيام .

اقتباس

- يجب أدراج صوت لكل طراز ،كمسج المعلومات له نغمة المعلومات ومسج الخطأ له نغمة الخطأ وهكذا ..

أنا جعلت Property خاصة لتشغيل ملف صوتي معين لكي يعمل عند تشغيل صندوق

الرسالة يختاره المستخدم . و بهذا يمكن أن يضع ما يريد .

اقتباس

الصوت الذي وضعته (ملف صوتي) عند أغلاق صندوق المسج ليس له أي نفع برأيي (أختياري) ويجب أن يكون له صوت موحد

لم أفهم المقصود بالضبط ، إذا كنت تقصد ملف الصوت فهي خاصية إختيارية فعلاً

اقتباس

ظهور المسج كنافذة وحيدة يمكنك أن تجعله أختياري

لم أفهم المطلوب .

اقتباس

أظهار المسج بقرب مكان النقر بالماوس - أو خيار آخر نقل الماوس لداخل المسج بوكس

إن شاء الله سنجعلها الثانية فهي برأيي أحسن .

جزاك الله خيراً أخي عبد العزيز .

أذنك معك أخي COMFORT وكل واحد فينا لديه مشاغله الخاصة ،فإن شئت أو لا فلا أحد يعتب عليك ،وكله بتوفيق رب العالمين.

فأنا أبديت أقتراحات فقط وذكرت بأمور ربما لها النفع ،ومن لديه أقتراحات أخرى فليدليها لنا

اقتباس

جعلت Property خاصة لتشغيل ملف صوتي معين لكي يعمل عند تشغيل صندوق

الرسالة يختاره المستخدم . و بهذا يمكن أن يضع ما يريد .

اقتباس

الصوت الذي وضعته (ملف صوتي) عند أغلاق صندوق المسج ليس له أي نفع برأيي (أختياري) ويجب أن يكون له صوت موحد

لم أفهم المقصود بالضبط ، إذا كنت تقصد ملف الصوت فهي خاصية إختيارية فعلاً

اقتباس

ظهور المسج كنافذة وحيدة يمكنك أن تجعله أختياري

لم أفهم المطلوب .

اقتباس

جزاك الله خيراً أخي عبد العزيز