2

次の要件を持つPropertyGridにオブジェクトを表示する必要があります。オブジェクトとそのサブオブジェクトは読み取り専用であり、PropertyGridのCollectionEditorsをアクティブ化できる必要があります。

必要なものに厳密に一致するサンプルを見つけましたが、理解できない予期しない動作があります。異なるオブジェクトごとに複数のPropertyGridがあります。SetBrowsablePropertiesAsReadOnlyでは、1つのオブジェクトをループしますが、驚くべきことに、プロジェクト内のすべてのPropertyGridが読み取り専用になります。誰かが私を助けることができますか？コードは次のとおりです。



Imports System.Reflection
Imports System.ComponentModel

Public Class PropertyGridEx
    Inherits PropertyGrid

    Private isReadOnly As Boolean
    Public Property [ReadOnly]() As Boolean
        Get
            Return Me.isReadOnly
        End Get
        Set(ByVal value As Boolean)
            Me.isReadOnly = value
            Me.SetBrowsablePropertiesAsReadOnly(Me.SelectedObject, value)
        End Set
    End Property

    Protected Overloads Sub OnSelectedObjectsChanged(ByVal e As EventArgs)
        Me.SetBrowsablePropertiesAsReadOnly(Me.SelectedObject, Me.isReadOnly)
        MyBase.OnSelectedObjectsChanged(e)
    End Sub

    Private Sub SetBrowsablePropertiesAsReadOnly(ByRef selectedObject As Object, ByVal isReadOnly As Boolean)
        If selectedObject IsNot Nothing Then
            Dim props As PropertyDescriptorCollection = TypeDescriptor.GetProperties(selectedObject)
            For Each propDescript As PropertyDescriptor In props
                If propDescript.IsBrowsable AndAlso propDescript.PropertyType.GetInterface("ICollection", True) Is Nothing Then
                    Dim attr As ReadOnlyAttribute = TryCast(propDescript.Attributes(GetType(ReadOnlyAttribute)), ReadOnlyAttribute)
                    If attr IsNot Nothing Then
                        Dim field As FieldInfo = attr.[GetType]().GetField("isReadOnly", BindingFlags.NonPublic Or BindingFlags.Instance)
                        field.SetValue(attr, isReadOnly, BindingFlags.NonPublic Or BindingFlags.Instance, Nothing, Nothing)
                    End If
                End If
            Next
        End If
    End Sub
End Class
4

2 に答える 2

0

ReadOnly属性は、オブジェクトのインスタンスではなく、クラス定義で設定されます。したがって、これはそのクラスのすべてのインスタンスに影響を与えます。

目的を達成するには、プロパティPropertyDescriptorをオーバーライドするカスタムを作成し、IsReadOnlyこれをオブジェクト インスタンスのプロパティに適用します。

于 2009-03-04T11:05:38.047 に答える
0

これは正しいvb構文ではないと確信していますが、属性を追加することでこれを行うことができます：

Private Sub SetBrowsablePropertiesAsReadOnly(ByRef selectedObject As Object, ByVal isReadOnly As Boolean)
  If selectedObject IsNot Nothing Then
    TypeDescriptor.AddAttributes(selectedObject, New Attribute[] { New ReadOnlyAttribute(isReadOnly) });
  End If
End Sub
于 2012-01-04T05:39:13.233 に答える