vb 类模块的问题

[mshflexgrid]

Public Property Get Count() As Single
Count = UBound(m_List) + 1
End Property

Public Property Get List(ByVal Index As Single) As String
List = m_List(Index)
End Property


Public Property Get GetString() As String
GetString = Join(m_List, " ")
End Property

这是vb6.0环境下的，vb2008环境下怎么不支持呢

错误指在` Get 方法 ， 怎么改呢

[hanjs]

看看基本语法,有帮助的

[mshflexgrid]

我看过了,简单的一个实例我看不懂了,才这里来问呢

[pjagz]

Public ReadOnly Property NewProperty() As String
Get
Return "返回字符串"
End Get

End Property

[pjagz]

Dim NewStr As String
Public Property NewProperty() As String
Get
Return "返回字符串"
End Get

Set(ByVal value As String)
NewStr = value '设置字符串
End Set

End Property