البحث في الموقع
Showing results for tags 'بار'.
تم العثور علي 1 نتيجه
-
السلام عليكم بار بسيط لمعاينة حركة اي كود على الفورم يمكنك استخدامة لاي كود يستخدم فور نكست على الفورم ويمكنك نقله مع الاكواد الخاص به الى اي فورم في ملفك هذا كود البار 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