استفسار حول اداة Multi-languages Support (mls)

شكرا لك اخي الكريم

فعلا بمجرد الضغط على الصوره تم تحويل اللغة الى الانجليزية

لكن هل من شرح اوفى عن طريقة استخدام وانشاء ملفات اللغة بهذه الاداة.

حيث انه تم عمل ملف موديول في برنامجي لكن يظهر خطأ في الفورم الرئيسي عند التشغيل حيث تم اضافة الاسطر التالية وتظهر بلون احمر

Private Declare Function SendMessage Lib MLSGetString("0001") Alias MLSGetString("0002") (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long ' MLS-> "user32" ' MLS-> "SendMessageA"

Private Declare Function ShellExecute Lib MLSGetString("0003") Alias MLSGetString("0004") (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long ' MLS-> "shell32.dll" ' MLS-> "ShellExecuteA"

؟

جزاك الله خيرا

الشرح الوافى فى ملفات المساعدة الموجودة مع الـ Add-Ins و فى حالة أنه معندكش ملفات المساعدة فالملف المرفق به الأداة و مشروعها و ملفات المساعدة.

MLS_VBaddin.zip

بالنسبة للـ Module المحتوى على أخطاء يفضل أنك ترفقه هنا لأن الكود اللى أنت كاتبه غريب أساسا و فيه أخطاء كثيره ( أتوقع أنها أثناء النسخ ) و برجاء أستعمال الـ Code Tag عند كتابة أى كود :

[_code_]Your code (but remove these underscores)[_/code_]

بدون أى علامة Underscore فى الـ Tags أنا وضعتها فقط حتى لا يحوله المنتدى ;)

راجع أستخدامات الكود

السلام عليكم

جزاك الله خير اخي الكريم على مساعدتك

اخي عند التعامل مع الاداة المذكورة يتم اضافة الكود التالي اعلى النافذة الرئيسية للمشروع

Private Declare Function SendMessage Lib MLSGetString("0001") Alias MLSGetString("0002") (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long ' MLS-> "user32" ' MLS-> "SendMessageA"
Private Const WM_SYSCOMMAND = &H112
Private Const SC_MOVE = &HF010&
Private Const SC_RESTORE = &HF120&
Private Const SC_SIZE = &HF000&

Private Declare Function ShellExecute Lib MLSGetString("0003") Alias MLSGetString("0004") (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long ' MLS-> "shell32.dll" ' MLS-> "ShellExecuteA"

السطر الاول والاخير في هذا الكود تظهر باللون الاحمر دليل على خطأ عند تشغيل البرنامج

وايضا يتم اضافة موديول للمشرولكن الخطأ يظهر في الكود اعلاه فقط.

بخصوص ملفات المساعدة موجودة لدي لكنها باللغة الانجليزية ويبدو ان معرفتي باللغة الانجليزية لم تساعدني على فهم محتواها

كنت اتمنى عمل مثال بسيط فورم وبه بعض الادوات وتنفيذ الاداة عليه مع شرح الخطوات بطريقة step by step

شكرا

يظهر أنه فيه مشكلة بتحصل , عموما بدلهم بالأكواد الصحيحة لدالتى SendMessage و ShellExecute راجع موقع AllAPI

مشكور اخوي

قمت بعمل مشروع جديد نموذج عادي وشوية ادوات وجربت عليه الاداة واشتغل تمام

بس مااضااف الاكواد اللي كتبتها فوق في المشروع واشتغل كل شيء تمام وقدرت اضيف ملفات لغة

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

طبعا عندي ملاحظة على الاداة اعتقد انك كمبرمج تحتاج الى التعديل عليها

للاسباب التالية :

اولا تحتاج الى عمل محاذة يسار -يمين او العكس حسب اللغة.

ثانيا احيانا تحتاج الى اختيار لغة البرنامج بدون قائمة يعني من خلا زر او نموذج فتحتاج تعدل شوي في الكود.

بخصوص الدالات التي ذكرتيها اخي هل هي ضرورية لان برنامج اشتغل بدون الاعتماد عليها

لم أستخدم الأداة من زمن !

و طالما أنها لم تضفهم يبقى خلاص مفيش مشكلة.