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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=37948)

اريد معرفة طريقة فتح الفورم في موضع محدد علي الشاشة - أبو عبدالله الحلواني - 06-03-21

السلام عليكم ورحمة الله وبركاته
أرجو الافادة عن كود أو طريقة ما تجعلني عند ضغط زر يفتح الفورم فوق هذا الزر تماما كما هو موضح بالصور

RE: اريد معرفة طريقة فتح الفورم في موضع محدد علي الشاشة - سعود - 07-03-21

و عليكم السلام و رحمة الله و بركاته
PHP كود :
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim frm As New Form
        frm.StartPosition = FormStartPosition.Manual
        frm.Size = New Size(222, 111)
        Dim fx As Integer = MousePosition.X
        Dim fy As Integer = MousePosition.Y
        frm.Location = New Point((fx - Button1.Left), (fy - frm.Height))
        frm.Show()
    End Sub 


RE: اريد معرفة طريقة فتح الفورم في موضع محدد علي الشاشة - احمد 2021 - 07-03-21

اولا بتضيف الاكواد لحدث لواد او بوتن فتح الفورم الجديد 


كود :
Dim x As Integer
Dim y As Integer
Me.StartPosition = FormStartPosition.Manual
' x = Screen.PrimaryScreen.WorkingArea.Width - Me.Width
       y = Screen.PrimaryScreen.WorkingArea.Height - Me.Height
       Me.Location = New Point(x, y)


RE: اريد معرفة طريقة فتح الفورم في موضع محدد علي الشاشة - أبو عبدالله الحلواني - 07-03-21

جزاكم الله خيرا 
حقيقة لا أملك سوي أن أدعو الله لكم بأن يثبتنا وأياكم علي الايمان ويبارك لكم في أعماركم وأعمالكم وأهليكم ويصلح ذرياتكم 
آمين
عمل كلا من الكودين بشكل جيد والحمد لله
ولكن قمت ببعض التعديلات لتوافق ما أريد بالضبط بهذا الشكل
كود :
       ChangPassFrm.StartPosition = FormStartPosition.Manual
       ChangPassFrm.Location = New Point((MousePosition.X - (ChangPassFrm.Width / 2)),  _
(MousePosition.Y - ChangPassFrm.Height))


       ChangPassFrm.Show()
استاذ سعود وأستاذ أحمد بارك الله لكم وجزاكم عنا خيرا