طريقة عمل Sliding Form وإزاحة الفريمات في اليوزرفورم

[علي الشيخ]

 

أتمنى من الله ان تكونوا في تمام الصحة والعافية

 

موضوع بسيط وجديد على البعض وفائدته أنه يعمل إنتقال من الفريمات الموجودة في اليوزر فورم بشكل غير تقليدي وسلس

 

في المثال المرفق يوجد يوزر فورم وبه عدد 2  Frame ويتم الإنتقال من فريم للأخر بزر عادي ولكن طريقة الإنتقال هي موضوعنا

 

الأكواد المستخدمة

 

أكواد الـ UserForm يحتوي على 2 Command Button لإنتقال من فريم للأخر

Option Explicit

Private Sub CommandButton1_Click()
    While Frame2.Left > 6
        Frame2.Left = Frame2.Left - 10
        DoEvents
        Sleep 10
    Wend
End Sub

Private Sub CommandButton2_Click()
    While Frame2.Left < 266
        Frame2.Left = Frame2.Left + 10
        DoEvents
        Sleep 10
    Wend
End Sub


Private Sub UserForm_Initialize()
    Me.Width = 262
    Frame2.Left = 266
    Frame2.Top = 6
End Sub

كود مستخدم في Module عادي

Option Explicit

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

أتمنى يكون الموضوع خفيف وواضح والمرفق به التطبيق

ودمتم في حفظ الله

 

 

Sliding Form.rar

[ياسر خليل أبو البراء]

بارك الله فيك أخي الغالي علي الشيخ

ولسه ياما نشوف إبداعاتك

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

[إبراهيم ابوليله]

اخى

على

طبعا طريقه الانتقال من فريم الى اخر

معروفه للكثير

ولكن بالتأكيد الاكثر كان يجهل

انه يمكن تنفيذ ذلك بهذه الطريقه

الاكثر جمالا

بصراحه

بارك الله فيك

وزادك من فضله وعلمه

تقبل تحياتى

[Yasser Fathi Albanna]

رائع أخى على الشيخ

بارك الله فيك

[غسان العبيدي]

......سلمت يداك......

عمل رائع.. وفقك الله.