اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by ابوخليل,

الردود الموصى بها

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

مع جزيل الشكر

88 ‫‬.accdb

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

  • عمر طاهر changed the title to مساعدة شريط تقدم حسب رقم
  • أفضل إجابة

السلام عليكم

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

مبدع

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • المتواجدين الان   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information