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

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

الصورة

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


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

الف شكر

شكرا لك