منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : اريد معرفة طريقة فتح الفورم في موضع محدد علي الشاشة
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاته
أرجو الافادة عن كود أو طريقة ما تجعلني عند ضغط زر يفتح الفورم فوق هذا الزر تماما كما هو موضح بالصور
و عليكم السلام و رحمة الله و بركاته
PHP كود :
Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles Button1.Click
        Dim frm 
As New Form
        frm
.StartPosition FormStartPosition.Manual
        frm
.Size = New Size(222111)
 
       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 
اولا بتضيف الاكواد لحدث لواد او بوتن فتح الفورم الجديد 


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


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