

 

Public Class UserControl1
    Dim FNewClassProperty1 As New NewClass
    Public Property NewClassProperty1() As NewClass
        Get
            Return FNewClassProperty1
        End Get
        Set(ByVal Value As NewClass)
            FNewClassProperty1 = Value
        End Set
    End Property
End Class
Public Class NewClass
    Dim FProperty1 As String = "FProperty1"
    Public Property Property1() As String
        Get
            Return FProperty1
        End Get
        Set(ByVal Value As String)
            FProperty1 = Value
        End Set
    End Property
    Dim FProperty2 As Integer = 7
    Public Property Property2() As Integer
        Get
            Return FProperty2
        End Get
        Set(ByVal Value As Integer)
            FProperty2 = Value
        End Set
    End Property
End ClassUserControl11.NewClassProperty1.Property1
UserControl11.NewClassProperty1.Property2

 


Ваня писал(а):
Но при этом в окне Properties NewClassProperty1 будет недоступен!




<Browsable(True), Category("Custom"), Description("blah-blah-blah")> _
Public Property MyProperty() As ...
Tarik писал(а):как стандартные Height и Width группируются в Size


Ну так надо как структуру объявлять
MyProperty     |     WindowsControlLibrary1.UserControl1+MyStruct
Дык свойство Size раскрывается списком потому, что оно имеет тип Size, который имеет два мембера.
Это не группировка двух свойств в одно

 
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 18