⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 rtfbox.vb

📁 专业的办公oa代码下载 c#语言编写 三层结构
💻 VB
📖 第 1 页 / 共 5 页
字号:
            mStr += "							<Input type=""hidden"" name=" & Me.UniqueID & " ID=" & Me.UniqueID & " value='" & Text & "' >" & vbCrLf
            'mStr += "						</Form>" & vbCrLf
            mStr += "					</TD>" & vbCrLf
            mStr += "				</TR>" & vbCrLf
            mStr += "				<TR>" & vbCrLf
            mStr += "					<td align=""right"" class=""tdClass"">" & vbCrLf
            mStr += "						<img alt=""HTML View"" ID=""imgCustom"" name=""imgCustom"" class=""butClass"" src=""" & mIconsPath & "/customtag_off.gif"" onMouseOver=""selOn(this)"" onMouseOut=""selOff(this)"" onMouseDown=""selDown(this)"" onMouseUp=""selUp(this)"" onClick=""doCommand(this)"">" & vbCrLf
            mStr += "						<img alt=""About"" ID=""imgAbout"" name=""imgAbout"" class=""butClass"" src=""" & mIconsPath & "/about_off.gif"" onMouseOver=""selOn(this)"" onMouseOut=""selOff(this)"" onMouseDown=""selDown(this)"" onMouseUp=""selUp(this)"" onClick=""doCommand(this)"">" & vbCrLf
            mStr += "					</td>" & vbCrLf
            mStr += "				</TR>" & vbCrLf
            mStr += "			</TABLE>" & vbCrLf

            'End of Third Table, Now Close the top most table
            mStr += "		</TD>" & vbCrLf
            mStr += "	</TR>" & vbCrLf
            mStr += "</TABLE>" & vbCrLf


            'That's all, Now return the HTML String
            Return (mStr & vbCrLf)
        End Function
        Private Function GeneratePostBackScript() As String
            Dim mStr As String
            mStr = "<Script Language=""javascript"" for=RTFEdit_" & Me.UniqueID & " event=""onblur"">" & vbCrLf
            mStr += "var temp = table2.style.display;" & vbCrLf
            mStr += "if (temp == 'none' ) " & vbCrLf
            mStr += "   " & Me.UniqueID & ".value = RTFEdit_" & Me.UniqueID & ".document.body.innerText;" & vbCrLf
            mStr += "else" & vbCrLf
            mStr += "   " & Me.UniqueID & ".value = RTFEdit_" & Me.UniqueID & ".document.body.innerHTML;" & vbCrLf
            mStr += "</Script>" & vbCrLf

            ''Dim mStr1 As String = "RTFEdit_" & Me.UniqueID & ".document.body.innerHTML = " & Me.UniqueID & ".value ;"
            mStr += "<Script Language=""javascript"" for=RTFEdit_" & Me.UniqueID & " event=""onload"">" & vbCrLf
            ''mStr += "setTimeout ('" & mStr1 & "', 3000)"
            'mStr += "<Script Language=javascript>"
            mStr += "RTFEdit_" & Me.UniqueID & ".document.body.innerHTML = '" & Me.Text & "'"
            mStr += "</Script>"


            Return (mStr & vbCrLf)
        End Function

        'Private Function CreateColorPalatte() As String
        '    Dim mStr As String

        '    mStr += "<!-- note: this version of the color picker is optimized for IE 5.5+ only -->"

        '    mStr += "<html><head><title>Select Color</title>"
        '    mStr += "<script language=""javascript"">"

        '    mStr += "function _CloseOnEsc() {"
        '    mStr += "if (event.keyCode == 27) { window.close(); return; }"
        '    mStr += "}"

        '    mStr += "function Init() {                                                       // run on page load"
        '    mStr += "document.body.onkeypress = _CloseOnEsc;"

        '    mStr += "color = window.dialogArguments;"
        '    mStr += "color = ValidateColor(color) || '000000';"
        '    mStr += "View(color);                                                          // set default color"
        '    mStr += "}"

        '    mStr += "function View(color) {                  // preview color"
        '    mStr += "document.all.ColorPreview.style.backgroundColor = '#' + color;"
        '    mStr += "document.all.ColorHex.value = '#' + color;"
        '    mStr += "}"

        '    mStr += "function Set(string) {                   // select color"
        '    mStr += "color = ValidateColor(string);"
        '    mStr += "if (color == null) { alert('Invalid color code: ' + string); }        // invalid color"
        '    mStr += "else {                                                                // valid color"
        '    mStr += "View(color);                          // show selected color"
        '    mStr += "window.returnValue = color;           // set return value"
        '    mStr += "window.close();                       // close dialog"
        '    mStr += "}"
        '    mStr += "}"

        '    mStr += "function ValidateColor(string) {                // return valid color code"
        '    mStr += "string = string || '';"
        '    mStr += "string = string + "";"
        '    mStr += "string = string.toUpperCase();"
        '    mStr += "chars = '0123456789ABCDEF';"
        '    mStr += "out   = '';"

        '    mStr += "for (i=0; i<string.length; i++) {             // remove invalid color chars"
        '    mStr += "schar = string.charAt(i);"
        '    mStr += "if (chars.indexOf(schar) != -1) { out += schar; }"
        '    mStr += "}"

        '    mStr += "if (out.length != 6) { return null; }            // check length"
        '    mStr += "return out;"

        '    mStr += "} "

        '    mStr += "</script>"
        '    mStr += "</head>"
        '    mStr += "<body bgcolor=""#000000"" topmargin=0 leftmargin=0 onload=""Init()"">"

        '    mStr += "<form method=get onSubmit=""Set(document.all.ColorHex.value); return false;"">"

        '    mStr += "<table border=0 cellspacing=0 cellpadding=4 width=100%>"
        '    mStr += "<tr>"
        '    mStr += "<td bgcolor=""buttonface"" valign=center>"
        '    mStr += "<div style=""background-color: #000000; padding: 1; height: 21px; width: 50px"">"
        '    mStr += "<div id=""ColorPreview"" style=""height: 100%; width: 100%""></div></div>"
        '    mStr += "</td>"
        '    mStr += "<td id=""td1"" bgcolor=""buttonface"" valign=center>"
        '    mStr += "<input type=""text"" ID=""ColorHex"" name=""ColorHex"" value="""" size=15 style=""font-size: 12px;"">"
        '    mStr += "</td>"
        '    mStr += "<td bgcolor=""buttonface"" width=100%></td>"
        '    mStr += "</tr>"
        '    mStr += "</table>"

        '    mStr += "<table border=0 cellspacing=1 cellpadding=0 bgcolor=#000000 style=""cursor: hand;"">"
        '    mStr += "<tr>"
        '    mStr += "<td bgcolor=#000000 onMouseOver=View('000000') onClick=Set('000000') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#000000 onMouseOver=View('000000') onClick=Set('000000') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#000000 onMouseOver=View('000000') onClick=Set('000000') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#000000 onMouseOver=View('000000') onClick=Set('000000') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#003300 onMouseOver=View('003300') onClick=Set('003300') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#006600 onMouseOver=View('006600') onClick=Set('006600') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#009900 onMouseOver=View('009900') onClick=Set('009900') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#00CC00 onMouseOver=View('00CC00') onClick=Set('00CC00') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#00FF00 onMouseOver=View('00FF00') onClick=Set('00FF00') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#330000 onMouseOver=View('330000') onClick=Set('330000') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#333300 onMouseOver=View('333300') onClick=Set('333300') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#336600 onMouseOver=View('336600') onClick=Set('336600') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#339900 onMouseOver=View('339900') onClick=Set('339900') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#33CC00 onMouseOver=View('33CC00') onClick=Set('33CC00') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#33FF00 onMouseOver=View('33FF00') onClick=Set('33FF00') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#660000 onMouseOver=View('660000') onClick=Set('660000') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#663300 onMouseOver=View('663300') onClick=Set('663300') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#666600 onMouseOver=View('666600') onClick=Set('666600') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#669900 onMouseOver=View('669900') onClick=Set('669900') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#66CC00 onMouseOver=View('66CC00') onClick=Set('66CC00') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#66FF00 onMouseOver=View('66FF00') onClick=Set('66FF00') height=10 width=10></td>"
        '    mStr += "</tr>"
        '    mStr += "<tr>"
        '    mStr += "<td bgcolor=#000000 onMouseOver=View('000000') onClick=Set('000000') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#333333 onMouseOver=View('333333') onClick=Set('333333') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#000000 onMouseOver=View('000000') onClick=Set('000000') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#000033 onMouseOver=View('000033') onClick=Set('000033') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#003333 onMouseOver=View('003333') onClick=Set('003333') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#006633 onMouseOver=View('006633') onClick=Set('006633') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#009933 onMouseOver=View('009933') onClick=Set('009933') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#00CC33 onMouseOver=View('00CC33') onClick=Set('00CC33') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#00FF33 onMouseOver=View('00FF33') onClick=Set('00FF33') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#330033 onMouseOver=View('330033') onClick=Set('330033') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#333333 onMouseOver=View('333333') onClick=Set('333333') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#336633 onMouseOver=View('336633') onClick=Set('336633') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#339933 onMouseOver=View('339933') onClick=Set('339933') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#33CC33 onMouseOver=View('33CC33') onClick=Set('33CC33') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#33FF33 onMouseOver=View('33FF33') onClick=Set('33FF33') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#660033 onMouseOver=View('660033') onClick=Set('660033') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#663333 onMouseOver=View('663333') onClick=Set('663333') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#666633 onMouseOver=View('666633') onClick=Set('666633') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#669933 onMouseOver=View('669933') onClick=Set('669933') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#66CC33 onMouseOver=View('66CC33') onClick=Set('66CC33') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#66FF33 onMouseOver=View('66FF33') onClick=Set('66FF33') height=10 width=10></td>"
        '    mStr += "</tr>"
        '    mStr += "<tr>"
        '    mStr += "<td bgcolor=#000000 onMouseOver=View('000000') onClick=Set('000000') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#666666 onMouseOver=View('666666') onClick=Set('666666') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#000000 onMouseOver=View('000000') onClick=Set('000000') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#000066 onMouseOver=View('000066') onClick=Set('000066') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#003366 onMouseOver=View('003366') onClick=Set('003366') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#006666 onMouseOver=View('006666') onClick=Set('006666') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#009966 onMouseOver=View('009966') onClick=Set('009966') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#00CC66 onMouseOver=View('00CC66') onClick=Set('00CC66') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#00FF66 onMouseOver=View('00FF66') onClick=Set('00FF66') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#330066 onMouseOver=View('330066') onClick=Set('330066') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#333366 onMouseOver=View('333366') onClick=Set('333366') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#336666 onMouseOver=View('336666') onClick=Set('336666') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#339966 onMouseOver=View('339966') onClick=Set('339966') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#33CC66 onMouseOver=View('33CC66') onClick=Set('33CC66') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#33FF66 onMouseOver=View('33FF66') onClick=Set('33FF66') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#660066 onMouseOver=View('660066') onClick=Set('660066') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#663366 onMouseOver=View('663366') onClick=Set('663366') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#666666 onMouseOver=View('666666') onClick=Set('666666') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#669966 onMouseOver=View('669966') onClick=Set('669966') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#66CC66 onMouseOver=View('66CC66') onClick=Set('66CC66') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#66FF66 onMouseOver=View('66FF66') onClick=Set('66FF66') height=10 width=10></td>"
        '    mStr += "</tr>"
        '    mStr += "<tr>"
        '    mStr += "<td bgcolor=#000000 onMouseOver=View('000000') onClick=Set('000000') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#999999 onMouseOver=View('999999') onClick=Set('999999') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#000000 onMouseOver=View('000000') onClick=Set('000000') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#000099 onMouseOver=View('000099') onClick=Set('000099') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#003399 onMouseOver=View('003399') onClick=Set('003399') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#006699 onMouseOver=View('006699') onClick=Set('006699') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#009999 onMouseOver=View('009999') onClick=Set('009999') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#00CC99 onMouseOver=View('00CC99') onClick=Set('00CC99') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#00FF99 onMouseOver=View('00FF99') onClick=Set('00FF99') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#330099 onMouseOver=View('330099') onClick=Set('330099') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#333399 onMouseOver=View('333399') onClick=Set('333399') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#336699 onMouseOver=View('336699') onClick=Set('336699') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#339999 onMouseOver=View('339999') onClick=Set('339999') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#33CC99 onMouseOver=View('33CC99') onClick=Set('33CC99') height=10 width=10></td>"
        '    mStr += "<td bgcolor=#33FF99 onMouseOver=View('33FF99') onClick=Set('33FF99') height=10 width=10></td>"

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -