مجاهد2013 قام بنشر أغسطس 3, 2021 مشاركة قام بنشر أغسطس 3, 2021 السلام عليكم أحبتي أرجو مساعدتكم في هذا المرفق : عملت شاشة افتتاحية على ان يظهر فورم الشاشة دون ظهور ملف الاكسل و بعد لحظات يفتح الملف على شست MAIN أريد عمل كود لشريط انتظار : جاري تهيئة البرنامج ........كما في الصورة المرفقة و شكرا Classeur1111.xlsm 1 رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر أغسطس 3, 2021 مشاركة قام بنشر أغسطس 3, 2021 بعد استعمال البحث في المنتدى ستجد الكثير إن شاء الله تفيدك هذه المواضيع https://www.officena.net/ib/search/?q=progress bar&updated_after=any&sortby=relevancy&search_and_or=and بالتوفيق 2 رابط هذا التعليق شارك More sharing options...
مجاهد2013 قام بنشر أغسطس 4, 2021 الكاتب مشاركة قام بنشر أغسطس 4, 2021 أ محمد صالح السلام عليكم و الله أنا قمت بمحاولة ممكن تعدل على الكود لكي يتماشى مع الprogress و تصحح لو فيه خلل و شكرا مسبقا Classeur1111.xlsm 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة أ / محمد صالح قام بنشر أغسطس 4, 2021 أفضل إجابة مشاركة قام بنشر أغسطس 4, 2021 رائع جدا تطبيقك للفكرة ويمكنك استعمال هذا الكود فقط في النموذج Private Sub UserForm_Activate() minutes = 0.1 For a = 1 To 100 timer_avant = Timer Do While Timer < timer_avant + minutes DoEvents Me.Im1.Width = a * 474 / 100 Me.Nour1.Caption = a Loop Next Me.Hide End Sub لاحظ التغيير في عرض التسمية im1.width حيث 474 هو العرض الأساسي للتسمية ونحن قسمنا 474 على 100 ثم ضربنا في a لنحصل على العرض الكامل في نهاية العداد a بالتوفيق 1 رابط هذا التعليق شارك More sharing options...
مجاهد2013 قام بنشر أغسطس 4, 2021 الكاتب مشاركة قام بنشر أغسطس 4, 2021 الف شكر و تحياتي أستاذنا 1 رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر أغسطس 5, 2021 مشاركة قام بنشر أغسطس 5, 2021 يمكنك تجربة هذا المرفق بإخراج آخر وتكبير حجم شريط التقدم وكتابة النسبة في المنتصف في تسمية واحدة شفافة بالتوفيق Classeur1111.rar 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان