所以我创建了一个软件，允许您将控件放入其面板中，移动它们，将控件放入这些控件中，并将它们保存到 mysql 数据库中。
问题是，当您保存布局并将其加载回来时，控件中的控件并不处于完全相同的位置
所以我将控件位置保存到像“110:10”这样的文本中，并将该文本保存到数据库中
Dim ylocation As String = PointToScreen(c.Location).X & ":" & PointToScreen(c.Location).Y
我像这样加载它
Dim esp() As String = Split(.GetString(9), ":")
Dim loc As Point = Me.PointToClient(New Point(CInt(esp(0)), CInt(esp(1))))
这是保存后控件的位置
这是加载后控件的位置
最佳答案
发现问题，我在加载脚本中使用了me.pointtoclient
Dim loc As Point = Me.PointToClient(New Point(CInt(esp(0)), CInt(esp(1))))
并将其替换为
New Point(CInt(esp(0)), CInt(esp(1)))
无需更改任何其他内容，效果非常好:)
关于mysql - 获取/设置容器中控件的位置，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/43699267/