向各位请教一下关于在vb中声明实体类的问题

[johnpaulus]

我建了一个vb项目，用的是三层结构；我在模型层中创建实体类，但不知道如何创建GET(),SET()方法；也就是如下：
Private typeID As Integer

Public Property TypeID() As Integer
GET
Return TypeID //在这儿里的typeID不是私有属性而变成了公有的了，而且TypeID()下也划线报错了

请大家给与指教，谢谢大家了！

[暖枫无敌]

Private typeID As Integer

Public Property  As Integer
GET
  Return typeID 
SET
 this.typeID  = value

[积善成魔]

类的实体私有属性
Private m_typeID As Integer

Public Property TypeID() As Integer
Get
Dim i As Integer '临时变量
i = m_typeID
'对传出值进行判断及处理
If i = 0 Then
'对传出值进行判断及处理
Else
'对传出值进行判断及处理
End If
Return i
End Get
Set(ByVal value As Integer)
Dim i As Integer
i = value
If i = 0 Then
'对传入值进行判断及处理
Else
'对传入值进行判断及处理
End If
m_typeID = i
End Set
End Property

[积善成魔]

类的公共静态属性 关键字 Shared 不需要 new 关键字就可以使用，与实体无关，唯一。

Private Shared m_typeID As Integer

Public Shared Property TypeID() As Integer
Get
Dim i As Integer '临时变量
i = m_typeID
'对传出值进行判断及处理
If i = 0 Then
'对传出值进行判断及处理
Else
'对传出值进行判断及处理
End If
Return i
End Get
Set(ByVal value As Integer)
Dim i As Integer
i = value
If i = 0 Then
'对传入值进行判断及处理
Else
'对传入值进行判断及处理
End If
m_typeID = i
End Set
End Property