Ну, во-первых, надо всегда ставить Option Strict On. Тогда не будет странных ошибок времени выполнения.

Но этот код (с присвоением) всё равно не будет работать как надо. Твоя структура a - значимый тип (value type), в ArrayList'е он хранится в упакованнов (boxed) виде. Для того, чтобы использовать свойство этой структуры, необходимо произвести её распаковку (unboxing). Распаковка происходит при приведении типа AList(0) от Object к a, которое будет ясно видно с включённым Option Strict.

При распаковке в стеке программы будет создана временная копия этой структуры. Любые изменения свойств копии никак не повлияют на само значение в списке. Эта копия будет вскоре удалена. Поскольку свойства копии идентичны свойствам значения в списке, чтение любого свойства работает без проблем.

Тут есть только два решения - либо использовать объект вместо структуры, либо заменять сразу всю структуру. Это можно сделать так: AList(0) = New a("123", CheckState.Checked), если, конечно, написать соответствующий конструтор.

Ответить

‘Делал через обект. Клас реализующий мой обект:

Public Class TestClass

    Public name As String

    Public check As Windows.Forms.CheckState

End Class

‘Затем в програмном коде:

Dim c1 As New TestClass()

c1.name = "1"

c1.check = CheckState.Checked

AList.Add(c1)

MsgBox(CType(AList(0), TestClass).name)

CType(AList(0), TestClass).name = "123"

MsgBox(CType(AList(0), TestClass).name)

Ответить

Все конечно хорошо но вот какая проблема.
Я заранее не знаю какой тип обекта. То есть я знаю что свойство  .Name, а тип мне неизвесный, a CType требует тип непосредственнo. Что делать то есть как передать тип в CType через параметр? Приведенная ниже инструкция не работает

sub(byref AList as ArrayList, TypeObject as Type)
...
CType(Alist(0),TypeObject).name="123"
...
end sub

Ответить

Ответить

Про интерфейсы только слышал но ничего конкретного не знал, спасибо ща буду испитывать...

<между прочим объявлять так "Public name As String" в классах <немного противоречит принципам правильного ООП
А как не противоречит?

Ответить

Да и совсем противоречит.
Должно быть:

Private theName As String

Public Property Name() As String
   Get
      Return theName
   End Get
   Set(ByVal value As String)
      theName = value
   End Set
End Property

Классы не должны иметь публично доступных полей.

Кстати, я согласен, что все эти CType - это . Но пока приходится либо писать свою коллекцию, либо всё время писать CType (кстати, DirectCast должен работать быстрее). Только в VB 2005 это сделают почеловечески.

Ответить

Да получается, спасибо всем очень помогли.  Замечание:

1. Если интерфейс обявляется не в одном модуле то надо указывать Public Interface Int что бы потом(в моем случае интерфейс и клас его использующий находятся в разних проектах) иметь к нему доступ, а то, как я понял, по умолчанию там Private.

2.  У меня так не идет:  public property Name implements Int.Name 
а идет так: Public Property Name() As String Implements Int.Name

Ответить

Ответить

Ответить