Вопросы по созданию классов

[natcap]

1. Есть класс, у него есть некий Property (String) но оно может принимать только 2 фиксированных значения - можно это как-то задать?
2. нужно некое Property, которое на самом деле будет представлять из себя коллекцию, каждая запись которой состоит 2-х значений (String1, String2) - как это реализовать?
В классе который я использовала в 6.0 было сделано так:

Код: Выделить всё

    Public Sub AddField(Name, value)
        ReDim Preserve Fields(UBound(Fields) + 1)
        Fields(UBound(Fields)) = Array(Name, value)
    End Sub


Заранее спасибо

[MIT]

1. Enum
2. Что мешает сделать тоже самое и в .NET`е?

[Nord777]

1. Есть класс, у него есть некий Property (String) но оно может принимать только 2 фиксированных значения - можно это как-то задать?
2. нужно некое Property, которое на самом деле будет представлять из себя коллекцию, каждая запись которой состоит 2-х значений (String1, String2) - как это реализовать?

Код: Выделить всё

Public Class Form1

   '****************************************
   '************** ВОПРОС №1 ***************
   '****************************************
   Public Enum TwoFixedValues
      Ivanov = 1
      Petrov = 2
   End Enum

   Private _LastName As String

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      Manager = TwoFixedValues.Ivanov
      MsgBox(Manager.ToString)
   End Sub

   Public Property Manager() As TwoFixedValues

      Get
         Return _LastName
      End Get


      Set(ByVal value As TwoFixedValues)

         Select Case value
            Case TwoFixedValues.Ivanov, TwoFixedValues.Petrov
               _LastName = value.ToString
            Case Else
               Throw New Exception("Unknown value")
         End Select

      End Set
   End Property


   '****************************************
   '************** ВОПРОС №2 ***************
   '****************************************
   Private Fields As New List(Of Field)
   Public Sub AddField(ByVal Name, ByVal value)
      Fields.Add(New Field(Name, value))
   End Sub


   Public Class Field
      Dim _Name As String
      Dim _Value As String

      Sub New(ByVal Name As String, ByVal Value As String)
         _Name = Name
         _Value = Value
      End Sub

      Public ReadOnly Property Name() As String
         Get
            Return _Name
         End Get
      End Property

      Public ReadOnly Property Value() As String
         Get
            Return _Value
         End Get
      End Property

   End Class

End Class

Added
Ещё обрати внимание на:

Public Class Dictionary(Of TKey, TValue)
Inherits System.Object
является членом: System.Collections.Generic
Сводка:
Представляет коллекцию ключей и значений.

Параметры-типы:
TKey: Тип ключей в словаре.
TValue: Тип значений в словаре.

[natcap]

Спасибки

А Enum как понимаю может внутри себя иметь только числовое значение? Значит придется выбирать удобство работы с классом или доп обработка
со 2 пунктом пошларазбираться

[Williams]

В ответе Nord'а на вопрос номер 1 выбрасывается исключение при несоотстветвии. Еще в блоке Set свойства при несоотстветствии можно оставить значения без изменений, или же присвоить нужные значение "по-умолчанию".

В плане Enum - да. Его цель в том, чтобы предоставить возможность выбора опций. Однако, есть возможность получить название Enum'а. Например:
MessageBox.Show([Enum].GetName(GetType(Environment.SpecialFolder), Environment.SpecialFolder.Cookies))

[Nord777]

Первый вопрс. Вариант №2.

Код: Выделить всё

   Public Property Manager1(ByVal LastName As TwoFixedValues) As String
      Get
         Return _LastName
      End Get
      Set(ByVal value As String)
         Select Case LastName
            Case TwoFixedValues.Ivanov, TwoFixedValues.Petrov
               _LastName = value
            Case Else
               Throw New Exception("Unknown value")
         End Select
      End Set
   End Property

и использование:

Код: Выделить всё

      Manager1(TwoFixedValues.Ivanov) = "Ivanov Ivan Ivanovich"
      MsgBox(Manager1(TwoFixedValues.Ivanov))

[natcap]

Мда как-то печально с Enum-ом все...
для одного случая с небольшими доработками смогла использовать 1 вариант Nord'a а вот во втором только второй... ((

Но главное эти проблемы решены Спасибо еще раз всем откликнувшимся

П.С. а можно что-то поставить чтобы при просмтре объекта в студии не показывало Name и _Name? (дублирование)

[Williams]

Можно. Сделай _Name приватным, тогда он будет доступен только через свойство.

[natcap]

Они и есть приватные, но все равно в режиме просмотра объекта при отладке показываются
Где-то встречала что надо что-то в "<>" написать, но ЧТО - не помню и найти не могу

[Williams]

Они и есть приватные, но все равно в режиме просмотра объекта при отладке показываются
Где-то встречала что надо что-то в "<>" написать, но ЧТО - не помню и найти не могу

посмотри аттрибуты тут:

http://msdn.microsoft.com/en-us/library/ms228992.aspx

по-моему оно...

[Nord777]

но все равно в режиме просмотра объекта при отладке показываются

Они и будут показываться. Это же в одной сборке.
Чтобы не париться с атрибутами, в окне "Контрольные значения" вбей нужные переменные и наблюдай только их.

[natcap]

Они и есть приватные, но все равно в режиме просмотра объекта при отладке показываются
Где-то встречала что надо что-то в "<>" написать, но ЧТО - не помню и найти не могу

посмотри аттрибуты тут:

http://msdn.microsoft.com/en-us/library/ms228992.aspx

по-моему оно...

Не совсем оно, но знания лишними не бывают