VB语法着色显示

baomaboy

本贴不再更新：所有功能移至此贴：[原创] 利用Excel插件做宏病毒监控V2.62

用途：
论坛发帖语法高亮。
用法：
1.由网页或者VBE编辑等复制源码到剪贴板中。
2.点击Excle菜单→格式→语法高亮转换(或者使用快捷键：Ctrl+Alt+Shift+F）。
3.剪贴板中已经是转换后的代码了，可以直接粘贴到帖子中。
4.只是演示一个方法，不推荐使用。(任何格式的解析都会增加服务器的负担)

注：在发帖的高级模式下勾选一下“纯文本”然后再取消勾选状态就可以预览代码的着色高亮效果了。

如下为代码高亮着色演示：

代码:

REM VBS代码着色演示 - by baomaboy REM 出现这个演示说明你没有选择网页文本或者剪贴板中无数据， REM 请确认你选择了网页文本或者你的剪贴板中读取了VBS代码后再次操作。 REM 如下为演示代码： Dim A,B A = 89 B = 136 If A > 100 And B > 100 Then'(此处注释)这只是一个例子！     Msgbox"全 部 及 格！" Else     Msgbox"不 能 通 过！" End If

baomaboy

在发帖的高级模式下勾选一下“纯文本”然后再取消勾选状态就可以预览代码的着色高亮效果了。

baomaboy

应要求本来想添加显示行号的功能，本机测试好后，发现论坛不支持，应该是<Li>标签被过滤了。只能上一张本机的测试图了。

poor.456

编的不错，能否给提供是怎么做的，和原代码，谢谢，我的QQ号是54844062，欢迎加入，学习研究。{:soso_e160:}

jsmr3d

谢谢分享……