كيف اصنع نموذج يكبر تدريجيا

مرحبا اخي تفضل هذا مثال ممكن يفيدك

_______________________________.rar

اشكرك اخي الفاضل علي الرد والأجابة ،وان كنت ارغب في زيادة الأجر لك وان تشرح لي الكود المستخدم ،حتي لاصبح كمن يستخدم طريقة اللصق والنسخ فقط .

Option Compare Database

loveforever كتب:

اشكرك اخي الفاضل علي الرد والأجابة ،وان كنت ارغب في زيادة الأجر لك وان تشرح لي الكود المستخدم ،حتي لاصبح كمن يستخدم طريقة اللصق والنسخ فقط .

Private Sub Form_Open(Cancel As Integer)
Me.InsideWidth = 0
Me.TimerInterval = 100
End Sub

Private Sub Form_Timer()
Me.InsideWidth = Me.InsideWidth + 200
If Me.InsideWidth >= 4000 Then
Me.TimerInterval = 0
Me.InsideWidth = 4165
End If
End Sub

Option Compare Database

المشاركة الأولى

بسم الله الرحمن الرحيم

أتشرف بأن أكون عضو في هذا المنتدى الطيب

وأدعو الله أن يبارك جهود الاخوة ويزيدهم من فضله

ولقد استفدت كثيراً من هذه الأمثلة والنماذج المعروضة

وان شاء الله سأكون عضو فعال بهذا المنتدى المبارك