مجدى يونس
Admin
عدد المساهمات : 3806
تاريخ التسجيل : 22/02/2013
العمر : 70
 |  موضوع: شريط متحرك اثناء البحث فى فورم الاكسل  السبت سبتمبر 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 الصورة ضع رد ليظهر الرابط
_________________ لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك | |
|
adel_zaky
عدد المساهمات : 14
تاريخ التسجيل : 30/08/2017
| | موضوع: رد: شريط متحرك اثناء البحث فى فورم الاكسل السبت نوفمبر 16, 2019 7:20 pm | |
| | |
|
مجدى يونس
Admin
عدد المساهمات : 3806
تاريخ التسجيل : 22/02/2013
العمر : 70
| | موضوع: رد: شريط متحرك اثناء البحث فى فورم الاكسل السبت نوفمبر 16, 2019 8:45 pm | |
| Thanks _________________ لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك | |
|
Adel200
عدد المساهمات : 235
تاريخ التسجيل : 12/09/2021
| | موضوع: رد: شريط متحرك اثناء البحث فى فورم الاكسل الأحد سبتمبر 19, 2021 4:14 pm | |
| | |
|
احمد ابو ايهاب
عدد المساهمات : 17
تاريخ التسجيل : 03/12/2023
| | موضوع: رد: شريط متحرك اثناء البحث فى فورم الاكسل السبت ديسمبر 30, 2023 1:00 am | |
| | |
|
