اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

وعليكم السلام :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 2
قام بنشر
1 ساعه مضت, عبدالرحمن هاشم said:

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

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

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

  • Like 2
قام بنشر
الان, ابوخليل said:

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

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

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

  • 10 months later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information