[الشاكي لله]

(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))

بالتوفيق