علي الشيخ قام بنشر مايو 26, 2015 مشاركة قام بنشر مايو 26, 2015 أتمنى من الله ان تكونوا في تمام الصحة والعافية موضوع بسيط وجديد على البعض وفائدته أنه يعمل إنتقال من الفريمات الموجودة في اليوزر فورم بشكل غير تقليدي وسلس في المثال المرفق يوجد يوزر فورم وبه عدد 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 2 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مايو 26, 2015 مشاركة قام بنشر مايو 26, 2015 بارك الله فيك أخي الغالي علي الشيخ ولسه ياما نشوف إبداعاتك ربنا يجازيك خير ..صراحة قمة في الروعة تسلم الأيادي 1 رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر مايو 26, 2015 مشاركة قام بنشر مايو 26, 2015 اخى على طبعا طريقه الانتقال من فريم الى اخر معروفه للكثير ولكن بالتأكيد الاكثر كان يجهل انه يمكن تنفيذ ذلك بهذه الطريقه الاكثر جمالا بصراحه بارك الله فيك وزادك من فضله وعلمه تقبل تحياتى رابط هذا التعليق شارك More sharing options...
Yasser Fathi Albanna قام بنشر مايو 26, 2015 مشاركة قام بنشر مايو 26, 2015 رائع أخى على الشيخ بارك الله فيك رابط هذا التعليق شارك More sharing options...
غسان العبيدي قام بنشر يونيو 9, 2015 مشاركة قام بنشر يونيو 9, 2015 ......سلمت يداك...... عمل رائع.. وفقك الله. رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.