بالنسبة لمثالي فهي بسيطة جدا
فكرتها هي تحريك الاطار الذي يجمع ادوات معينة تحريكه اعلى واسفل يعني فقط top-=1 او اي قيمة واذا وصل الـ top الخاص بالاطار وصل حد الـ top الخاص بالفورم يتوقف.هذا اذا اردنا رفع الاطار لكن لو اردنا انزاله بدل ناقص نكتب + واذا وصل الـ top الخاص بالاطار اذا وصل الحد السفلي للفورم bottom ايضا يتوقف ونعمل على تحريك اطار اخر
(23-09-13, 02:32 PM)يوسف كتب : [ -> ]يا استاذ سعود انا اريد نفس المثال تحريك GroupBox1
ثم المثال الذي وضعت لم يشتغل عندي عشان عندي 2010
الحين اطلب منك وضع الكود هنا بالموضوع لو سمحت فقط
وهو لتحريك أداة GroupBox1 داخل فورم
عند الضغط على زر أمر Button1
نفس الحركة التي بمثالك دلع عميلك هل يصعب عليك ؟
لو يصعب عليك يا غالي بشوف احد ثاني يعمل لي المثال
بعد اذن اخينا سعود
هذي كلاس ستقوم بفعل المطلوب
كود :
''' <summary>
''' تحريك الادوات
''' </summary>
Public Class MoveControl
Public Enum MoveDirection
MoveUp
MoveDown
MoveLeft
MoveRight
End Enum
''' <summary>
''' تحريك اداة
''' </summary>
''' <param name="control">اسم الاداة المطلوب تحريكها</param>
''' <param name="direction">اتجاه تحريك الاداة</param>
''' <param name="Limit">الحد النهائي لتوقف الاداة عن الحركة -- بالبكسل</param>
Shared Sub Move(ByVal control As Control, ByVal direction As MoveDirection, ByVal Limit As Integer)
Select Case direction
Case MoveDirection.MoveUp
While control.Top > Limit
Application.DoEvents()
control.Top = control.Top - 1
End While
Exit Select
Case MoveDirection.MoveDown
While control.Top < Limit
Application.DoEvents()
control.Top = control.Top + 1
End While
Exit Select
Case MoveDirection.MoveLeft
While control.Left > Limit
Application.DoEvents()
control.Left = control.Left - 1
End While
Exit Select
Case MoveDirection.MoveRight
While control.Left < Limit
Application.DoEvents()
control.Left = control.Left + 1
End While
Exit Select
End Select
End Sub
End Class
طريقة الاستخدام :
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MoveControl.Move(GroupBox1, MoveControl.MoveDirection.MoveUp, 2)
End Sub
بعد تنفيذ الكود اعلاه ستتمكن من تحريك (groupBox1) الى أعلى حتى يصل الى (2 على المحور الصادي (y))
بالتوفيق
أخي العزيز سعود هذا هو كود تحريك الاداة GroupBox من اعلي لاسفل حتي يختفي
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
For i = 0 To 400
Application.DoEvents()
GroupBox1.Top += 1
Next
End Sub
وهذا الكود هو تحريك الاداة GroupBox ايضا من اسفل لاعلي حتي يختفي
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
For i = 0 To 400
Application.DoEvents()
GroupBox1.Top -= 1
Next
End Sub
السلام عليكم ورحمه الله وبركاته
تفضل اخي يوسف
[youtube]xJHKmPEJ_NQ[/youtube]
البرنامج في المرفقات
