|
本帖最后由 Moneky 于 2014-10-17 09:29 编辑
换了win8,原来的不能用了,这个插件不错。
自己改了一下只保留了代码缩进和空行删除。
感觉下面的代码可以修改下
Do Until Left(aLine, 1) <> " "
aCodePane.CodeModule.ReplaceLine aLineNumber, Mid(aLine, 2)
aLine = aCodePane.CodeModule.Lines(aLineNumber, 1)
Loop 'Loop repeats until all spaces/indents removed
我直接改成了:
aCodePane.CodeModule.ReplaceLine aLineNumber,trim$(aLine)
感觉速度快一些了
============================================================
精简后的工具,没有创建新的工具栏,只是在内置的“编辑”工具栏上添加了两个按钮,在右键菜单中也添加了两个菜单项,方便快捷调用。现在的代码对齐代码有一些小缺陷,但总体还是够用了,如果自己写的代码基本上用不上。
|
评分
-
2
查看全部评分
-
|