PropertyGrid控件在VB.net下使用的例子

PropertyGrid

更改属性的显示方式

要更改某些属性的显示方式，您可以对这些属性应用不同的特性。特性是用于为类型、字段、方法和属性等编程元素添加批注的声明标记，在运行时可以使用反射对其进行检索。下面列出了其中的一部分：

DescriptionAttribute - 设置显示在属性下方说明帮助窗格中的属性文本。这是一种为活动属性（即具有焦点的属性）提供帮助文本的有效方法。可以将此特性应用于 MaxRepeatRate 属性。

CategoryAttribute - 设置属性在网格中所属的类别。当您需要将属性按类别名称分组时，此特性非常有用。如果没有为属性指定类别，该属性将被分配给杂项类别。可以将此特性应用于所有属性。

BrowsableAttribute – 表示是否在网格中显示属性。此特性可用于在网格中隐藏属性。默认情况下，公共属性始终显示在网格中。可以将此特性应用于 SettingsChanged 属性。

ReadOnlyAttribute – 表示属性是否为只读。此特性可用于禁止在网格中编辑属性。默认情况下，带有 get 和 set 访问函数的公共属性在网格中是可以编辑的。可以将此特性应用于 AppVersion 属性。

DefaultValueAttribute – 表示属性的默认值。如果希望为属性提供默认值，然后确定该属性值是否与默认值相同，则可使用此特性。可以将此特性应用于所有属性。

DefaultPropertyAttribute – 表示类的默认属性。在网格中选择某个类时，将首先突出显示该类的默认属性。可以将此特性应用于 AppSettings 类。

现在，我们将其中的一些特性应用于 AppSettings 类，以更改属性在 PropertyGrid 中的显示方式。

' Visual Basic

<DefaultPropertyAttribute("SaveOnClose")> _

Public Class AppSettings

Private _saveOnClose As Boolean = True

Private _greetingText As String = "欢迎使用应用程序！"

Private _maxRepeatRate As Integer = 10

Private _itemsInMRU As Integer = 4

Private _settingsChanged As Boolean = False

Private _appVersion As String = "1.0"

<CategoryAttribute("文档设置"), _

DefaultValueAttribute(True)> _

Public Property SaveOnClose() As Boolean

Get

Return _saveOnClose

End Get

Set(ByVal Value As Boolean)

SaveOnClose = Value

End Set

End Property

<CategoryAttribute("全局设置"), _

ReadOnlyAttribute(True), _

DefaultValueAttribute("欢迎使用应用程序！")> _

Public Property GreetingText() As String

Get

Return _greetingText

End Get

Set(ByVal Value As String)

_greetingText = Value

End Set

End Property

<CategoryAttribute("全局设置"), _

DefaultValueAttribute(4)> _

Public Property ItemsInMRUList() As Integer

Get

Return _itemsInMRU

End Get

Set(ByVal Value As Integer)

_itemsInMRU = Value

End Set

End Property

<DescriptionAttribute("以毫秒表示的文本重复率。"), _

CategoryAttribute("全局设置"), _

DefaultValueAttribute(10)> _

Public Property MaxRepeatRate() As Integer

Get

Return _maxRepeatRate

End Get

Set(ByVal Value As Integer)

_maxRepeatRate = Value

End Set

End Property

<BrowsableAttribute(False),

DefaultValueAttribute(False)> _

Public Property SettingsChanged() As Boolean

Get

Return _settingsChanged

End Get

Set(ByVal Value As Boolean)

_settingsChanged = Value

End Set

End Property

<CategoryAttribute("版本"), _

DefaultValueAttribute("1.0"), _

ReadOnlyAttribute(True)> _

Public Property AppVersion() As String

Get

Return _appVersion

End Get

Set(ByVal Value As String)

_appVersion = Value

End Set

End Property

End Class