Как это:
Private Thingy As Integer
Property Thing() As Integer
Get
Return Thingy
End Get
Private Set(ByVal value As Integer)
Thingy = value
End Set
End Property
Авто свойство в VB10
Property PartNo As Integer = 44302
Но с частным набором все еще нельзя сделать в vb, даже в VB10, см. Здесь:
Из MSDN (как сказал Джон):
Определения свойств, которые требуют
Стандартный синтаксис:
- Укажите различную доступность для
процедура получения и установки. За
Например, вы можете сделать
Установите процедуру Private и Get
Процедура Public.