📄 rtfbox.vb
字号:
End Function
Private Function GenerateSelDown_UpScript() As String
Dim mStr As String
mStr = "<Script Language=""javascript"">" & vbCrLf
mStr += "function selDown(ctrl)" & vbCrLf
mStr += "{" & vbCrLf
mStr += " ctrl.style.backgroundColor = '" & ColorTranslator.ToHtml(Me.mButtonBackColor) & "';" & vbCrLf
mStr += "}" & vbCrLf
mStr += "function selUp(ctrl)" & vbCrLf
mStr += "{" & vbCrLf
mStr += " ctrl.style.backgroundColor = '" & ColorTranslator.ToHtml(Me.mButtonBackColor) & "';" & vbCrLf
mStr += "}" & vbCrLf
mStr += "</Script>" & vbCrLf
Return (mStr & vbCrLf)
End Function
Private Function GenerateCommandScript() As String
Dim mStr As String
mStr = "<Script Language=""javascript"">" & vbCrLf
mStr += "function doCommand(ctrl)" & vbCrLf
mStr += "{" & vbCrLf
mStr += " //BackColor" & vbCrLf
mStr += " var mCommand, uInterface, vValue;" & vbCrLf
mStr += "switch(ctrl.id)" & vbCrLf
mStr += "{ " & vbCrLf
mStr += " case 'imgSuperScript' :" & vbCrLf
mStr += " mCommand = 'superscript'; " & vbCrLf
mStr += " uInterface = false;" & vbCrLf
mStr += " vValue = null;" & vbCrLf
mStr += " break;" & vbCrLf
mStr += " case 'imgSubScript' :" & vbCrLf
mStr += " mCommand = 'subscript'; " & vbCrLf
mStr += " uInterface = false;" & vbCrLf
mStr += " vValue = null;" & vbCrLf
mStr += " break;" & vbCrLf
mStr += " case 'imgBold' :" & vbCrLf
mStr += " mCommand = 'bold'; " & vbCrLf
mStr += " uInterface = false;" & vbCrLf
mStr += " vValue = null;" & vbCrLf
mStr += " break;" & vbCrLf
mStr += " case 'imgItalic' :" & vbCrLf
mStr += " mCommand = 'italic'; " & vbCrLf
mStr += " uInterface = false;" & vbCrLf
mStr += " vValue = null;" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgBoldItalic' :" & vbCrLf
mStr += " doCommand (document.all['imgBold'])" & vbCrLf
mStr += " doCommand (document.all['imgItalic'])" & vbCrLf
mStr += " doCommand (document.all['imgUnderLine'])" & vbCrLf
mStr += " break;" & vbCrLf
mStr += " case 'imgUnderLine' :" & vbCrLf
mStr += " mCommand = 'underline'; " & vbCrLf
mStr += " uInterface = false;" & vbCrLf
mStr += " vValue = null;" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgStrikeThrough' :" & vbCrLf
mStr += " mCommand = 'strikethrough'; " & vbCrLf
mStr += " uInterface = false;" & vbCrLf
mStr += " vValue = null;" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgAlignLeft' :" & vbCrLf
mStr += " mCommand = 'justifyleft'; " & vbCrLf
mStr += " uInterface = false;" & vbCrLf
mStr += " vValue = null;" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgAlignRight' :" & vbCrLf
mStr += " mCommand = 'justifyright';" & vbCrLf
mStr += " uInterface = false;" & vbCrLf
mStr += " vValue = null;" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgAlignCenter' :" & vbCrLf
mStr += " mCommand = 'justifycenter';" & vbCrLf
mStr += " uInterface = false;" & vbCrLf
mStr += " vValue = null;" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgAlignJustify' :" & vbCrLf
mStr += " mCommand = 'justifyfull';" & vbCrLf
mStr += " uInterface = false;" & vbCrLf
mStr += " vValue = null;" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgCut' :" & vbCrLf
mStr += " mCommand = 'cut';" & vbCrLf
mStr += " uInterface = false;" & vbCrLf
mStr += " vValue = null;" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgCopy' :" & vbCrLf
mStr += " mCommand = 'copy';" & vbCrLf
mStr += " uInterface = false;" & vbCrLf
mStr += " vValue = null;" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgPaste' :" & vbCrLf
mStr += " mCommand = 'paste';" & vbCrLf
mStr += " uInterface = false;" & vbCrLf
mStr += " vValue = null;" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgImage' :" & vbCrLf
mStr += " //Note that if we set UserInterface to true and vValue to null, then" & vbCrLf
mStr += " //A Dialogue will appear asking for Image location." & vbCrLf
mStr += " mCommand = 'insertimage';" & vbCrLf
mStr += " uInterface = true;" & vbCrLf
mStr += " vValue = null;" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgLink' :" & vbCrLf
mStr += " mCommand = 'createlink';" & vbCrLf
mStr += " uInterface = true;" & vbCrLf
mStr += " vValue = null;" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgLine' :" & vbCrLf
mStr += " mCommand = 'inserthorizontalrule';" & vbCrLf
mStr += " uInterface = false;" & vbCrLf
mStr += " vValue = null;" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgUndo' :" & vbCrLf
mStr += " mCommand = 'undo';" & vbCrLf
mStr += " uInterface = false;" & vbCrLf
mStr += " vValue = null;" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgRedo' :" & vbCrLf
mStr += " mCommand = 'redo';" & vbCrLf
mStr += " uInterface = false;" & vbCrLf
mStr += " vValue = null;" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgOrderList' :" & vbCrLf
mStr += " mCommand = 'insertorderedlist';" & vbCrLf
mStr += " uInterface = false;" & vbCrLf
mStr += " vValue = null;" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgUnOrderList' :" & vbCrLf
mStr += " mCommand = 'insertunorderedlist';" & vbCrLf
mStr += " uInterface = false;" & vbCrLf
mStr += " vValue = null;" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgOutdent' :" & vbCrLf
mStr += " mCommand = 'outdent';" & vbCrLf
mStr += " uInterface = false;" & vbCrLf
mStr += " vValue = null;" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgIndent' :" & vbCrLf
mStr += " mCommand = 'indent';" & vbCrLf
mStr += " uInterface = false;" & vbCrLf
mStr += " vValue = null;" & vbCrLf
mStr += " break;" & vbCrLf
mStr += " case 'lstStyle' :" & vbCrLf
mStr += " mCommand = 'formatblock';" & vbCrLf
mStr += " vValue = ctrl.options[ctrl.selectedIndex].value ;" & vbCrLf
mStr += " uInterface = false;" & vbCrLf
mStr += " break;" & vbCrLf
'TODO List Font is not working, Check here
mStr += " case 'lstFontSize' :" & vbCrLf
mStr += " mCommand = 'fontsize';" & vbCrLf
mStr += " vValue = ctrl.options[ctrl.selectedIndex].value ;" & vbCrLf
mStr += " uInterface = false;" & vbCrLf
mStr += " break;" & vbCrLf
mStr += " case 'lstFont' :" & vbCrLf
mStr += " mCommand = 'fontname';" & vbCrLf
mStr += " vValue = ctrl.options[ctrl.selectedIndex].value ; " & vbCrLf
mStr += " uInterface = false;" & vbCrLf
mStr += " break;" & vbCrLf
mStr += " case 'lstColor' :" & vbCrLf
mStr += " mCommand = 'forecolor';" & vbCrLf
mStr += " vValue = ctrl.options[ctrl.selectedIndex].value ; " & vbCrLf
mStr += " uInterface = false;" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgDelete' :" & vbCrLf
mStr += " mCommand = 'delete';" & vbCrLf
mStr += " vValue = null;" & vbCrLf
mStr += " uInterface = false;" & vbCrLf
mStr += " break;" & vbCrLf
mStr += " case 'imgPrint' :" & vbCrLf
mStr += " mCommand = 'delete';" & vbCrLf
mStr += " vValue = null;" & vbCrLf
mStr += " uInterface = true; " & vbCrLf
mStr += " break;" & vbCrLf
mStr += " case 'imgSave' :" & vbCrLf
mStr += " mCommand = 'saveas';" & vbCrLf
mStr += " vValue = null;" & vbCrLf
mStr += " uInterface = true; " & vbCrLf
mStr += " break;" & vbCrLf
mStr += " case 'imgCustom' : " & vbCrLf
mStr += " var temp = table2.style.display;" & vbCrLf
mStr += " if (temp == 'none')" & vbCrLf
mStr += " {" & vbCrLf
mStr += " var mTemp1 = RTFEdit_" & Me.UniqueID & ".document.body.innerText;" & vbCrLf
mStr += " table1.style.display = 'inline';" & vbCrLf
mStr += " table2.style.display = 'inline'; " & vbCrLf
mStr += " RTFEdit_" & Me.UniqueID & ".document.body.innerHTML = mTemp1;" & vbCrLf
mStr += " }" & vbCrLf
mStr += " else" & vbCrLf
mStr += " { " & vbCrLf
mStr += " //First Set the HTMLText in the TextBox" & vbCrLf
mStr += " var mTemp = RTFEdit_" & Me.UniqueID & ".document.body.innerHTML;" & vbCrLf
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -