سلام عليكم
عندي form1 ,form2 ,panel1
اريد ان اظهر form2 اعلى ال panel1 بزاوية كما في الصورة ويكون ثابت في نفس الزاوية حتى مع تحريك form1
انا اعرف انها باحدثيات x , y ولكن فشلت في الحصول عليها
[
attachment=27492]
تفضل اخي هذا مثال بسيط
شاهد المقطع
يمكنك نسخ الكود من هنا او يمكنك تحميل المثال المرفق
كود :
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
تحميل المثال
[
attachment=27493]