بار بسيط لمعاينة حركة اي كود على الفورم

[عبدالله باقشير]

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

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 Su

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

If Me.MousePointer = 11 Then Cancel = 1: Exit Sub

 
 
 
تحياتي
 
المرفق 2003
بار تحديث البيانات.rar
 
 

 
 

[حمادة عمر]

السلام عليكم

الاستاذ القدير والعلامة الخبير / عبدالله باقشير

بارك الله فيك

وزادك الله من فضله ومن علمه

واعجبني جدا جدا جدا طريقة استخدام الخط  wingdings  في الليبل

فهي لا تنم الا عن فكر راقي وابداعي

 

وما رأيك استاذي في ان يصبح البار هكذا .... (( مجرد فكرة ))

 

 

بارك الله لك في اولادك واهلك وعلمك ومالك

تقبل خالص تحياتي

[ضاحي الغريب]

اخي الحبيب ومعلمنا القدير // عبدالله باقشير

السلام عليكم ورحمة وبركاته

اللهم لا يحرمنا من عطاءك المتجدد بكل جديد

بارك الله فيك وجزاك خيرا

تقبل تحياتي

[أم عبد الله]

أستاذنا القدير علاّمة الوطن العربي / عبد الله باقشير

 

السلام عليكم ورحمة الله وبركاته

 

جزاك الله خيراً على هذا الإبداع .. بجد في منتهى الروعة والجمال .أسأل الله العلي القدير أن يزيدك من فضله وعلمله ويجعل جميع اعمالك في ميزان حسناتك. لك كل التحية والتقدير.

[أم عبد الله]

أستاذنا الكبير / حمادة عمر

 

السلام عليكم ورحمة الله وبركاته

 

جزاك الله خيراً على هذه الإضافة الرائعة.  ويمكن استبدالها بالكثير جربتها ونفعت والحمد لله.لك كل التحية والتقدير

[عبدالله المجرب]

ملف رائع جداً

[الشهابي]

أستاذنا القدير / عبد الله باقشير

الإبداع عندك ليس له حدود يتوقف عندها

شي رائع وجميل 

بارك الله فيك أستاذنا ورفع قدرك

[وليد فتحي]

عليكم السلام ورحمة الله وبركاته

استاذنا الفاضل وعلامة الوطن العربي الاستاذ عبدالله باقشير

جزاك الله عنا كل خير على ما تقدمة من ابداع وفكر راقي

بارك الله فيك وزادك من علمه واسكنك الفردوس الاعلي

تحياتي لك

[ابو بهاء المصري]

استاذ وعبقري منتدي الاكسيل / عبدالله باقشتير

لم اتعامل معك لاكن اجد الكل يعطيك مكانتك ووضعك

لك جزيل الشكر علي افكارك التي قد تاتي علي راس كل من يتعامل مع الاكسيل

جزاك الله خيرا

[saad abed]

^{استاذى عبدالله باقشير}

^{جزاك الله خيرا عن كل ابداعاتك التى تقدمها لنا}

^{بارك الله فيك}

^{وجعل علمك وتعليمك لنا فى ميزان حسناتك}

[طلعت محمد حسن]

أستاذنا الكبير عبد اللة باقشير

جزاك اللة كل خير واللة يعطيك الصحة والعافية.

[شوقي ربيع]

السلام عليكم

استادنا القدير عبد الله باقشير

اعمالك دائما لا غبار عليها و تنم عن الابداع المنقطع النظير

فهنيا لنا بأستاد عظيم مثلك

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

 

هي ان تكون سرعة تحرك البار متطابقة مع سرعة البحث

ففي الملف الذي ادرجته مثلا الوقت المستغرق عند البحث عن رقم 1 اكثر من البحث عن رقم 2

لاكن سرعة البار هي نفسها في هذه الحالة ولما يكون عندنا قاعدة بيانات كبيرة الكود راح يزيد من بطاء البحث 

 

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

                If i Mod Lr / 100 = 0 Then
                PrgS = PrgS + 1
                Image_barre1.Width = PrgS * 1.5
                Label_barre1.Caption = PrgS & "%"
                DoEvents
                End If

وقد ركبته على الملف الخاص بك كما هو في المرفق

ارجو ان تعطينا رئيك فيه وان امكن تدمجه مع الكود الخاص بك

واكرر اعتذاري كما ارجو ان تتقبل هته الملاحظة

فليس لي غرض سوى تحريك واثراء الموضوع بالنقد او الاراء البنائة

تقبل مني تحياتي وتقديري

 

بار تحديث البيانات.rar

[إبراهيم ابوليله]

اخى عبدالله

دائما ما يحتاج المنتدى الى عمل

يجدد به حيويه هذا المنتدى

ونحن دائما نتعطش الى كل ما جديد منك

بارك الله لنا فيكم

[احمد فضيله]

جزاك الله كل خير

[عبدالله باقشير]

السلام عليكم

الاستاذ القدير والعلامة الخبير / عبدالله باقشير

بارك الله فيك

وزادك الله من فضله ومن علمه

واعجبني جدا جدا جدا طريقة استخدام الخط  wingdings  في الليبل

فهي لا تنم الا عن فكر راقي وابداعي

 

وما رأيك استاذي في ان يصبح البار هكذا .... (( مجرد فكرة ))

 

 

بارك الله لك في اولادك واهلك وعلمك ومالك

تقبل خالص تحياتي

 

جزاكم الله خيرا واثابكم بدعائكم واعطاكم بمثله اضعاف مضاعفة

 

-----------

البار قصدته اشعار انتظار و ممكن تعمله بالطريقة التي تناسبك

 

تقبلوا تحياتي وشكري

[عبدالله باقشير]

السلام عليكم

الاخ الفاضل ضاحي الغريب

الاخت الفاضلة ام عبدالله

الاخ الفاضل عبدالله المجرب

الاخ الفاضل الشهابي

الاخ الفاضل ابو بهاء المصري

الاخ الفاضل سعد عابد

الاخ الفاضل طلعت محمد حسن

الاخ الفاضل وليد فتحي

الاخ الفاضل ابراهيم ابو ليلة

الاخ الفاضل احمد فضيلة

 

جزاكم الله خيرا واثابكم بدعائكم واعطاكم بمثله اضعاف مضاعفة

 

تقبلوا تحياتي وشكري

[عبدالله باقشير]

السلام عليكم

الاخ الفاضل شوقي ربيع

عادي يا اخي يمكنك ان تناقش اي شي ما فيش مشكلة عندي

انا صممت هذا العمل ليكون على كائن واحد فقط ويكون له كود واحد فقط ليتم تشغيله به وذلك ليسهل نقله واستخدامه للكل

وايضا اردته ان يكون بهذا الاسلوب التشغيلي ( الشكل المصمم) ليكون مثل البار الشائع الاستخدام

اما عن البطىء الذي تتحدث عنه فقد يكون مطلوب في بعض الاعمال ( شكل جمالي )

وهوهنا يعتبر لا شي حيث لا يتعدى ثانية في 10000 صف

واذا اردت ان تجعله بمثل سرعة كودك

شيل  DoEvents من مكانها الحالي وضعها داخل كود البار داخل شرط الحركة

 

هكذا :

If N Then If MI Mod N = 0 Then Me.LabelPar.Caption = Me.LabelPar.Caption & "n": DoEvents

ارجو ان يكون واضح ما اوردته اليكم

 

تقبلوا تحياتي وشكري

[جلال الجمال_ابو أدهم]

استاذ / عبدالله باقشير

 

بارك الله فيك و اعطاك الله من فضله

[حمادة باشا]

الأستاذ الكبير/ عبدالله باقشير

السلام عليكم ورحمة الله وبركاته

مجهود رائع وأفكار ممتازة بكود بسيط - جزاكم الله كل خير

تقبل تحياتي