تغيير تسمية الازرار في رسالة msgbox

[عبد الله قدور]

السلام عليكم

كيف يمكن ان نغير تسمية الازرار في الرسالة msgbox مثلا عندما نضع رسالة ويختار المستخدم خيار معين نضع رسالة نعم لا فهل من الممكن ان نغيرها الى لغة أخرى 

[jjafferr]

وعليكم السلام 

 

ابش رايك في Enhanced Msgbox (هو اصلا نموذج ، ولكن معمول خصيصا لعمل Msgbox ) ، وجاهز للتحميل المجاني 

 

هذه بعض الاشكال والالوان التي تستطيع ان تعملها ، وطبعا اللغة كذلك 

.

وفي نسخته العاشرة 

هذا رابط الموقع ، وجميل النظر الى ملاحظات القرّاء:

http://blog.nkadesign.com/2008/ms-access-enhanced-message-box-replacement/

ولتحميل البرنامج:

http://blog.nkadesign.com/wp-content/uploads/2008/05/EnhancedMsgBoxv1.10.zip

 

 

جعفر

[عبد الله قدور]

أشكال جيدة وممتازة وفكرة رائعة لكن طلبي هو تغيير لغة الازرار في الرسالة بدلا من نعم لا يكون بالانكليزية مثلا  yes no أو بالتركية evet hayır

اريد ان اتحكم بالنص المكتوب على الزر بحيث اكتب النص الذي اريده وباللغة التي اريدها

 

 

[ابوخليل]

شكرا اخي جعفر  على  هذه النوادر  الجميلة

وتفضل  اخي عبدالله  يمكنك كتابة اي شيء على الزر

Dim resalh As Integer
Ok = "أكيد موافق"
Cancel = "not agree"
MessageBoxH Me.hwnd
resalh = MsgBox("تفضل  هذه الخلطة في اللغة", vbOKCancel, "رسالة")

 

[ابوخليل]

عدم الرد من صاحب السوال جعلني ادخل مرة اخرى اواكتشف اني لم  ارفق الوحدة  المسؤولة عن الترجمة

تفصل والصقها في صفحة وحدة نمطية جديدة

Public Ok, Cancel, ABORT
Public RETRY, IGNORE, YES, NO
Private m_hHook As Long
Private Const IDOK = 1
Private Const IDCANCEL = 2
Private Const IDABORT = 3
Private Const IDRETRY = 4
Private Const IDIGNORE = 5
Private Const IDYES = 6
Private Const IDNO = 7
Private Const WH_CBT = 5
Private Const GWL_HINSTANCE = (-6)
Private Const HCBT_ACTIVATE = 5
Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
                  (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetDlgItemText Lib "user32" Alias "SetDlgItemTextA" _
                  (ByVal hDlg As Long, ByVal nIDDlgItem As Long, _
                  ByVal lpString As String) As Long
Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" _
     (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, _
     ByVal dwThreadId As Long) As Long
Private Declare Function UnhookWindowsHookEx Lib "user32" _
                  (ByVal hHook As Long) As Long
Public Sub MessageBoxH(hwndThreadOwner As Long)
   Dim hInstance As Long
   Dim hThreadId As Long
   hInstance = GetWindowLong(hwndThreadOwner, GWL_HINSTANCE)
   hThreadId = GetCurrentThreadId()
   m_hHook = SetWindowsHookEx(WH_CBT, AddressOf _
   MsgBoxHookProc, hInstance, hThreadId)
End Sub
Private Function MsgBoxHookProc(ByVal uMsg As Long, ByVal _
wParam As Long, ByVal lParam As Long) As Long
   If uMsg = HCBT_ACTIVATE Then
      SetDlgItemText wParam, IDOK, Ok
      SetDlgItemText wParam, IDCANCEL, Cancel
      SetDlgItemText wParam, IDABORT, ABORT
      SetDlgItemText wParam, IDRETRY, ABORT
      SetDlgItemText wParam, IDIGNORE, ABORT
      SetDlgItemText wParam, IDYES, YES
      SetDlgItemText wParam, IDNO, YES
         UnhookWindowsHookEx m_hHook
   End If
   MsgBoxHookProc = False
End Function

 

[jjafferr]

5 دقائق مضت, ابوخليل said:

عدم الرد من صاحب السوال جعلني ادخل مرة اخرى اواكتشف اني لم  ارفق الوحدة  المسؤولة عن الترجمة

تفصل والصقها في صفحة وحدة نمطية جديدة

أخوي ابو خليل 

رحم الله والديك دنيا وآخرة ، كنت اريد ابحث عنها 

 

 

جعفر

 

 

وتمت التجربة بنجاح 

وان شاء الله استخدم هذه الطريقة في مرفق الرابط:

http://www.officena.net/ib/topic/67205-هل-من-حل-شافى-لمشكلة-اختلاف-اعدادات-اللغة-بالويندز-على-الأجهزة-المختلفة/?do=findComment&comment=437551

 

وبهذه الطريقة يتكامل الموضوع اكثر 

 

 

جعفر

[محمد سلامة]

مبدع استاذ جعفر استاذ ابوخليل

بارك الله فيكم وفي اولادكم وغفر لكم ولذويكم اجمعين

كنت استخدم في برنامجي الارشفة الالكترونية بدل الرسائل التقليدية رسائل من صنعي في شكل نموذج واقوم بتصميمها حسب الشكل الذي احتاجه وما يعيب هذه الطريقة كثرة النماذج لانني كنت اصمم كل رسالة في نموذج مستقل ومع تعدد اشكال الرسائل

ففكرة استاذ ابوخليل جميل جدا واتمني منه ان يرفق الاكواد في مرفق حتي يسهل علي رواد الموقع استخدامه.. و اطلب منه اذا كان هناك طريقة لتغير الخلفية الخاصة بالرسالة ايضا اذا امكن

شكرا لكم استاذي ابوخليل/ جعفر

[عبد الله قدور]

جزاك الله أخي ابوخليل

سامحني فأنا لا استطيع مراجعة مشاركاتي الا بعد العودة من العمل مساء 

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

لكن أخي ابو خليل لم افلح في تطبيق ما ذكرت مع اني قمت بعمل نسخ لصق للكود والوحدة النمطية 

تم تعديل فبراير 22, 2016 بواسطه عبد الله قدور

[عبدالله المجرب]

اخي عبدالله جربت الكود الخاص باستاذنا ابو خليل وكانت النتيجة جداً رائعة

[ابو جودي]

في 2/21/2016 at 23:57, ابوخليل said:

شكرا اخي جعفر  على  هذه النوادر  الجميلة

وتفضل  اخي عبدالله  يمكنك كتابة اي شيء على الزر

Dim resalh As Integer
Ok = "أكيد موافق"
Cancel = "not agree"
MessageBoxH Me.hwnd
resalh = MsgBox("تفضل  هذه الخلطة في اللغة", vbOKCancel, "رسالة")

 

السلام عليكم ورحمة الله تعالى وبركاته استاذ ابو خليل 
اولا حضرتك عامل ايه واحشنى جدا جدا جدا جدا 

ثانيا قمت بالتجربة والكود ماشاء رائع جدا جدا 
ولكن ممكن سؤال على استحياء 
ماذا لو كنت اريد عمل رسالة تحتوى على  عدد ثلاث ازرار 
اى 
vbYesNoCancel
حاولت التجربة والتعديل ولكن لم اوفق قمت بارفاق مثال حتى تتضح الرؤية
جزاكم الله خيرا 

msgBox-2003.rar

[ابوخليل]

شكرا لكم احبتي وأساتذتي الفضلاء جعفر  ومحمد والعبادلة

  الاستاذ جعفر  ..  يزيدني شرفا ان يكون لي مشاركة في أعمالك

        الاستاذ محمد سلامة ..  لا اعرف افضل من النماذج للتحكم  الكلي في الرسالة

       الاستاذ عبدالله قدور .. اتمنى انك استطعت تطبيق المثال

         الاستاذ عبدالله المجرب .. اسعدني مرورك

اخي الغالي محمد عصام  تفضل المثال بعد التعديل

والتغيير تم على كلمة واحدة فقط في الوحدة النمطية العامة

 

 

 

msgBox-3.rar

[عبد الله قدور]

السلام عليكم اخي ابو خليل

أنا صاحب المشكلة لكن عندي لا يعمل الكود ممكن لأني استخدم اكسس 2013

 

[محمد سلامة]

14 ساعات مضت, ابوخليل said:

شكرا لكم احبتي وأساتذتي الفضلاء جعفر  ومحمد والعبادلة

  الاستاذ جعفر  ..  يزيدني شرفا ان يكون لي مشاركة في أعمالك

        الاستاذ محمد سلامة ..  لا اعرف افضل من النماذج للتحكم  الكلي في الرسالة

       الاستاذ عبدالله قدور .. اتمنى انك استطعت تطبيق المثال

         الاستاذ عبدالله المجرب .. اسعدني مرورك

اخي الغالي محمد عصام  تفضل المثال بعد التعديل

والتغيير تم على كلمة واحدة فقط في الوحدة النمطية العامة

شكرا جزيلا اخى واستاذى ابو خليل

وهل يمكن تحقيق ذلك الامر بتغيير لون الخلفية او فريم الرسالة

في ٢٢‏/٢‏/٢٠١٦ at 19:32, محمد سلامة said:

و اطلب منه اذا كان هناك طريقة لتغير الخلفية الخاصة بالرسالة ايضا اذا امكن

 

[عبدالرحمن هاشم]

سلمت يمينك أستاذنا الكريم أبو خليل

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

جربت مثالك الكريم وتم بفضل الله وبكرمك

لم يعمل في البداية مع النموذج المنبثق

[رمهان]

السلام عليكم

هذا رابط ومن منتدانا 

مع اني لم ادخل في تفاصيله ولكن اعتقد انها تجربة بها فائدة 

 

تحياتي

[ابوخليل]

1 ساعه مضت, عبدالرحمن هاشم said:

لم يعمل في البداية مع النموذج المنبثق

شكرا اخوي عبدالرحمن على الملاحظة

يبدوا ان هذه هي مشكلة اخونا عبدالله قدور

[ابو جودي]

الان, ابوخليل said:

شكرا اخوي عبدالرحمن على الملاحظة

يبدوا ان هذه هي مشكلة اخونا عبدالله قدور

فعلا قمت بالتجربة وتحولت الازرار الى الانجليزية مرة اخرى

[سامي الضالعي]

استاذي ابو خليل بارك الله فيك وجزاك خير الدنيا والاخرة

شكرا على مشاركتك استفدت كثيرا