如果你是一名软件开发人员，那么和别人进行技术交流是避免不了的，而绝大时候我们是通过互联网来进行资源共享的。

在技术交流中用实际的代码是表达自己想法的最直接的一种方法，因此我们就需要将代码片断张贴出来，或发送给对方。这时候如果我们发表的代码如果能像开发语言的IDE一样智能化显示，对代码中关键词汇、特殊内容用不同颜色来显示，这样不仅易于别人理解、掌握重点，也更加美观。曾经在网上用过类似的几个软件，要么收费，要么效果不大好，而且最主要的作者都不是中国人，因此在某一天突然产生一个“自己来编写”的念头。

现在，这个想法终于有了雏形，虽然距离我想达到的目标还有一段距离，但也算是一个小小的开端了吧，先说说现在有具有的功能：

因为我最熟悉的计算机语言就是VB，所以本软件用VB6（English Version）编写。目前也仅仅对VB源代码进行解析处理。

运行环境：

• 操作系统：Window98/WindowsNT/Windows2000/WindowsXP

最初做成英文版本的是希望适应更多的系统,但是以后会修改成中英两种语言

要求组件：

• VB6运行库（MSVBVM60.dll）
• Microsoft Internet Controls(shdocvw.dll)
• Microsoft Rich TextBox Control 6.0(richtx32.ocx)

应为这些组件windows2000以上系统一般都有，所以我没有做成安装包，仅仅做了一个压缩包，下载后可以直接运行，不会影响到系统其他内容。

运行演示：

运行主程序，你会发现主要分四部分：

• 以工程或者工程组为单位进行批量或者部分转换（因为未完成，所以隐藏掉了）
• 以单个文件为单位进行转换，转换成功会将转换结果显示在程序中，如图一所示：

• 最后还有一项，对最终转换结果很重要就是设置参数，如图三所示：

转换效果演示：

源代码：

Option Explicit

'This is a test form
Private Sub Form_Load()
Me.Caption = "Test Source to code"

End Sub

Private Sub Form_Resize()
Me.Move 0, 0, Screen.TwipsPerPixelX / 2, Screen.TwipsPerPixelY / 2
End Sub

转换后：

Option Explicit 




'This is a test form

Private Sub Form_Load() 

  Me.Caption =  "Test Source to code"

  

End Sub 



Private Sub Form_Resize() 

  Me.Move 0, 0, Screen.TwipsPerPixelX / 2, Screen.TwipsPerPixelY / 2 

End Sub 

可以说知道目前位置。这个软件还有太多不尽人意的地方，在以后的时间会组建改善优化，增加更多使用的功能。

如果感兴趣可以点击上面的连接图标下载，或者在这里下载。

暂停下载

下载后解压缩就可以，如果没有安装VB，请下载msvbvm60.dll放到应用程序目录。