frmmain.frm

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

      Child1          =   "tBar"
      MinHeight1      =   330
      Width1          =   7500
      NewRow1         =   0   'False
      Child2          =   "tbSearch"
      MinHeight2      =   330
      Width2          =   4500
      NewRow2         =   0   'False
      Child3          =   "tbMacro"
      MinHeight3      =   330
      Width3          =   4020
      NewRow3         =   -1  'True
      Child4          =   "tbProgramming"
      MinHeight4      =   330
      Width4          =   6000
      NewRow4         =   0   'False
      Begin MSComctlLib.Toolbar tBar 
         Height          =   330
         Left            =   165
         TabIndex        =   9
         Top             =   30
         Width           =   7305
         _ExtentX        =   12885
         _ExtentY        =   582
         ButtonWidth     =   609
         ButtonHeight    =   582
         Wrappable       =   0   'False
         Style           =   1
         ImageList       =   "img"
         _Version        =   393216
         BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
            NumButtons      =   26
            BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "new"
               Object.ToolTipText     =   "New Document"
               ImageIndex      =   1
            EndProperty
            BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "open"
               Object.ToolTipText     =   "Open Document"
               ImageIndex      =   2
            EndProperty
            BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Enabled         =   0   'False
               Key             =   "close"
               Object.ToolTipText     =   "Close Open Document"
               ImageIndex      =   3
            EndProperty
            BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Enabled         =   0   'False
               Key             =   "save"
               Object.ToolTipText     =   "Save Document"
               ImageIndex      =   4
            EndProperty
            BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Enabled         =   0   'False
               Key             =   "saveall"
               Object.ToolTipText     =   "Save All Open Documents"
               ImageIndex      =   44
            EndProperty
            BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Enabled         =   0   'False
               Key             =   "saveas"
               Object.ToolTipText     =   "Save Document As"
               ImageIndex      =   45
            EndProperty
            BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Enabled         =   0   'False
               Key             =   "reload"
               Object.ToolTipText     =   "Reload Open Document"
               ImageIndex      =   46
            EndProperty
            BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Enabled         =   0   'False
               Key             =   "print"
               Object.ToolTipText     =   "Print Document"
               ImageIndex      =   5
            EndProperty
            BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Enabled         =   0   'False
               Key             =   "undo"
               Object.ToolTipText     =   "Undo"
               ImageIndex      =   7
            EndProperty
            BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Enabled         =   0   'False
               Key             =   "redo"
               Object.ToolTipText     =   "Redo"
               ImageIndex      =   8
            EndProperty
            BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Enabled         =   0   'False
               Key             =   "cut"
               Object.ToolTipText     =   "Cut Selected Text"
               ImageIndex      =   9
            EndProperty
            BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Enabled         =   0   'False
               Key             =   "copy"
               Object.ToolTipText     =   "Copy Selected Text"
               ImageIndex      =   10
            EndProperty
            BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Enabled         =   0   'False
               Key             =   "paste"
               Object.ToolTipText     =   "Paste Clipboard Contents"
               ImageIndex      =   11
            EndProperty
            BeginProperty Button18 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Enabled         =   0   'False
               Key             =   "delete"
               Object.ToolTipText     =   "Delete Selected Text"
               ImageIndex      =   12
            EndProperty
            BeginProperty Button19 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button20 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "prop"
               Object.ToolTipText     =   "Settings"
               ImageIndex      =   13
            EndProperty
            BeginProperty Button21 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button22 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "tilehor"
               Object.ToolTipText     =   "Tile Horizontaly"
               ImageIndex      =   28
            EndProperty
            BeginProperty Button23 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "tilever"
               Object.ToolTipText     =   "Tile Verticly"
               ImageIndex      =   29
            EndProperty
            BeginProperty Button24 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "cascade"
               Object.ToolTipText     =   "Cascade"
               ImageIndex      =   30
            EndProperty
            BeginProperty Button25 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button26 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "help"
               Object.ToolTipText     =   "Help"
               ImageIndex      =   31
            EndProperty
         EndProperty
      End
      Begin MSComctlLib.Toolbar tbMacro 
         Height          =   330
         Left            =   165
         TabIndex        =   8
         Top             =   390
         Width           =   3825
         _ExtentX        =   6747
         _ExtentY        =   582
         ButtonWidth     =   609
         ButtonHeight    =   582
         Wrappable       =   0   'False
         Style           =   1
         ImageList       =   "img"
         _Version        =   393216
         BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
            NumButtons      =   12
            BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "mac1"
               Object.ToolTipText     =   "Macro 1"
               ImageIndex      =   33
            EndProperty
            BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "mac2"
               Object.ToolTipText     =   "Play Macro 2"
               ImageIndex      =   34
            EndProperty
            BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "mac3"
               Object.ToolTipText     =   "Play Macro 3"
               ImageIndex      =   35
            EndProperty
            BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "mac4"
               Object.ToolTipText     =   "Play Macro 4"
               ImageIndex      =   36
            EndProperty
            BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "mac5"
               Object.ToolTipText     =   "Play Macro 5"
               ImageIndex      =   37
            EndProperty
            BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "mac6"
               Object.ToolTipText     =   "Play Macro 6"
               ImageIndex      =   38
            EndProperty
            BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "mac7"
               Object.ToolTipText     =   "Play Macro 7"
               ImageIndex      =   39
            EndProperty
            BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "mac8"
               Object.ToolTipText     =   "Play Macro 8"
               ImageIndex      =   40
            EndProperty
            BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "mac9"
               Object.ToolTipText     =   "Play Macro 9"
               ImageIndex      =   41
            EndProperty
            BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "mac10"
               Object.ToolTipText     =   "Play Macro 10"
               ImageIndex      =   42
            EndProperty
            BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "cmac"
               Object.ToolTipText     =   "Create Macro"
               ImageIndex      =   43
            EndProperty
         EndProperty
      End
      Begin MSComctlLib.Toolbar tbSearch 
         Height          =   330
         Left            =   7695
         TabIndex        =   6
         Top             =   30
         Width           =   4095
         _ExtentX        =   7223
         _ExtentY        =   582
         ButtonWidth     =   609
         ButtonHeight    =   582
         Wrappable       =   0   'False
         Style           =   1
         ImageList       =   "img"
         _Version        =   393216
         BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
            NumButtons      =   9
            BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            EndProperty
            BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            EndProperty
            BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            EndProperty
            BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            EndProperty
            BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            EndProperty
            BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "find"
               ImageIndex      =   14
            EndProperty
            BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "findnext"
               ImageIndex      =   15
            EndProperty
            BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "findprev"
               ImageIndex      =   16
            EndProperty
         EndProperty
         Begin VB.ComboBox cmbFind 
            Height          =   315
            Left            =   0
            TabIndex        =   7
            Top             =   0
            Width           =   1695
         End
      End
      Begin MSComctlLib.Toolbar tbProgramming 
         Height          =   330
         Left            =   4215
         TabIndex        =   5
         Top             =   390
         Width           =   7575
         _ExtentX        =   13361
         _ExtentY        =   582
         ButtonWidth     =   609
         ButtonHeight    =   582
         Wrappable       =   0   'False
         Style           =   1
         ImageList       =   "img"
         _Version        =   393216
         BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
            NumButtons      =   15
            BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "tabl"
               ImageIndex      =   17
            EndProperty
            BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "tabr"
               ImageIndex      =   18
            EndProperty
            BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "cblock"
               ImageIndex      =   19
            EndProperty
            BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "ublock"
               ImageIndex      =   20
            EndProperty
            BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "tbmark"
               ImageIndex      =   21
            EndProperty
            BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "nbmark"
               ImageIndex      =   22
            EndProperty
            BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "pbmark"
               ImageIndex      =   23
            EndProperty
            BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "cbmark"
               ImageIndex      =   24
            EndProperty
            BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "nline"
               ImageIndex      =   26
            EndProperty
            BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "pline"
               ImageIndex      =   25
            EndProperty
            BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "ctag"
               ImageIndex      =   27
            EndProperty
         EndProperty
      End
   End
   Begin VB.Menu file 
      Caption         =   "文件(&F)"
      Begin VB.Menu new 
         Caption         =   "新建文档(&N) "
      End
      Begin VB.Menu mnuNewTemplate 
         Caption         =   "新建窗体模板(&N)"
         Begin VB.Menu mnuTemplate 
            Caption         =   ""
            Index           =   0
         End
      End
      Begin VB.Menu mnuBar10 
         Caption         =   "-"
      End
      Begin VB.Menu open 
         Caption         =   "打开文档(&O)"
      End
      Begin VB.Menu close 
         Caption         =   "关闭(&C)"
      End
      Begin VB.Menu bar0 
         Caption         =   "-"
      End
      Begin VB.Menu save 
         Caption         =   "保存文档(&S)"
      End
      Begin VB.Menu saveas 
         Caption         =   "文档另存为(&A)..."
      End
      Begin VB.Menu saveall 
         Caption         =   "保存全部(&L)"
      End