أنس دروبي قام بنشر ديسمبر 14, 2011 مشاركة قام بنشر ديسمبر 14, 2011 السلام عليكم ورحمة الله وبركاته أخواني أعضاء هذا المنتدى الكريم والمتميز أشتقت لكم كثيراً لعدم تواصلي معكم في الفترة اﻷخيرة نظراً للظروف الصعبة لدي اليوم فكرة فأحببت أن أعرضها عليكم عسى الله أن تجدون لي الحل والطريقة وهي عندما نقوم مثلاً بتنزيل برامج خدمية او محاسبية على الكمبيوتر لدينا وعند فتح البرنامح أول مرة تظهر لدينا نافذة وهي إدخال معلومات أو رسائل أو أي شيء آخر ومن ثم يفتح البرنامج وعند فتحه مرة آخرى لا تظهر لدينا هذه الرسائل أو النوافذ فالمطلوب أخواني في الملف المرفق يوجد فورم وعند فتح الملف ﻷول مرة على جهاز الكمبيوتر الذي تعمل عليه ان يظهر هذا الفورم ومن ثم لا يظهر عندما يفتح مرة آخرى عسى الله أن أكون أوفيت بالشرح ووصلت الفكرة إليكم والسلام عليكم أخوكم أنس دروبي Company .rar رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر ديسمبر 15, 2011 مشاركة قام بنشر ديسمبر 15, 2011 تفضل أخي الكريم هذه فكرة بسيطة لعمل المطلوب mas_showform_1st_time_only.rar 2 رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر ديسمبر 15, 2011 مشاركة قام بنشر ديسمبر 15, 2011 ماشاء الله استاذ محمد فكرة بسيطة بس روووووعة ادم الله عليك نعمة العلم وزادك في الرزق ابواحمد رابط هذا التعليق شارك More sharing options...
الفدائي قام بنشر ديسمبر 15, 2011 مشاركة قام بنشر ديسمبر 15, 2011 ما شاء الله فكرة ممتازة - تشبه خيار انشاء مدير للنظام عند فتح البرنامج لأول مرة وذلك بعمل شيك للمطلوب بارك الله فيك رابط هذا التعليق شارك More sharing options...
الجزيرة قام بنشر ديسمبر 15, 2011 مشاركة قام بنشر ديسمبر 15, 2011 أخي الحبيب / محمد صالح حل من فئة السهل الممتنع ، ينم عن سرعة البديهه :) رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر ديسمبر 15, 2011 مشاركة قام بنشر ديسمبر 15, 2011 الاخ الفاضل محمد صالح فكرة جميلة و الاجمل منه البساطة بارك الله فيك احببت ان اشارككم بهذا الكود و هو يستخدم الرجستري في حفظ القيم (ظهور الرسالة و الفورم) Private Sub Workbook_Open() Dim strValue As String azz = GetSetting("yah", "med", "اول مرة", "Yes") If azz <> "No" Then MsgBox "هذه اول مرة تستعمل الملف" UserForm1.Show SaveSetting "yah", "med", "اول مرة", "No" End If End Sub رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر ديسمبر 15, 2011 مشاركة قام بنشر ديسمبر 15, 2011 احترام من القلب اخيكم رابط هذا التعليق شارك More sharing options...
أنس دروبي قام بنشر ديسمبر 16, 2011 الكاتب مشاركة قام بنشر ديسمبر 16, 2011 السلام عليكم ورحمة الله وبركاته الله يجزيكم الخير أخواني على الحل واعتذر عن التأخير في الرد بالنسبة لحل أستاذنا محمد صالح هو أعطى المطلوب ولكن بطريقة أخرى فعندما اقوم بنقل الملف الى كمبيوتر آخر لا يظهر الفورم وهذا لا أريده الذي أريده هو ربط ظهور الفورم بذاكرة الكمبيوتر بحيث إذا تم نقله يظهر الفورم مرة أخرى تلقائيا عند الفتح الملف ﻷول مرة على الجهاز طريقة أستاذي محمد صالح كما سمينها السهل الممتنع هي أرتبطت بالصفحات وليس بجهاز الكمبيوتر أرجو ان أكون أوفيت بالشرح حول هذه الفكرة وشكرا أخوكم أنس دروبي رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر ديسمبر 16, 2011 مشاركة قام بنشر ديسمبر 16, 2011 السلام عليكم تابع هذا الموضوع للاستاذ القدير محمد يحياوي مشاركة رقم 10# http://www.officena.net/ib/index.php?showtopic=39748 رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر ديسمبر 16, 2011 مشاركة قام بنشر ديسمبر 16, 2011 احببت ان اشارككم بهذا الكود و هو يستخدم الرجستري في حفظ القيم (ظهور الرسالة و الفورم) Private Sub Workbook_Open() Dim strValue As String azz = GetSetting("yah", "med", "اول مرة", "Yes") If azz <> "No" Then MsgBox "هذه اول مرة تستعمل الملف" UserForm1.Show SaveSetting "yah", "med", "اول مرة", "No" End If End Sub اخي الكريم يظهر انك لم تجرب الكود السابق ... فيه المطلوب بالظبط فتح فورم لمرة واحدة.rar رابط هذا التعليق شارك More sharing options...
أنس دروبي قام بنشر ديسمبر 16, 2011 الكاتب مشاركة قام بنشر ديسمبر 16, 2011 الله يجزيك الخير اخي محمد يحياوي فقد شاهدت الملف وكان هو المطلوب بكل معنى الكلمة وشاهدت ايضاً المشاركة رقم ١٠ في موضوعك حفظ قيم الريجستي وحفظ اﻹعدادت وأشكر جميع اﻷعضاء على مشاركتهم وأدام الله على أستاذنا محمد يحياوي وعلى جميع اﻷعضاء نعمة العلم ونشره والسلام عليكم أخوكم أنس دروبي رابط هذا التعليق شارك More sharing options...
.thumb.jpg.546ec64fdc5bdcb6d1f6585dd86fc424.jpg)
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.