Question

我希望我的表单出现在屏幕的右边缘但是我没有使用，因为Right是readonly。有解决方案吗？

Right= My.Computer.Screen.WorkingArea.Right

Answer 1

使用此代码：

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim x As Integer = My.Computer.Screen.WorkingArea.Right - Me.Width
    Dim y As Integer = My.Computer.Screen.WorkingArea.Bottom / 2 - Me.Height / 2
    Me.Location = New Point(x, y)
End Sub

Y-Coordinate在你的问题中没有明确规定，所以我把它作为中心..！基本上你需要从右边缘减去表格的宽度，然后才会出现你想要的。

干杯..

Answer 2

我使用了以下功能

Left= My.Computer.Screen.WorkingArea.Right -Width

Answer 3

在您向我们提供更多信息（例如错误消息）之前，我们不会知道原因。

Dim nRight As Integer = My.Computer.Screen.WorkingArea.Right

工作正常。

Answer 4

改为设置Location属性。

Answer 5

如果要通过拉伸表单将表单移动到屏幕的右边缘，可以使用以下内容：

Me.Width = Me.Width + My.Computer.Screen.WorkingArea.Right - (Me.Left + Me.Width)

如果要将表单移动到屏幕的右边缘而不更改其宽度，可以使用：

Me.Left = Me.Left + My.Computer.Screen.WorkingArea.Right - (Me.Left + Me.Width)

为什么我不能在vb中设置正确的属性

5 个答案: