مساعده فى كود بسيط لشريط التحميل

[SHEREF ADEL]

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

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

  With UserForm4
      

        With ProgressBar1
            .Min = 1
            .Max = 100
        End With
         ProgressBar1.Value = ProgressBar1.Min + 1
        
         Loop
         Do Until ProgressBar1.Max

[SHEREF ADEL]

بعد عده محاولات والتجارب توصلت الى الكود التالى ويعمل بكفائه ولكن سرعه الشريط عاليه اظن هنا يلزم ربط وقت الشريط بمده ظهور اليوزرفورم هنا احتاج مساعدتكم
الكود ::

Private Sub UserForm_Click()

ProgressBar1.Value = ProgressBar1.Min
   
   
   

      

         ProgressBar1.Min = 1
           
            ProgressBar1.Max = 100
    
       
       
      ProgressBar1.Value = ProgressBar1.Min + 1
        
         
         ProgressBar1 = ProgressBar1.Max
         If ProgressBar1 = ProgressBar1.Max Then
         UserForm4.Hide
         UserForm1.Show
          End If
       
        

End Sub

ارجو سماع ارائكم

تم تعديل أغسطس 28, 2023 بواسطه SHEREF ADEL
خطا املائى

[عمر الجزاوى]

ارف ملف حتى لايتم تضيع وقت الاستاذة وترى من يقوم بمساعدتك