Biểu mẫu vị trí ở góc dưới bên phải của màn hình trong hình ảnh cơ bản

Question

Làm cách nào tôi có thể định vị biểu mẫu ở góc dưới cùng bên phải của màn hình khi biểu mẫu tải? Tôi đang sử dụng Visual Basic 2010 Express.

Cảm ơn

EDIT: Tôi đã làm điều này và có vẻ như nó hoạt động tốt.

Dim x As Integer 
Dim y As Integer 
x = Screen.PrimaryScreen.WorkingArea.Width - 400 
y = Screen.PrimaryScreen.WorkingArea.Height - 270 
Me.Location = New Point(x, y) 

Answer 1

Bạn cần phải thay đổi Form.StartPosition sang chế độ Manual và thay đổi Vị trí tài sản của các hình thức

ví dụ how to set form startup location/position manually?

hoặc

VB.net - Form Start Position Upper Left

sử dụng Form.StartPosition Property và Form.Location Property

Answer 2

Bạn có thể lặp qua các biểu mẫu con và thực hiện một số tính toán dựa trên các thuộc tính trên cùng và bên trái (có thể muốn kết hợp các ô đó với các thuộc tính Chiều rộng và Chiều cao tùy thuộc vào yêu cầu của bạn là "dưới cùng bên trái")

HTH, Đánh dấu

Answer 3

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    Me.Visible = True 
    Dim x As Integer 
    Dim y As Integer 
    x = Screen.PrimaryScreen.WorkingArea.Width 
    y = Screen.PrimaryScreen.WorkingArea.Height - Me.Height 

    Do Until x = Screen.PrimaryScreen.WorkingArea.Width - Me.Width 
     x = x - 1 
     Me.Location = New Point(x, y) 
    Loop 

End Sub 

Answer 4

chỉ đơn giản là mẹo này cho tôi: các bài viết ở trên/bên trái của nhiệm vụ có thể xảy ra.

Dim x As Integer 
     Dim y As Integer 
     x = Screen.PrimaryScreen.WorkingArea.Width - Me.Width 
     y = Screen.PrimaryScreen.WorkingArea.Height - Me.Height 
     Me.Location = New Point(x, y) 

Answer 5

Trung tâm màn hình:

Me.Location = New Point((Screen.PrimaryScreen.WorkingArea.Width - Me.Width)/2, (Screen.PrimaryScreen.WorkingArea.Height - Me.Height)/2) 

góc dưới bên phải màn hình góc:

Me.Location = New Point(Screen.PrimaryScreen.WorkingArea.Width - Me.Width, Screen.PrimaryScreen.WorkingArea.Height - Me.Height) 

Answer 6

Nếu bạn muốn xác định vị trí các hình thức trên con trỏ màn hình đang bật, sử dụng:

' Get Active Screen Cursor is On, rather than assuming user on PrimaryScreen 
Dim scr As Screen = Screen.FromPoint(Cursor.Position) 

Me.Location = New Point(scr.WorkingArea.Right - Me.Width, scr.WorkingArea.Bottom - Me.Height) 

Answer 7

bạn có thể thử như

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.StartPosition = FormStartPosition.Manual Me.Location = Screen.GetWorkingArea(Me).Location End Sub