تعلم واقرأ وارتقِ
[img]شريط متحرك اثناء البحث فى فورم الاكسل Uoou910[/img]

تعلم واقرأ وارتقِ


 
الرئيسيةالبوابةالتسجيلدخول
غفرانك ربنا واليك المصير
رب زدني علما
سجل بالمنتدى ليظهر لك باقى المواضيع المهمه
سبحانك لا علم لنا إلا ما علمتنا أنك أنت العليم
علم اولادك برياض الأطفال والصفوف الأولى من التعليم الابتدائى
مجدى يونس ببورسعيد
أهلا بك من جديد يا زائر آخر زيارة لك كانت في
آخر عضو مسجل ahmed555m فمرحبا به

عزيزى زائر المنتدى مرحبا بك نرجو التسجيل حتى تشاهد باقى الصفحات المختفية بها المواضيع المهمة

شاطر
 

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

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

عدد المساهمات : 1259
تاريخ التسجيل : 17/05/2012
الموقع : محافظة بورسعيد

شريط متحرك اثناء البحث فى فورم الاكسل Empty
مُساهمةموضوع: شريط متحرك اثناء البحث فى فورم الاكسل   شريط متحرك اثناء البحث فى فورم الاكسل Icon_minitimeالسبت سبتمبر 14, 2019 11:16 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

الصورة

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


ضع رد لظهور رابط الملف


_________________
من أحب الله رأى كل شئ جميلا
مع تحياتى مجدى يونس
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdiyonis1.forumegypt.net
قشش



عدد المساهمات : 16
تاريخ التسجيل : 07/09/2019

شريط متحرك اثناء البحث فى فورم الاكسل Empty
مُساهمةموضوع: رد: شريط متحرك اثناء البحث فى فورم الاكسل   شريط متحرك اثناء البحث فى فورم الاكسل Icon_minitimeالسبت أكتوبر 26, 2019 3:40 am

جزاك الله خيرا
الرجوع الى أعلى الصفحة اذهب الى الأسفل
مجدى يونس
Admin
مجدى يونس

عدد المساهمات : 1259
تاريخ التسجيل : 17/05/2012
الموقع : محافظة بورسعيد

شريط متحرك اثناء البحث فى فورم الاكسل Empty
مُساهمةموضوع: رد: شريط متحرك اثناء البحث فى فورم الاكسل   شريط متحرك اثناء البحث فى فورم الاكسل Icon_minitimeالسبت أكتوبر 26, 2019 4:01 am

شكرا لك

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

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