运行时能否读取System.Windows.Forms.Design.DesignerOptions.GridSize属性？

VB6 实现方式 #

VB6中窗体的GridWidth和GridHeight属性在运行时可直接访问，若设计时设置的网格宽高一致，直接读取其中一个即可作为控件移动的间隔：

' 读取设计时的网格大小
Dim gridSize As Integer
gridSize = Me.GridWidth

' 示例：按网格间隔向右移动控件
Command1.Move Command1.Left + gridSize, Command1.Top

VB.NET（WinForms）实现方式 #

WinForms默认不在运行时直接暴露设计网格属性，提供两种可靠方案：

方案1：利用设计器服务读取（仅设计/调试场景可用）

通过反射获取设计器的布局设置：

Imports System.ComponentModel
Imports System.Windows.Forms.Design

Private Function GetFormGridSize(targetForm As Form) As Size
    Dim designerHost As IDesignerHost = CType(targetForm.Site?.GetService(GetType(IDesignerHost)), IDesignerHost)
    If designerHost Is Nothing Then Return New Size(16, 16) ' 兜底默认值
    
    Dim rootDesigner As IRootDesigner = CType(designerHost.GetDesigner(targetForm), IRootDesigner)
    Dim layoutSettings As ILayoutSettings = CType(rootDesigner, ILayoutSettings)
    Return layoutSettings.GridSize
End Function

' 使用示例
Dim gridSize As Integer = GetFormGridSize(Me).Width
Button1.Location = New Point(Button1.Location.X + gridSize, Button1.Location.Y)

方案2：设计时存储网格值到Tag属性（运行时稳定可用）

1. 在窗体设计界面的属性窗口中，将Tag属性设置为设计的GridSize数值（比如16）
2. 运行时直接读取Tag：

Dim gridSize As Integer = CInt(Me.Tag)
Button1.Location = New Point(Button1.Location.X + gridSize, Button1.Location.Y)

内容的提问来源于stack exchange，提问作者spinjector