当前文件路径：DNN/Library/WebControls/WebControlBase.vb

		            
  1'
  2' DotNetNuke?- http://www.dotnetnuke.com
  3' Copyright (c) 2002-2008
  4' by DotNetNuke Corporation
  5'
  6' Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated 
  7' documentation files (the "Software"), to deal in the Software without restriction, including without limitation 
  8' the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and 
  9' to permit persons to whom the Software is furnished to do so, subject to the following conditions:
 10'
 11' The above copyright notice and this permission notice shall be included in all copies or substantial portions 
 12' of the Software.
 13'
 14' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED 
 15' TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL 
 16' THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF 
 17' CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER 
 18' DEALINGS IN THE SOFTWARE.
 19'
 20
 21Imports System
 22Imports System.Collections.Generic
 23Imports System.ComponentModel
 24Imports System.Text
 25Imports System.Web
 26Imports System.Web.UI
 27Imports System.Web.UI.WebControls
 28Imports System.IO
 29
 30Imports DotNetNuke.Services.FileSystem
 31Imports DotNetNuke.Services.Exceptions
 32Imports DotNetNuke.Common
 33Imports DotNetNuke.Entities.Modules
 34Imports DotNetNuke.Entities.Portals
 35
 36Namespace DotNetNukeNamespace DotNetNuke.UI.WebControls
 37
 38    Public MustInherit Class WebControlBaseClass WebControlBase
 39        Inherits WebControl
 40
 41Private Members#Region "Private Members"
 42        Private _styleSheetUrl As String = ""
 43        Private _theme As String = ""
 44#End Region
 45
 46Public Properties#Region "Public Properties"
 47
 48        Property Theme()Property Theme() As String
 49            Get
 50                Return _theme
 51            End Get
 52            Set(ByVal value As String)
 53                _theme = value
 54            End Set
 55        End Property
 56
 57        ReadOnly Property ResourcesFolderUrl()Property ResourcesFolderUrl() As String
 58            Get
 59                Return Globals.ResolveUrl("~/Resources/")
 60            End Get
 61        End Property
 62
 63        Property StyleSheetUrl()Property StyleSheetUrl() As String
 64            Get
 65                If (_styleSheetUrl.StartsWith("~")) Then
 66                    Return Globals.ResolveUrl(_styleSheetUrl)
 67                Else
 68                    Return _styleSheetUrl
 69                End If
 70            End Get
 71            Set(ByVal value As String)
 72                _styleSheetUrl = value
 73            End Set
 74        End Property
 75
 76        Public ReadOnly Property IsAdminMenu()Property IsAdminMenu() As Boolean
 77            Get
 78                Dim _IsAdmin As Boolean = False
 79                If PortalSettings.ActiveTab.ParentId = PortalSettings.AdminTabId Then
 80                    _IsAdmin = True
 81                End If
 82                Return _IsAdmin
 83            End Get
 84        End Property
 85
 86        Public ReadOnly Property IsHostMenu()Property IsHostMenu() As Boolean
 87            Get
 88                Dim _IsHost As Boolean = False
 89                If PortalSettings.ActiveTab.ParentId = PortalSettings.SuperTabId Then
 90                    _IsHost = True
 91                End If
 92                Return _IsHost
 93            End Get
 94        End Property
 95
 96        <Browsable(False), DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)> _
 97        Public ReadOnly Property PortalSettings()Property PortalSettings() As PortalSettings
 98
 99            Get
100                PortalSettings = PortalController.GetCurrentPortalSettings
101            End Get
102
103        End Property
104
105        Public MustOverride ReadOnly Property HtmlOutput()Property HtmlOutput() As String
106#End Region
107
108Shared Methods#Region "Shared Methods"
109
110        Protected Overrides Sub RenderContents()Sub RenderContents(ByVal output As HtmlTextWriter)
111            output.Write(HtmlOutput)
112        End Sub
113
114#End Region
115
116    End Class
117End Namespace
118