+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : The Four Corners (/showthread.php?tid=46749)
The Four Corners - abuzarei - 17-08-23
Private Sub B1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B1.Click
Me.Location = New Point(0, 0)
End Sub
Private Sub B2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B2.Click
Dim x As Integer = Screen.PrimaryScreen.WorkingArea.Width - Me.Width
Dim y As Integer = 0
Me.Location = New Point(x, y)
End Sub
Private Sub B3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B3.Click
Dim x As Integer = 0
Dim y As Integer = Screen.PrimaryScreen.WorkingArea.Height - Me.Height
Me.Location = New Point(x, y)
End Sub
Private Sub B4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B4.Click
Dim x As Integer = Screen.PrimaryScreen.WorkingArea.Width - Me.Width
Dim y As Integer = Screen.PrimaryScreen.WorkingArea.Height - Me.Height
Me.Location = New Point(x, y)
End Sub
Private Sub B55_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B5.Click
Dim r As Integer = Me.Width * 0.5
Dim z As Integer = Me.Height * 0.5
Dim x As Integer = Screen.PrimaryScreen.WorkingArea.Width * 0.5 - r
Dim y As Integer = Screen.PrimaryScreen.WorkingArea.Height * 0.5 - z
Me.Location = New Point(x, y)
End Sub