منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اظهار الفروم - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اظهار الفروم (/showthread.php?tid=40471)

اظهار الفروم - محمود صالح - 13-01-22

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

[attachment=27492]

RE: اظهار الفروم - معاند الحظ - 13-01-22

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

شاهد المقطع





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

كود :
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]

RE: اظهار الفروم - محمود صالح - 13-01-22

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