📄 rtfbox.vb
字号:
mStr += " case 'imgSuperScript' :" & vbCrLf
mStr += " mImage = 'superscript_over.gif'" & vbCrLf
mStr += " break;" & vbCrLf
mStr += " case 'imgSubScript' :" & vbCrLf
mStr += " mImage = 'subscript_over.gif'" & vbCrLf
mStr += " break;" & vbCrLf
mStr += " case 'imgSave':" & vbCrLf
mStr += " mImage = 'save_over.gif'" & vbCrLf
mStr += " break;" & vbCrLf
mStr += " case 'imgAlignLeft' :" & vbCrLf
mStr += " mImage = 'alignleft_over.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgAlignRight' :" & vbCrLf
mStr += " mImage = 'alignright_over.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgAlignCenter' :" & vbCrLf
mStr += " mImage = 'aligncenter_over.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgAlignJustify' :" & vbCrLf
mStr += " mImage = 'alignjustify_over.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgCut' :" & vbCrLf
mStr += " mImage = 'cut_over.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgCopy' :" & vbCrLf
mStr += " mImage = 'copy_over.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgPaste' :" & vbCrLf
mStr += " mImage = 'paste_over.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgImage' :" & vbCrLf
mStr += " mImage = 'image_over.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgLink' :" & vbCrLf
mStr += " mImage = 'link_over.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgLine' :" & vbCrLf
mStr += " mImage = 'line_over.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgUndo' :" & vbCrLf
mStr += " mImage = 'undo_over.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgRedo' :" & vbCrLf
mStr += " mImage = 'redo_over.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgOrderList' :" & vbCrLf
mStr += " mImage = 'orderedlist_over.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgUnOrderList' :" & vbCrLf
mStr += " mImage = 'unorderedlist_over.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgOutdent' :" & vbCrLf
mStr += " mImage = 'outdent_over.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgIndent' :" & vbCrLf
mStr += " mImage = 'indent_over.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgHighLight' :" & vbCrLf
mStr += " mImage = 'highlight_over.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgFontColor' :" & vbCrLf
mStr += " mImage = 'fontcolor_over.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgCustom' :" & vbCrLf
mStr += " mImage = 'customtag_over.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " default :" & vbCrLf
mStr += " mImage = ctrl.src;" & vbCrLf
mStr += "" & vbCrLf
mStr += " }" & vbCrLf
mStr += " var mNewImage = new Image();" & vbCrLf
mStr += " mNewImage.src = '" & mIconsPath & "/' + mImage ;" & vbCrLf
mStr += " if (! (mImage == ctrl.src) ) " & vbCrLf
mStr += " ctrl.src = mNewImage.src;" & vbCrLf
mStr += " ctrl.style.cursor = 'hand'; " & vbCrLf
'mStr += " ctrl.style.borderColor = '#000000';" & vbCrLf
'mStr += " ctrl.style.backgroundColor = '#B5BED6';" & vbCrLf
mStr += "}" & vbCrLf
mStr += "</Script>" & vbCrLf
Return (mStr & vbCrLf)
End Function
Private Function GenerateSelOFFScript() As String
Dim mStr As String
mStr = "<Script Language=""javascript"">" & vbCrLf
mStr += "function selOff(ctrl)" & vbCrLf
mStr += "{" & vbCrLf
mStr += " var mImage ;" & vbCrLf
mStr += " switch(ctrl.id)" & vbCrLf
mStr += " {" & vbCrLf
mStr += " case 'imgCuston' :" & vbCrLf
mStr += " mImage = 'customtag_off.gif';" & vbCrLf
mStr += " break;" & vbCrLf
mStr += " case 'imgAbout' :" & vbCrLf
mStr += " mImage = 'about_off.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgBold' :" & vbCrLf
mStr += " mImage = 'bold_off.gif';" & vbCrLf
mStr += " break;" & vbCrLf
mStr += " case 'imgItalic' :" & vbCrLf
mStr += " mImage = 'italic_off.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgBoldItalic' :" & vbCrLf
mStr += " mImage = 'bolditalicunderline_off.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += "" & vbCrLf
mStr += " case 'imgSuperScript' :" & vbCrLf
mStr += " mImage = 'superscript_off.gif'" & vbCrLf
mStr += " break;" & vbCrLf
mStr += " case 'imgSubScript' :" & vbCrLf
mStr += " mImage = 'subscript_off.gif'" & vbCrLf
mStr += " break;" & vbCrLf
mStr += " case 'imgSpecialChar' :" & vbCrLf
mStr += " mImage = 'specialchars_off.gif'" & vbCrLf
mStr += " break;" & vbCrLf
mStr += " case 'imgSave':" & vbCrLf
mStr += " mImage = 'save_off.gif'" & vbCrLf
mStr += " break;" & vbCrLf
mStr += " case 'imgUnderLine' :" & vbCrLf
mStr += " mImage = 'underline_off.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgStrikeThrough' :" & vbCrLf
mStr += " mImage = 'strikethrough_off.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgAlignLeft' :" & vbCrLf
mStr += " mImage = 'alignleft_off.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgAlignRight' :" & vbCrLf
mStr += " mImage = 'alignright_off.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgAlignCenter' :" & vbCrLf
mStr += " mImage = 'aligncenter_off.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgAlignJustify' :" & vbCrLf
mStr += " mImage = 'alignjustify_off.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgCut' :" & vbCrLf
mStr += " mImage = 'cut_off.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgCopy' :" & vbCrLf
mStr += " mImage = 'copy_off.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgPaste' :" & vbCrLf
mStr += " mImage = 'paste_off.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgImage' :" & vbCrLf
mStr += " mImage = 'image_off.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgLink' :" & vbCrLf
mStr += " mImage = 'link_off.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgLine' :" & vbCrLf
mStr += " mImage = 'line_off.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += "" & vbCrLf
mStr += " case 'imgUndo' :" & vbCrLf
mStr += " mImage = 'undo_off.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgRedo' :" & vbCrLf
mStr += " mImage = 'redo_off.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgOrderList' :" & vbCrLf
mStr += " mImage = 'orderedlist_off.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgUnOrderList' :" & vbCrLf
mStr += " mImage = 'unorderedlist_off.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgOutdent' :" & vbCrLf
mStr += " mImage = 'outdent_off.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgIndent' :" & vbCrLf
mStr += " mImage = 'indent_off.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgHighLight' :" & vbCrLf
mStr += " mImage = 'highlight_off.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgFontColor' :" & vbCrLf
mStr += " mImage = 'fontcolor_off.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " case 'imgCustom' :" & vbCrLf
mStr += " mImage = 'customtag_off.gif';" & vbCrLf
mStr += " break; " & vbCrLf
mStr += " default :" & vbCrLf
mStr += " mImage = ctrl.src; " & vbCrLf
mStr += " }" & vbCrLf
mStr += " var mNewImage = new Image();" & vbCrLf
mStr += " mNewImage.src = '" & mIconsPath & "/' + mImage ;" & vbCrLf
mStr += " if (! (mImage == ctrl.src) ) " & vbCrLf
mStr += " ctrl.src = mNewImage.src;" & vbCrLf
'mStr += " ctrl.style.borderColor = '#D6D3CE'; " & vbCrLf
'mStr += " ctrl.style.backgroundColor = '#D6D3CE';" & vbCrLf
mStr += "}" & vbCrLf
mStr += "</Script>" & vbCrLf
Return (mStr & vbCrLf)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -