5

我在 WinForms ( http://msdn.microsoft.com/en-us/library/aa302326.aspx ) 中有一个 PropertyGrid 控件。现在我想将中间的垂直线更向左移动（它总是居中，但我的键很短，而值是路径，很长。默认情况下，控件将线放在中间，即使用户可以移动它。关于用户友好性，我想以编程方式将行更多地向左移动。我现在已经多次搜索 WinForms 设计器属性以及 PropertyGrid 控件的成员，但没有找到选项（也没有任何有关它的事件）。

它是否通过私密而隐藏在视线/修改中？我只是监督了吗？（在那种情况下，我真的很抱歉）否则我该怎么做？

4

2 回答 2

12

是的，不幸的是，这需要一些基于反射的黑客才能实现。这是一个示例扩展类：

PropertyGridExtensionHacks.cs

using System.Reflection;
using System.Windows.Forms;

namespace PropertyGridExtensionHacks
{
    public static class PropertyGridExtensions
    {
        /// <summary>
        /// Gets the (private) PropertyGridView instance.
        /// </summary>
        /// <param name="propertyGrid">The property grid.</param>
        /// <returns>The PropertyGridView instance.</returns>
        private static object GetPropertyGridView(PropertyGrid propertyGrid)
        { 
            //private PropertyGridView GetPropertyGridView();
            //PropertyGridView is an internal class...
            MethodInfo methodInfo = typeof(PropertyGrid).GetMethod("GetPropertyGridView", BindingFlags.NonPublic | BindingFlags.Instance);
            return methodInfo.Invoke(propertyGrid, new object[] {});
        }

        /// <summary>
        /// Gets the width of the left column.
        /// </summary>
        /// <param name="propertyGrid">The property grid.</param>
        /// <returns>
        /// The width of the left column.
        /// </returns>
        public static int GetInternalLabelWidth(this PropertyGrid propertyGrid)
        {
            //System.Windows.Forms.PropertyGridInternal.PropertyGridView
            object gridView = GetPropertyGridView(propertyGrid);

            //protected int InternalLabelWidth
            PropertyInfo propInfo = gridView.GetType().GetProperty("InternalLabelWidth", BindingFlags.NonPublic | BindingFlags.Instance);
            return (int)propInfo.GetValue(gridView);
        }

        /// <summary>
        /// Moves the splitter to the supplied horizontal position.
        /// </summary>
        /// <param name="propertyGrid">The property grid.</param>
        /// <param name="xpos">The horizontal position.</param>
        public static void MoveSplitterTo(this PropertyGrid propertyGrid, int xpos)
        {
            //System.Windows.Forms.PropertyGridInternal.PropertyGridView
            object gridView = GetPropertyGridView(propertyGrid);

            //private void MoveSplitterTo(int xpos);
            MethodInfo methodInfo = gridView.GetType().GetMethod("MoveSplitterTo", BindingFlags.NonPublic | BindingFlags.Instance);
            methodInfo.Invoke(gridView, new object[] { xpos });
        }
    }
}

要移动拆分器位置，请使用 MoveSplitterTo 扩展方法。使用 GetInternalLabelWidth 扩展方法获取拆分器的实际位置。请注意，我观察到，在分配 SelectedObject 并且未显示 PropertyGrid 之前，GetInternalLabelWidth 返回 (-1)。

样品用途：

using PropertyGridExtensionHacks;
//...

    private void buttonMoveSplitter_Click(object sender, EventArgs e)
    {
        int splitterPosition = this.propertyGrid1.GetInternalLabelWidth();
        this.propertyGrid1.MoveSplitterTo(splitterPosition + 10);
    }
于 2013-03-12T17:08:47.900 回答
3

这是一种不依赖于直接使用私有方法或反射的方法。它仍然使用未记录的接口。

在 .NET 4.0 中，该PropertyGrid.Controls集合包含 4 个控件。PropertyGrid.Controls.item(2)是未记录的PropertyGridView（与使用反射的答案相同）。该属性PropertyGridView.LabelRatio调整列的相对宽度。LabelRatio看起来的范围是 1.1 到 9。较小的值使左列更宽。

我知道LabelRatio在您最初显示控件之前的设置是有效的。但是，我不确定一旦控件已显示，您需要做什么才能使其生效。您可以通过 Google MoveSplitterTo 查找 .NET 源代码并查看源代码PropertyGridView以获取更多详细信息。涉及它的计算和操作看起来有些复杂，我没有详细分析。

LabelRatio 最初设置为 2（即将可用的 PropertyGrid 宽度分成两半）。将其设置为 3 表示三分之一，4 表示四分之一。代码需要导入 System.Reflection

Public Sub MoveVerticalSplitter(grid As PropertyGrid, Fraction As Integer)
    Try
        Dim info = grid.[GetType]().GetProperty("Controls")
        Dim collection = DirectCast(info.GetValue(grid, Nothing), Control.ControlCollection)

        For Each control As Object In collection
            Dim type = control.[GetType]()

            If "PropertyGridView" = type.Name Then
                control.LabelRatio = Fraction

                grid.HelpVisible = True
                Exit For
            End If
        Next

    Catch ex As Exception
        Trace.WriteLine(ex)
    End Try
End Sub

将 PropertyGrid 底部的描述窗格的大小更改为文本行

Public Sub ResizeDescriptionArea(grid As PropertyGrid, lines As Integer)
    Try
        Dim info = grid.[GetType]().GetProperty("Controls")
        Dim collection = DirectCast(info.GetValue(grid, Nothing), Control.ControlCollection)

        For Each control As Object In collection
            Dim type = control.[GetType]()

            If "DocComment" = type.Name Then
                Const Flags As BindingFlags = BindingFlags.Instance Or BindingFlags.NonPublic
                Dim field = type.BaseType.GetField("userSized", Flags)
                field.SetValue(control, True)

                info = type.GetProperty("Lines")
                info.SetValue(control, lines, Nothing)

                grid.HelpVisible = True
                Exit For
            End If
        Next

    Catch ex As Exception
        Trace.WriteLine(ex)
    End Try
End Sub
于 2015-10-26T13:35:56.213 回答