rtfbox.vb

专业的办公oa代码下载 c#语言编写 三层结构

'HTML Area Server Side Control for ASP .NET
'Created by Sameers (theAngrycodeR)
'All Rights Reserved
'Contact : [e-mail]

Imports System.ComponentModel
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Xml
Imports System.Drawing
Imports System.Windows.Forms.Design
Imports System
Imports System.IO
Imports System.Web


Imports System.Drawing.Design

Namespace HangamaHouse
    Public Class RTFBox
        Inherits System.Web.UI.WebControls.WebControl
        Implements IPostBackDataHandler
#Region "Private Variable Declaration"

        Public Event TextChanged As EventHandler
        Private mEmDlgWidth As Integer = 110
        Private mEmDlgHeight As Integer = 140
        Private mIconsPath As String = "icons"
        Private mSmilesPath As String = "icons/smiles"
        Private mButtonBackColor As Color = ColorTranslator.FromHtml("#D6D3CE")  'ColorTranslator.ToHtml
        Private mTableBackColor As Color = ColorTranslator.FromHtml("#D6D3CE")
        Private mCellBackColor As Color = ColorTranslator.FromHtml("#D6D3CE")
        Private mColorFilePath As String = "ColorPicker.html"
        Private mSmilesFilePath As String = "Smiles.html"
        Private mWidth As Integer = 500
#End Region
        Public Sub New()
            'Create Modal Dialogue Fies
        End Sub

#Region "Public Properties"
        Public Property EmotionsDialogueWidth() As Integer
            Get
                Return mEmDlgWidth
            End Get
            Set(ByVal Value As Integer)
                mEmDlgWidth = Value
            End Set
        End Property
        Public Property EmotionsDialogueHeight() As Integer
            Get
                Return mEmDlgHeight
            End Get
            Set(ByVal Value As Integer)
                mEmDlgHeight = Value
            End Set
        End Property
        Public Property IconsPath() As String
            Get
                Return mIconsPath
            End Get
            Set(ByVal Value As String)
                mIconsPath = Value
            End Set
        End Property
        Public Property SmilesPath() As String
            Get
                Return mSmilesPath
            End Get
            Set(ByVal Value As String)
                mSmilesPath = Value
            End Set
        End Property
        Public ReadOnly Property StyleSheet() As String
            Get
                Return Me.GenerateCSSCode()
            End Get
        End Property
        Public Property ButtonBackColor() As Color
            Get
                Return mButtonBackColor
            End Get
            Set(ByVal Value As Color)
                mButtonBackColor = Value
            End Set
        End Property
        Public Property TableBackColor() As Color
            Get
                Return mTableBackColor
            End Get
            Set(ByVal Value As Color)
                mTableBackColor = Value
            End Set
        End Property
        Public Property TableCellBackColor() As Color
            Get
                Return mCellBackColor
            End Get
            Set(ByVal Value As Color)
                mCellBackColor = Value
            End Set
        End Property
        Public Property SmilesPickerFilePath() As String
            Get
                Return mSmilesFilePath
            End Get
            Set(ByVal Value As String)
                mSmilesFilePath = Value
            End Set
        End Property
        Public Property ColorPickerFilePath() As String
            Get
                Return mColorFilePath
            End Get
            Set(ByVal Value As String)
                mColorFilePath = Value
            End Set
        End Property

        Public Property Text() As String
            Get
                Return CType(Me.ViewState("Text"), String)
            End Get
            Set(ByVal Value As String)
                Value = Replace(Value, "\", "&#92")       '\ is a Special Character, Replace with \\
                Value = Replace(Value, "'", "&#146")       ' ' is cause of Error, replace with \'
                Value = Replace(Value, vbCrLf, " ")

                Me.ViewState("Text") = Value

            End Set
        End Property
#End Region

#Region "Private Functions"
        Private Function GenerateCSSCode() As String

            Dim mCSS As String
            mCSS = vbCrLf
            mCSS = "<STYLE> " & vbCrLf
            mCSS += ".EditControl       {       " & vbCrLf
            mCSS += "width:" & Me.mWidth & "px;               " & vbCrLf
            mCSS += "height:300px;      }       " & vbCrLf

            mCSS += ".tblTable          {       " & vbCrLf
            mCSS += "width : " & Me.mWidth & "px;             " & vbCrLf
            mCSS += "height: 30px;              " & vbCrLf
            mCSS += "border:0;                  " & vbCrLf
            mCSS += "cellspacing:0;             " & vbCrLf
            mCSS += "cellpadding:0;             " & vbCrLf
            mCSS += "background-color:" & ColorTranslator.ToHtml(mTableBackColor) & ";" & vbCrLf
            mCSS += "                   }     " & vbCrLf

            mCSS += ".butClass          {       " & vbCrLf
            mCSS += "width:22;                  " & vbCrLf
            mCSS += "height:22;                 " & vbCrLf
            mCSS += "border: 0px solid;         " & vbCrLf
            mCSS += "border-color: #D6D3CE ;    " & vbCrLf
            mCSS += "background-color:" & ColorTranslator.ToHtml(mButtonBackColor) & ";" & vbCrLf
            mCSS += "                   }       " & vbCrLf

            mCSS += ".tdClass           {       " & vbCrLf
            mCSS += "padding-left: 0px;         " & vbCrLf
            mCSS += "padding-top:0px;           " & vbCrLf
            mCSS += "background-Color: " & ColorTranslator.ToHtml(mCellBackColor) & "; }       " & vbCrLf

            mCSS += "</STYLE>" & vbCrLf
            Return (mCSS & vbCrLf)

        End Function
        Private Function GenerateSelONScript() As String
            Dim mStr As String

            mStr = "<Script Language=""javascript"">" & vbCrLf
            mStr += "function selOn(ctrl) {" & vbCrLf
            mStr += "   var mImage " & vbCrLf
            mStr += "   switch(ctrl.id)" & vbCrLf
            mStr += "   {" & vbCrLf
            mStr += "       case 'imgCuston' :" & vbCrLf
            mStr += "           mImage = 'customtag_over.gif';" & vbCrLf
            mStr += "           break;" & vbCrLf
            mStr += "       case 'imgAbout' :" & vbCrLf
            mStr += "           mImage = 'about_over.gif';" & vbCrLf
            mStr += "           break; " & vbCrLf
            mStr += "       case 'imgBold' :" & vbCrLf
            mStr += "           mImage = 'bold_over.gif';" & vbCrLf
            mStr += "           break;" & vbCrLf
            mStr += "       case 'imgItalic' :" & vbCrLf
            mStr += "           mImage = 'italic_over.gif';" & vbCrLf
            mStr += "           break;	" & vbCrLf
            mStr += "       case 'imgBoldItalic' :" & vbCrLf
            mStr += "           mImage = 'bolditalicunderline_over.gif';" & vbCrLf
            mStr += "           break;				" & vbCrLf
            mStr += "       case 'imgUnderLine' :" & vbCrLf
            mStr += "           mImage = 'underline_over.gif';" & vbCrLf
            mStr += "           break;				" & vbCrLf
            mStr += "       case 'imgStrikeThrough' :" & vbCrLf
            mStr += "           mImage = 'strikethrough_over.gif';" & vbCrLf
            mStr += "           break;	" & vbCrLf
            mStr += "       case 'imgSpecialChar' :" & vbCrLf
            mStr += "           mImage ='specialchars_over.gif'" & vbCrLf
            mStr += "           break;" & vbCrLf
            mStr += "" & vbCrLf