00001: '------------------------------------------------------------------------------
00002: ' <auto-generated>
00003: '     Этот код создан программой.
00004: '     Исполняемая версия:2.0.50727.1433
00005: '
00006: '     Изменения в этом файле могут привести к неправильной работе и будут потеряны в случае
00007: '     повторной генерации кода.
00008: ' </auto-generated>
00009: '------------------------------------------------------------------------------
00010: 
00011: Option Strict Off
00012: Option Explicit On
00013: 
00014: Imports System
00015: Imports System.Web
00016: Imports System.Web.Profile
00017: 
00018: 
00019: Public Class ProfileCommon
00020:     Inherits System.Web.Profile.ProfileBase
00021:     
00022:     Public Overridable Property MailAddToBan() As Boolean
00023:         Get
00024:             Return CType(Me.GetPropertyValue("MailAddToBan"),Boolean)
00025:         End Get
00026:         Set
00027:             Me.SetPropertyValue("MailAddToBan", value)
00028:         End Set
00029:     End Property
00030:     
.....
00301:     Public Overridable Property usGrowth() As String
00302:         Get
00303:             Return CType(Me.GetPropertyValue("usGrowth"),String)
00304:         End Get
00305:         Set
00306:             Me.SetPropertyValue("usGrowth", value)
00307:         End Set
00308:     End Property
00309:     
00310:     Public Overridable Function GetProfile(ByVal username As String) As ProfileCommon
00311:         Return CType(ProfileBase.Create(username),ProfileCommon)
00312:     End Function
00313: End Class

< THANKS ME>