[محمود صالح]

سلام عليكم
عندي form1 ,form2  ,panel1 
اريد ان اظهر form2 اعلى ال panel1  بزاوية كما في الصورة ويكون ثابت في نفس الزاوية حتى مع تحريك  form1
انا اعرف انها باحدثيات x , y ولكن فشلت في الحصول عليها

   

[معاند الحظ]

تفضل اخي هذا مثال بسيط 

شاهد المقطع





يمكنك نسخ الكود من هنا او يمكنك تحميل المثال المرفق

كود :

Public Class Form1
    Dim x, y As Integer
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Form2.Show()
        x = getPanelLocation.X - Form2.Width
        y = getPanelLocation.Y - Form2.Height
        Form2.Left = x
        Form2.Top = y
    End Sub

    Private Sub Form1_Move(sender As Object, e As System.EventArgs) Handles Me.Move
        x = getPanelLocation.X - Form2.Width
        y = getPanelLocation.Y - Form2.Height
        Form2.Left = x
        Form2.Top = y
    End Sub

    Function getPanelLocation() As Point
        Return PointToScreen(Panel1.Location)
    End Function
End Class

تحميل المثال

  RepositionExample.zip (الحجم : 74.47 ك ب / التحميلات : 9)

[محمود صالح]

بارك الله فيك اخي معاند