الاستاذ مجدى
شريط متحرك اثناء البحث فى فورم الاكسل 613623
عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا
او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي
سنتشرف بتسجيلك
شكرا شريط متحرك اثناء البحث فى فورم الاكسل 829894
ادارة المنتدي شريط متحرك اثناء البحث فى فورم الاكسل 103798

شريط متحرك اثناء البحث فى فورم الاكسل Uoou_u10





 
الرئيسيةالأستاذ التعليمضع التسجيلدخولالتسجيل
سبحانك لا علم لنا إلا ما علمتنا أنك أنت العليم
عزيزى الزائر قم بالتسجيل بالمنتدى لمشاهدة باقى الاقسام المهمه
مع تحيات مجدى عبد المنعم محمود يونس ببورسعيد " مدير المنتدى "
أهلا بك من جديد يا زائر آخر زيارة لك كانت في
آخر عضو مسجل tota_2012 فمرحبا به


شاطر
 

 شريط متحرك اثناء البحث فى فورم الاكسل

اذهب الى الأسفل 
كاتب الموضوعرسالة
مجدى يونس
Admin
مجدى يونس

عدد المساهمات : 3008
تاريخ التسجيل : 22/02/2013
العمر : 65

شريط متحرك اثناء البحث فى فورم الاكسل Empty
مُساهمةموضوع: شريط متحرك اثناء البحث فى فورم الاكسل   شريط متحرك اثناء البحث فى فورم الاكسل Avatarالسبت سبتمبر 14, 2019 11:06 pm

شريط متحرك اثناء البحث فى فورم الاكسل

هذا هو الكود

الكود:
Private Sub kh_Update_Par(MI As Long, MX As Long)
Static N As Integer
If N = 0 Then
    Me.MousePointer = 11
    Me.LabelPar.Visible = True
    Me.LabelPar.Caption = ""
    N = Int(MX / 30)
End If
'----------------------------------
If N Then If MI Mod N = 0 Then Me.LabelPar.Caption = Me.LabelPar.Caption & "n"
'----------------------------------
If MI = MX Then
    N = 0
    Me.LabelPar.Visible = False
    Me.MousePointer = 0
End If
End Sub

وهذه السطرين تضعها نهاية السلسلة فور نكست في اي كود تريد تشغيل البار معه
مع تغيير المتغييرات الخاصة بالكود حسب الكود خاصتك

الكود:
Call kh_Update_Par(i, Lr)
DoEvents

وهذا الكود يمنعك من غلق الفورم اثناء حركة البار

الكود:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If Me.MousePointer = 11 Then Cancel = 1
End Sub

اذا كنت تستخدم هذا الكود في الفورم خاصتك
استخدم السطر التالي في بداية الكود خاصتك

الكود:
If Me.MousePointer = 11 Then Cancel = 1: Exit Sub

الصورة

شريط متحرك اثناء البحث فى فورم الاكسل O111

ضع رد ليظهر الرابط



_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

شريط متحرك اثناء البحث فى فورم الاكسل Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
كاتب هذه المساهمة مطرود حالياً من المنتدى - معاينة المساهمة
مجدى يونس
Admin
مجدى يونس

عدد المساهمات : 3008
تاريخ التسجيل : 22/02/2013
العمر : 65

شريط متحرك اثناء البحث فى فورم الاكسل Empty
مُساهمةموضوع: رد: شريط متحرك اثناء البحث فى فورم الاكسل   شريط متحرك اثناء البحث فى فورم الاكسل Avatarالسبت نوفمبر 16, 2019 8:45 pm

Thanks

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

شريط متحرك اثناء البحث فى فورم الاكسل Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
 
شريط متحرك اثناء البحث فى فورم الاكسل
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
الاستاذ مجدى :: قسم مجموعة الاوفيس :: قسم الاكسل-
انتقل الى: