اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

السلام عليكم

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

رابط هذا التعليق
شارك

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

 

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

 

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

sshot-81.png

sshot-78.png

sshot-104.png

sshot-309.png

.

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

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

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

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

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

 

 

جعفر

  • Like 4
رابط هذا التعليق
شارك

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

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

 

 

رابط هذا التعليق
شارك

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

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

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

 

  • Like 8
رابط هذا التعليق
شارك

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

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

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

 

  • Like 9
رابط هذا التعليق
شارك

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

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

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

أخوي ابو خليل :rol:

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

 

 

جعفر

 

 

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

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

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

 

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

 

 

جعفر

  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

2016-02-22_19h43_38.png.9582db184e1243e7

تم تعديل بواسطه عبد الله قدور
رابط هذا التعليق
شارك

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

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

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


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

 

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

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

msgBox-2003.rar

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

 

 

 

msgBox-3.rar

  • Like 4
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

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

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

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

 

رابط هذا التعليق
شارك

  • 2 weeks later...

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

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

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

 

تحياتي

  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

  • 10 months later...

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information