Could you please expand on the schoolclass topic. I am not familiar with
that but am open to all possibilities.
If you are talking specifically about DNN I have a new class that is
inheriting from DotNetNuke.Entities.Users.UserProfile
Public Class GroUserProfile
Inherits DotNetNuke.Entities.Users.UserProfile
************************************************** **************
Full Code of class I want to auto generate properties from a flat
file. specifically so it is possible for an end user to add user
attributes without haveing to recompile and edit several class files.
************************************************** **************
Namespace GRO.Users
Public Class GroUserProfile
Inherits DotNetNuke.Entities.Users.UserProfile
Private _GroLocation As String
Private _Age As Integer
Private _UserClasses As String
Private _Gender As String
Private _Registrar As String
Private _Title As String
Private _Organization As String
Public Sub New()
End Sub
Public Property GroLocation() As String
Get
Return _GroLocation
End Get
Set(ByVal Value As String)
_GroLocation = Value
If Not ObjectHydrated Then
ObjectHydrated = True
End If
End Set
End Property
Public Property Age() As Integer
Get
Return _Age
End Get
Set(ByVal Value As Integer)
_Age = Value
If Not ObjectHydrated Then
ObjectHydrated = True
End If
End Set
End Property
Public Property UserClasses() As String
Get
Return _UserClasses
End Get
Set(ByVal Value As String)
_UserClasses = Value
If Not ObjectHydrated Then
ObjectHydrated = True
End If
End Set
End Property
Public Property Gender() As String
Get
Return _Gender
End Get
Set(ByVal Value As String)
_Gender = Value
If Not ObjectHydrated Then
ObjectHydrated = True
End If
End Set
End Property
Public Property Registrar() As String
Get
Return _Registrar
End Get
Set(ByVal Value As String)
_Registrar = Value
If Not ObjectHydrated Then
ObjectHydrated = True
End If
End Set
End Property
Public Property Title() As String
Get
Return _Title
End Get
Set(ByVal Value As String)
_Title = Value
If Not ObjectHydrated Then
ObjectHydrated = True
End If
End Set
End Property
Public Property Organization() As String
Get
Return _Organization
End Get
Set(ByVal Value As String)
_Organization = Value
If Not ObjectHydrated Then
ObjectHydrated = True
End If
End Set
End Property
End Class
End Namespace
"Cor Ligthert" <no************@planet.nl> wrote in
news:u$*************@TK2MSFTNGP12.phx.gbl:
FunVB
Are you talking about a schoolclass, or about the class as we know it,
what is a very solid base for all OOP objects?
Cor