عبد الله قدور قام بنشر فبراير 21, 2016 مشاركة قام بنشر فبراير 21, 2016 السلام عليكم كيف يمكن ان نغير تسمية الازرار في الرسالة msgbox مثلا عندما نضع رسالة ويختار المستخدم خيار معين نضع رسالة نعم لا فهل من الممكن ان نغيرها الى لغة أخرى رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 21, 2016 مشاركة قام بنشر فبراير 21, 2016 وعليكم السلام ابش رايك في 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 جعفر 4 رابط هذا التعليق شارك More sharing options...
عبد الله قدور قام بنشر فبراير 21, 2016 الكاتب مشاركة قام بنشر فبراير 21, 2016 أشكال جيدة وممتازة وفكرة رائعة لكن طلبي هو تغيير لغة الازرار في الرسالة بدلا من نعم لا يكون بالانكليزية مثلا yes no أو بالتركية evet hayır اريد ان اتحكم بالنص المكتوب على الزر بحيث اكتب النص الذي اريده وباللغة التي اريدها رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر فبراير 21, 2016 مشاركة قام بنشر فبراير 21, 2016 شكرا اخي جعفر على هذه النوادر الجميلة وتفضل اخي عبدالله يمكنك كتابة اي شيء على الزر Dim resalh As Integer Ok = "أكيد موافق" Cancel = "not agree" MessageBoxH Me.hwnd resalh = MsgBox("تفضل هذه الخلطة في اللغة", vbOKCancel, "رسالة") 8 رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر فبراير 22, 2016 مشاركة قام بنشر فبراير 22, 2016 عدم الرد من صاحب السوال جعلني ادخل مرة اخرى اواكتشف اني لم ارفق الوحدة المسؤولة عن الترجمة تفصل والصقها في صفحة وحدة نمطية جديدة 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 9 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 22, 2016 مشاركة قام بنشر فبراير 22, 2016 5 دقائق مضت, ابوخليل said: عدم الرد من صاحب السوال جعلني ادخل مرة اخرى اواكتشف اني لم ارفق الوحدة المسؤولة عن الترجمة تفصل والصقها في صفحة وحدة نمطية جديدة أخوي ابو خليل رحم الله والديك دنيا وآخرة ، كنت اريد ابحث عنها جعفر وتمت التجربة بنجاح وان شاء الله استخدم هذه الطريقة في مرفق الرابط: http://www.officena.net/ib/topic/67205-هل-من-حل-شافى-لمشكلة-اختلاف-اعدادات-اللغة-بالويندز-على-الأجهزة-المختلفة/?do=findComment&comment=437551 وبهذه الطريقة يتكامل الموضوع اكثر جعفر 2 رابط هذا التعليق شارك More sharing options...
محمد سلامة قام بنشر فبراير 22, 2016 مشاركة قام بنشر فبراير 22, 2016 مبدع استاذ جعفر استاذ ابوخليل بارك الله فيكم وفي اولادكم وغفر لكم ولذويكم اجمعين كنت استخدم في برنامجي الارشفة الالكترونية بدل الرسائل التقليدية رسائل من صنعي في شكل نموذج واقوم بتصميمها حسب الشكل الذي احتاجه وما يعيب هذه الطريقة كثرة النماذج لانني كنت اصمم كل رسالة في نموذج مستقل ومع تعدد اشكال الرسائل ففكرة استاذ ابوخليل جميل جدا واتمني منه ان يرفق الاكواد في مرفق حتي يسهل علي رواد الموقع استخدامه.. و اطلب منه اذا كان هناك طريقة لتغير الخلفية الخاصة بالرسالة ايضا اذا امكن شكرا لكم استاذي ابوخليل/ جعفر رابط هذا التعليق شارك More sharing options...
عبد الله قدور قام بنشر فبراير 22, 2016 الكاتب مشاركة قام بنشر فبراير 22, 2016 (معدل) جزاك الله أخي ابوخليل سامحني فأنا لا استطيع مراجعة مشاركاتي الا بعد العودة من العمل مساء ومشكور كتير والذي فهمته من كلامك انه يجب علي ان اضيف الوحدة النمطية ثم استخدم الكود الذي ارفقته في مشاركتك الاولى لكن أخي ابو خليل لم افلح في تطبيق ما ذكرت مع اني قمت بعمل نسخ لصق للكود والوحدة النمطية تم تعديل فبراير 22, 2016 بواسطه عبد الله قدور رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر فبراير 23, 2016 مشاركة قام بنشر فبراير 23, 2016 اخي عبدالله جربت الكود الخاص باستاذنا ابو خليل وكانت النتيجة جداً رائعة رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر فبراير 23, 2016 مشاركة قام بنشر فبراير 23, 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 1 رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر فبراير 24, 2016 مشاركة قام بنشر فبراير 24, 2016 شكرا لكم احبتي وأساتذتي الفضلاء جعفر ومحمد والعبادلة الاستاذ جعفر .. يزيدني شرفا ان يكون لي مشاركة في أعمالك الاستاذ محمد سلامة .. لا اعرف افضل من النماذج للتحكم الكلي في الرسالة الاستاذ عبدالله قدور .. اتمنى انك استطعت تطبيق المثال الاستاذ عبدالله المجرب .. اسعدني مرورك اخي الغالي محمد عصام تفضل المثال بعد التعديل والتغيير تم على كلمة واحدة فقط في الوحدة النمطية العامة msgBox-3.rar 4 رابط هذا التعليق شارك More sharing options...
عبد الله قدور قام بنشر فبراير 24, 2016 الكاتب مشاركة قام بنشر فبراير 24, 2016 السلام عليكم اخي ابو خليل أنا صاحب المشكلة لكن عندي لا يعمل الكود ممكن لأني استخدم اكسس 2013 رابط هذا التعليق شارك More sharing options...
محمد سلامة قام بنشر فبراير 24, 2016 مشاركة قام بنشر فبراير 24, 2016 14 ساعات مضت, ابوخليل said: شكرا لكم احبتي وأساتذتي الفضلاء جعفر ومحمد والعبادلة الاستاذ جعفر .. يزيدني شرفا ان يكون لي مشاركة في أعمالك الاستاذ محمد سلامة .. لا اعرف افضل من النماذج للتحكم الكلي في الرسالة الاستاذ عبدالله قدور .. اتمنى انك استطعت تطبيق المثال الاستاذ عبدالله المجرب .. اسعدني مرورك اخي الغالي محمد عصام تفضل المثال بعد التعديل والتغيير تم على كلمة واحدة فقط في الوحدة النمطية العامة شكرا جزيلا اخى واستاذى ابو خليل وهل يمكن تحقيق ذلك الامر بتغيير لون الخلفية او فريم الرسالة في ٢٢/٢/٢٠١٦ at 19:32, محمد سلامة said: و اطلب منه اذا كان هناك طريقة لتغير الخلفية الخاصة بالرسالة ايضا اذا امكن رابط هذا التعليق شارك More sharing options...
عبدالرحمن هاشم قام بنشر مارس 5, 2016 مشاركة قام بنشر مارس 5, 2016 سلمت يمينك أستاذنا الكريم أبو خليل جزاك الله عنا كل خير جربت مثالك الكريم وتم بفضل الله وبكرمك لم يعمل في البداية مع النموذج المنبثق 1 رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر مارس 5, 2016 مشاركة قام بنشر مارس 5, 2016 السلام عليكم هذا رابط ومن منتدانا مع اني لم ادخل في تفاصيله ولكن اعتقد انها تجربة بها فائدة تحياتي 2 رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر مارس 5, 2016 مشاركة قام بنشر مارس 5, 2016 1 ساعه مضت, عبدالرحمن هاشم said: لم يعمل في البداية مع النموذج المنبثق شكرا اخوي عبدالرحمن على الملاحظة يبدوا ان هذه هي مشكلة اخونا عبدالله قدور 2 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر مارس 5, 2016 مشاركة قام بنشر مارس 5, 2016 الان, ابوخليل said: شكرا اخوي عبدالرحمن على الملاحظة يبدوا ان هذه هي مشكلة اخونا عبدالله قدور فعلا قمت بالتجربة وتحولت الازرار الى الانجليزية مرة اخرى رابط هذا التعليق شارك More sharing options...
سامي الضالعي قام بنشر يناير 14, 2017 مشاركة قام بنشر يناير 14, 2017 استاذي ابو خليل بارك الله فيك وجزاك خير الدنيا والاخرة شكرا على مشاركتك استفدت كثيرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان