[RESOLVED] Property Access Problem

[Torc]

I have created a class with a Private Dynamic Array of String.

I wrote the following class with properties to access the array.

Public Class MyClass
Private c_Text As String()
 
Public Sub New()
   ReDim c_Text(0)
End Sub ' New
 
ReadOnly Property NumText() As Integer
   Get
      Return UBound(c_Text) + 1
   End get
End Property ' NumText
 
Property Texts(ByVal Index As Integer) As String
        Get ' Return Text 
            If (0 <= Index) And (Index < NumText()) Then
                Return c_Text(Index)
            Else
                Return ""
            End If
        End Get
        Set(ByVal value As String)
            If (0 <= Index) And (Index < NumText()) Then
                c_Text(Index) = value
            Else
                ReDim Preserve c_Text(NumText() + 1)
                c_Text(NumText()) = value
            End If
        End Set
End Property ' Texts
 
End Class ' My Class

My Problem starts when I try to use the Property Texts.

MsgBox (Texts(0))

Causes no errors.

However, when I try to use the Set part I get an error message.

Texts ("Test Message")

Property access must assign to the property or use its value.

In the documentation I have looked at (Various books and MSDN and Online
Help) it clearly indicates that properties can have parameters, and my
declaration of Texts throws up no errors.

But nowhere can I find an example showing a Property with a Parameter List being used.

Can you advise where I am going wrong, and how to correct it please.
So far all the examples I have found on MSDN and VBForums

[cicatrix]

Just compiled your example and it works fine.
Here's the complete code:

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim mc As New MyClass1
        mc.Texts(0) = "Test"
 
        Debug.Print(mc.Texts(0)) ' It works and outputs Test
    End Sub
End Class
 
Public Class MyClass1
    Private c_Text As String()
 
    Public Sub New()
        ReDim c_Text(0)
    End Sub ' New
 
    ReadOnly Property NumText() As Integer
        Get
            Return UBound(c_Text) + 1
        End Get
    End Property ' NumText
 
    Property Texts(ByVal Index As Integer) As String
        Get ' Return Text 
            If (0 <= Index) And (Index < NumText()) Then
                Return c_Text(Index)
            Else
                Return ""
            End If
        End Get
        Set(ByVal value As String)
            If (0 <= Index) And (Index < NumText()) Then
                c_Text(Index) = value
            Else
                ReDim Preserve c_Text(NumText() + 1)
                c_Text(NumText()) = value
            End If
        End Set
    End Property ' Texts
 
End Class ' My Class

I just want to point out that it's better to use collection instead of array.

[cicatrix]

Here, a much easier way to do the same thing:

Public Class MyClass1
    Private c_Text As List(Of String)
 
    Public Sub New()
        c_Text = New List(Of String)
    End Sub ' New
 
    ReadOnly Property NumText() As Integer
        Get
            Return c_Text.Count
        End Get
    End Property ' NumText
 
    Default Property Texts(ByVal Index As Integer) As String
        Get
            Return c_Text(Index)
        End Get
        Set(ByVal value As String)
            If c_Text.Count <= Index Then
                c_Text.Add(value)
            Else
                c_Text(Index) = value
            End If
        End Set
    End Property
 
End Class ' My Class

[Shaggy Hiker]

Yeah, a List (of T) thoroughly replaces dynamic arrays.

The problem with your test is that you assign to a property. The argument you needed to pass it was the index, an integer, not a string.

Texts(NumText)="Test Message"

was what you needed, though I didn't read the code carefully enough to know if it is NumText or NumText+1 that should be the argument.

[Torc]

Thanks guys,

I am just starting to teach myself VB.Net, only used VBA up until now.