将属性添加到属性

本文介绍了将属性添加到属性的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！ 问题描述

我是新来的!!! 我想询问是否可以在VB.Net的房产中添加房产。 示例

Hi, I''m new here!!! I just want to ask if is it possible to add a property within a property at VB.Net. Sample

Public Class Form1 Private xproperties As PreferenceProperties Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load xproperties = New PreferenceProperties PropertyGrid1.SelectedObject = xproperties End Sub End Class Public Class PreferenceProperties Private DBDetails As DatabaseProperties Public Sub New() DBDetails = New DatabaseProperties End Sub <Category("Connection")> _ <Description("")> _ <DisplayName("Database Properties")> _ Public Property Database() As DatabaseProperties Get Return DBDetails End Get Set(ByVal value As DatabaseProperties) DBDetails = value End Set End Property End Class Public Class DatabaseProperties Private DBHost As String Private DBPort As Integer Private DBUser As String Private DBName As String Private DBPass As String Public Sub New() Me.DBHost = String.Empty Me.DBPort = 3306 Me.DBUser = String.Empty Me.DBName = String.Empty Me.DBPass = String.Empty End Sub <Category("Connection")> _ <Description("Host Name/IP address of the server where the database resides.")> _ <DefaultValue(GetType(String), "")> _ <DisplayName("Host Address")> _ <Browsable(True)> _ <ReadOnlyAttribute(False)> _ Public Property HostName() As String Get Return Me.DBUser End Get Set(ByVal value As String) Me.DBUser = value End Set End Property <Category("Connection")> _ <Description("The name of the database that you will be connected.")> _ <DefaultValue(GetType(String), "")> _ <DisplayName("Database Name")> _ <Browsable(True)> _ <ReadOnlyAttribute(False)> _ Public Property DatabaseName() As String Get Return Me.DBName End Get Set(ByVal value As String) Me.DBName = value End Set End Property <Category("Connection")> _ <Description("Port number that the database server is using. The default is 3306.")> _ <DefaultValue(GetType(Integer), "3306")> _ <DisplayName("Port Number")> _ <Browsable(True)> _ <ReadOnlyAttribute(False)> _ Public Property PortNumber() As Integer Get Return Me.DBPort End Get Set(ByVal value As Integer) Me.DBPort = value End Set End Property <Category("Security")> _ <Description("User name to be use in connecting the server.")> _ <DefaultValue(GetType(String), "")> _ <DisplayName("UserName")> _ <Browsable(True)> _ <ReadOnlyAttribute(False)> _ Public Property UserName() As String Get Return Me.DBUser End Get Set(ByVal value As String) Me.DBUser = value End Set End Property <Category("Security")> _ <Description("Password to be use in connecting the server.")> _ <DefaultValue(GetType(String), "")> _ <DisplayName("Password")> _ <Browsable(True)> _ <PasswordPropertyText(True)> _ <ReadOnlyAttribute(False)> _ Public Property Password() As String Get Return Me.DBPass End Get Set(ByVal value As String) Me.DBPass = value End Set End Property End Class

当你在源代码，但是一旦你将属性设置为 propertygrid ，属性就会变成 readonly 。 有人可以帮我吗？ 提前谢谢...

This works with when you are in source code, but once you set the property to propertygrid the property becomes readonly. Can someone help me on this? Thanks in advance...

推荐答案

这已经解决了 www.daniweb [向属性添加属性]