مساعدة شريط تقدم حسب رقم

[عمر طاهر]

السلام عليكم ورحمة الله 
المطلوب تعديل حيث يعبر الشريط  عن حجم الرقم الموجود في المربع 
كأن كتبنا 1 يمتلئ بلحظة 
وان كتبنا 400 يستغرق وقت اكثر 

مع جزيل الشكر

88 ‫‬.accdb

تم تعديل يوليو 5, 2022 بواسطه عمر طاهر

[Eng.Qassim]

36 دقائق مضت, عمر طاهر said:

وان كتبنا 400 يستغرق وقت اكثر

ممكن تفشرها كويس ☺️

انا دخلت 1 ودخلت 400 ...نفس الشي

[عمر طاهر]

47 دقائق مضت, Eng.Qassim said:

ممكن تفشرها كويس ☺️

انا دخلت 1 ودخلت 400 ...نفس الشي

اخي انا طالب تعديل على الملف لتتغير النتيجة.

[ابوخليل]

السلام عليكم

تفضل اخوي عمر حسب طلبك

استخدمت مربعي نص من اجل تحقيق الفكرة

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

Private Sub Form_Open(Cancel As Integer)
Me.box2.Width = 6600
End Sub
Private Sub Form_Timer()
On Error Resume Next
If Me.box2.Width = 0 Then
Me.TimerInterval = 0
Else
Me.box2.Width = Me.box2.Width - Me.box1.Width \ Me.lx
End If
End Sub
Private Sub أمر3_Click()
Me.box2.Width = 6600
Me.TimerInterval = 50
End Sub

 

88 _2.accdb

[عمر طاهر]

1 ساعه مضت, ابوخليل said:

السلام عليكم

تفضل اخوي عمر حسب طلبك

استخدمت مربعي نص من اجل تحقيق الفكرة

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

Private Sub Form_Open(Cancel As Integer)
Me.box2.Width = 6600
End Sub
Private Sub Form_Timer()
On Error Resume Next
If Me.box2.Width = 0 Then
Me.TimerInterval = 0
Else
Me.box2.Width = Me.box2.Width - Me.box1.Width \ Me.lx
End If
End Sub
Private Sub أمر3_Click()
Me.box2.Width = 6600
Me.TimerInterval = 50
End Sub

 

88 _2.accdb 424 kB · 3 downloads

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

مبدع