النموذج يفتح على شكل ستارة جانبي او علوي

[عبد اللطيف سلوم]

السلام عليكم 

شاهدت احد البرامج على اكسس شكل النموذج رائع جدا

عند الفتح يظهر من اعلى الى اسفل

او من اليمين الى اليسار

 

ما هو الكود الخاص بهذه الحركات ؟؟

جزاكم الله خيرا 

مرفق فيديو صغير يوضح الموضوع 

move_frame.rar

[عبد اللطيف سلوم]

يا اخوان محتاج كود التحريك اذا تكرمتم 

 

جربت كود وما اشتغل عندي

 

[Shivan Rekany]

22 ساعات مضت, salloum68 said:

السلام عليكم 

شاهدت احد البرامج على اكسس شكل النموذج رائع جدا

عند الفتح يظهر من اعلى الى اسفل

او من اليمين الى اليسار

 

ما هو الكود الخاص بهذه الحركات ؟؟

جزاكم الله خيرا 

مرفق فيديو صغير يوضح الموضوع 

move_frame.rar

ھذا الكود لفتح النموذج من اليسارك الاعلى الى يمينك للاسفل
هذا عند فتح

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

وهذا في تايمر
 

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

وهذا الكود لفتح النموذج من يسارك الى يمينك
عند الفتح

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

وهذا من الاعلى الى الاسفل
 

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

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

واليك 3 نماذج بثلاث طرائق
 

ثلاث طرائق جميلة لفتح نماذج.rar

تم تعديل أكتوبر 19, 2017 بواسطه Shivan Rekany

[عبد اللطيف سلوم]

10 ساعات مضت, Shivan Rekany said:

ھذا الكود لفتح النموذج من اليسارك الاعلى الى يمينك للاسفل
هذا عند فتح

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

وهذا في تايمر
 

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

وهذا الكود لفتح النموذج من يسارك الى يمينك
عند الفتح

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

وهذا من الاعلى الى الاسفل
 

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

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

واليك 3 نماذج بثلاث طرائق
 

ثلاث طرائق جميلة لفتح نماذج.rar

اشكرك اخي الكريم

جاري التجربة 

صديقي 

بدي يكون اعرض واكبر من هيك

ضاعت المعلومات 

[عبد اللطيف سلوم]

اخي @Shivan Rekany

جربتهم كلهم شغالين يسلموا ايديك

 

لكن عندي حجم النموذج كبير

اذا تكرمت تغيير الارقام لكي يفتح نموذج كبير

جزاكم الله خيرا

صديقي زبط تعديل الارقام

 

لا تغلب حالك

 

اشكرك من اعماق قلبي

 

تم تعديل أكتوبر 20, 2017 بواسطه salloum68