modtags.bas

这是一个完美版本的的超强文件编辑器,支持各种程序的语法高亮,支持插件和宏录制,支持XP菜单,支持浏览器浏览等等功能,记得有位网友做文件编辑器要求我给他一个支持语法高亮和DockWindows技术的代码

Attribute VB_Name = "modTags"
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：05/06/19
'描  述：完整版本的超强文件编辑器
'网  站：http://www.mndsoft.com/
'e-mail：[e-mail]
'OICQ  : 88382850
'****************************************************************************
Option Explicit
Public Sub addTags()
  Dim fFile As Integer, tmpStr As String, tmpKey As String
  fFile = FreeFile
  Open App.path & "\temp\tags.dat" For Input As #fFile
    Do Until EOF(fFile)
      Input #fFile, tmpStr
      If Left(tmpStr, 1) <> "+" Then
        frmNav.TagsD.Nodes.Add , , tmpStr, tmpStr, 1
        tmpKey = tmpStr
      Else
        frmNav.TagsD.Nodes.Add tmpKey, tvwChild, Mid(tmpStr, 2, Len(tmpStr) - 1) & frmNav.TagsD.Nodes.Count, Mid(tmpStr, 2, Len(tmpStr) - 1), 2
      End If
    Loop
  Close #fFile
End Sub