vb.net - 返回没有 Dim 的点作为点

Question

我试图了解如何在不编写 Dim StartingPoint/或通过暗淡创建一个点的情况下编写以下代码。 以下代码将光标移动到User Control的偏移值

Private Sub MoveToStart()
    Dim StartingPoint = Panel1.Location()           ' Get User Control Location
    StartingPoint.Offset(10, 10)                    ' Set Cursor Point offset
    Cursor.Position = PointToScreen(StartingPoint)  ' Move the Cursor to position
End Sub

我很乐意这样写:

Private Sub MoveToStart()
    Cursor.Position = PointToScreen(Panel1.Location.Offset(10, 10))
End Sub

以下代码:Cursor.Position = PointToScreen()需要我返回一个 Point 。但我真的不知道如何在没有暗淡的情况下做到这一点。

Answer 1

您遇到的问题是 Offset() 是一个子例程，它不返回值，而是更改目标的值

如果你真的需要在一行中使用它，你可以这样做而不调用 offset ，如下所示:

Private Sub MoveToStart()
    Cursor.Position = New Point(PointToScreen(Panel1.Location()).X + 10, PointToScreen(Panel1.Location()).Y + 10)
End Sub