⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 frmmain.frm

📁 这是一个完美版本的的超强文件编辑器,支持各种程序的语法高亮,支持插件和宏录制,支持XP菜单,支持浏览器浏览等等功能,记得有位网友做文件编辑器要求我给他一个支持语法高亮和DockWindows技术的代码
💻 FRM
📖 第 1 页 / 共 5 页
字号:
      Begin VB.Menu bar30 
         Caption         =   "-"
      End
      Begin VB.Menu saveftp 
         Caption         =   "&FTP"
         Begin VB.Menu openftp 
            Caption         =   "打开FTP窗口(&O)"
         End
         Begin VB.Menu saveto 
            Caption         =   "保存到FTP窗口(&S)"
         End
      End
      Begin VB.Menu bar1 
         Caption         =   "-"
      End
      Begin VB.Menu prints 
         Caption         =   "打印(&P)"
      End
      Begin VB.Menu printsetup 
         Caption         =   "打印机设置(&S)"
      End
      Begin VB.Menu bar2 
         Caption         =   "-"
      End
      Begin VB.Menu properties 
         Caption         =   "文档属性(&D)"
      End
      Begin VB.Menu bar3 
         Caption         =   "-"
      End
      Begin VB.Menu mnuRecent 
         Caption         =   "新近打开的文档(&R)"
         Begin VB.Menu mnuRec 
            Caption         =   ""
            Index           =   0
         End
         Begin VB.Menu mnuRec 
            Caption         =   ""
            Index           =   1
            Visible         =   0   'False
         End
         Begin VB.Menu mnuRec 
            Caption         =   ""
            Index           =   2
            Visible         =   0   'False
         End
         Begin VB.Menu mnuRec 
            Caption         =   ""
            Index           =   3
            Visible         =   0   'False
         End
         Begin VB.Menu mnuRec 
            Caption         =   ""
            Index           =   4
            Visible         =   0   'False
         End
         Begin VB.Menu mnuRec 
            Caption         =   ""
            Index           =   5
            Visible         =   0   'False
         End
      End
      Begin VB.Menu mnuBar5 
         Caption         =   "-"
      End
      Begin VB.Menu exit 
         Caption         =   "退出(&E)"
      End
   End
   Begin VB.Menu edit 
      Caption         =   "编辑(&E)"
      Begin VB.Menu undo 
         Caption         =   "撤消(&U)"
      End
      Begin VB.Menu redo 
         Caption         =   "重做(&R)"
      End
      Begin VB.Menu bar7 
         Caption         =   "-"
      End
      Begin VB.Menu cut 
         Caption         =   "剪切(&C)"
      End
      Begin VB.Menu copy 
         Caption         =   "复制(&O)"
      End
      Begin VB.Menu paste 
         Caption         =   "粘贴(&P)"
      End
      Begin VB.Menu delete 
         Caption         =   "删除(&D)"
      End
      Begin VB.Menu bar4 
         Caption         =   "-"
      End
      Begin VB.Menu mnuComment 
         Caption         =   "设置注释块(&B)"
      End
      Begin VB.Menu mnuUncomment 
         Caption         =   "解除注释块(&L)"
      End
      Begin VB.Menu mnuBar4 
         Caption         =   "-"
      End
      Begin VB.Menu selectall 
         Caption         =   "全选(&S)"
      End
      Begin VB.Menu selectline 
         Caption         =   "选择行(&L)"
      End
      Begin VB.Menu bar5 
         Caption         =   "-"
      End
      Begin VB.Menu datetime 
         Caption         =   "日期/时间"
      End
   End
   Begin VB.Menu search 
      Caption         =   "搜索(&S)"
      Begin VB.Menu find 
         Caption         =   "查找(&F)"
      End
      Begin VB.Menu findnext 
         Caption         =   "查找下一个(&N)"
      End
      Begin VB.Menu findprev 
         Caption         =   "查找上一个(&P)"
      End
      Begin VB.Menu mnuReplace 
         Caption         =   "替换(&R)"
      End
      Begin VB.Menu bar8 
         Caption         =   "-"
      End
      Begin VB.Menu mnuFindInFiles 
         Caption         =   "在文件中查找(&D)"
      End
      Begin VB.Menu bar193 
         Caption         =   "-"
      End
      Begin VB.Menu goto 
         Caption         =   "转到行(&G)..."
      End
      Begin VB.Menu bar100 
         Caption         =   "-"
      End
      Begin VB.Menu mnuToggle 
         Caption         =   "书签设置(&T)"
      End
      Begin VB.Menu mnuNext 
         Caption         =   "下一书签(&N)"
      End
      Begin VB.Menu mnuPrev 
         Caption         =   "上一书签(&P)"
      End
      Begin VB.Menu mnuClear 
         Caption         =   "清除书签(&C)"
      End
      Begin VB.Menu bar101 
         Caption         =   "-"
      End
      Begin VB.Menu mnuNLine 
         Caption         =   "下一行(&L)"
      End
      Begin VB.Menu mnuLPrev 
         Caption         =   "上一行(&I)"
      End
      Begin VB.Menu bar102 
         Caption         =   "-"
      End
      Begin VB.Menu countall 
         Caption         =   "统计行(&A)"
      End
   End
   Begin VB.Menu view 
      Caption         =   "视图(&V)"
      Begin VB.Menu editor 
         Caption         =   "编辑器选项(&E)"
      End
      Begin VB.Menu fileassoc 
         Caption         =   "文件关联(&F)"
      End
      Begin VB.Menu bar11 
         Caption         =   "-"
      End
      Begin VB.Menu template 
         Caption         =   "模板编辑器(&T)"
      End
      Begin VB.Menu mnuBar15 
         Caption         =   "-"
      End
      Begin VB.Menu toolbar 
         Caption         =   "标准工具栏(&T)"
         Checked         =   -1  'True
      End
      Begin VB.Menu mnuMacBar 
         Caption         =   "宏工具栏(&M)"
      End
      Begin VB.Menu mnuBar3 
         Caption         =   "-"
      End
      Begin VB.Menu statusbar2 
         Caption         =   "多文档选项卡(&T)"
         Checked         =   -1  'True
      End
      Begin VB.Menu mnuBar6 
         Caption         =   "-"
      End
      Begin VB.Menu quicknav 
         Caption         =   "快速导航条"
      End
      Begin VB.Menu MDebugOutput 
         Caption         =   "调试窗口"
      End
      Begin VB.Menu bar20 
         Caption         =   "-"
      End
      Begin VB.Menu hlline 
         Caption         =   "高亮选择行"
      End
      Begin VB.Menu whitespace 
         Caption         =   "显示空格/制表符(&W)"
      End
   End
   Begin VB.Menu mnuBuild 
      Caption         =   "编译(&C)"
      Begin VB.Menu mnuCompile 
         Caption         =   "构建/编译(&B)"
         Shortcut        =   {F5}
      End
      Begin VB.Menu mnuBar7 
         Caption         =   "-"
      End
      Begin VB.Menu mnuBuildConfig 
         Caption         =   "编译器配置(&C)"
      End
   End
   Begin VB.Menu mnuMacro 
      Caption         =   "宏(&M)"
      Begin VB.Menu mac 
         Caption         =   "宏 1"
         Index           =   1
      End
      Begin VB.Menu mac 
         Caption         =   "宏 2"
         Index           =   2
      End
      Begin VB.Menu mac 
         Caption         =   "宏 3"
         Index           =   3
      End
      Begin VB.Menu mac 
         Caption         =   "宏 4"
         Index           =   4
      End
      Begin VB.Menu mac 
         Caption         =   "宏 5"
         Index           =   5
      End
      Begin VB.Menu mac 
         Caption         =   "宏 6"
         Index           =   6
      End
      Begin VB.Menu mac 
         Caption         =   "宏 7"
         Index           =   7
      End
      Begin VB.Menu mac 
         Caption         =   "宏 8"
         Index           =   8
      End
      Begin VB.Menu mac 
         Caption         =   "宏 9"
         Index           =   9
      End
      Begin VB.Menu mac 
         Caption         =   "宏 10"
         Index           =   10
      End
      Begin VB.Menu mnuBar2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuSave 
         Caption         =   "保存宏(&S)"
      End
      Begin VB.Menu mnuBar1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuCreate 
         Caption         =   "创建宏"
      End
   End
   Begin VB.Menu mnuPlugins 
      Caption         =   "插件(&P)"
      Begin VB.Menu mnuPlugin 
         Caption         =   "当前无插件安装"
         Enabled         =   0   'False
         Index           =   0
      End
   End
   Begin VB.Menu window 
      Caption         =   "窗口(&W)"
      Begin VB.Menu tilehor 
         Caption         =   "水平平铺"
      End
      Begin VB.Menu tilever 
         Caption         =   "垂直平铺"
      End
      Begin VB.Menu arrangeicons 
         Caption         =   "排列图标"
      End
      Begin VB.Menu cascade 
         Caption         =   "层叠(&C)"
      End
      Begin VB.Menu bar12 
         Caption         =   "-"
      End
      Begin VB.Menu closeall 
         Caption         =   "关闭全部窗口"
      End
      Begin VB.Menu bar13 
         Caption         =   "-"
      End
      Begin VB.Menu inbrowser 
         Caption         =   "在浏览器中显示文件"
      End
      Begin VB.Menu wnlist 
         Caption         =   "窗口列表"
         WindowList      =   -1  'True
      End
   End
   Begin VB.Menu mnuLinks 
      Caption         =   "链接(&L)"
      Begin VB.Menu mnuPSC 
         Caption         =   "枕善居(&P)"
      End
      Begin VB.Menu mnuVB 
         Caption         =   "&FreeVBCode"
      End
      Begin VB.Menu mnuVBA 
         Caption         =   "&VisualBasic Accelerator"
      End
      Begin VB.Menu mnuBar16 
         Caption         =   "-"
      End
      Begin VB.Menu mnucEdit 
         Caption         =   "主页(&H)"
      End
   End
   Begin VB.Menu help 
      Caption         =   "帮助(&H)"
      Begin VB.Menu genhelp 
         Caption         =   "目录"
      End
      Begin VB.Menu online 
         Caption         =   "在线帮助"
      End
      Begin VB.Menu bar22 
         Caption         =   "-"
      End
      Begin VB.Menu readme 
         Caption         =   "说明书(&R)"
      End
      Begin VB.Menu bar14 
         Caption         =   "-"
      End
      Begin VB.Menu acksoftsite 
         Caption         =   "我的网站(&W)"
      End
      Begin VB.Menu bar15 
         Caption         =   "-"
      End
      Begin VB.Menu about 
         Caption         =   "关于(&A)"
      End
   End
   Begin VB.Menu tabmenu 
      Caption         =   "TabMenu"
      Visible         =   0   'False
      Begin VB.Menu close2 
         Caption         =   "关闭(&C)"
      End
      Begin VB.Menu bar40 
         Caption         =   "-"
      End
      Begin VB.Menu save2 
         Caption         =   "保存(&S)"
      End
      Begin VB.Menu saveas2 
         Caption         =   "另存为(&A)..."
      End
      Begin VB.Menu bar41 
         Caption         =   "-"
      End
      Begin VB.Menu print2 
         Caption         =   "打印(&P)"

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -