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

📄 frmmdi.frm

📁 一个非常完善的文本编辑器程序
💻 FRM
📖 第 1 页 / 共 4 页
字号:
VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{38911DA0-E448-11D0-84A3-00DD01104159}#1.1#0"; "COMCT332.OCX"
Begin VB.MDIForm frmMDI 
   BackColor       =   &H8000000C&
   Caption         =   "ElitePad"
   ClientHeight    =   7080
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   9945
   Icon            =   "frmMDI.frx":0000
   LinkTopic       =   "MDIForm1"
   OLEDropMode     =   1  'Manual
   StartUpPosition =   3  'Windows Default
   Begin VB.PictureBox picFileBar 
      Align           =   3  'Align Left
      BorderStyle     =   0  'None
      Height          =   4890
      Left            =   0
      ScaleHeight     =   4890
      ScaleWidth      =   2355
      TabIndex        =   12
      Top             =   1920
      Width           =   2355
      Begin MSComctlLib.ImageList ImageList1 
         Left            =   0
         Top             =   0
         _ExtentX        =   1005
         _ExtentY        =   1005
         BackColor       =   -2147483643
         ImageWidth      =   16
         ImageHeight     =   16
         MaskColor       =   12632256
         _Version        =   393216
         BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
            NumListImages   =   5
            BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmMDI.frx":030A
               Key             =   ""
            EndProperty
            BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmMDI.frx":2ABE
               Key             =   ""
            EndProperty
            BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmMDI.frx":5272
               Key             =   ""
            EndProperty
            BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmMDI.frx":7A26
               Key             =   ""
            EndProperty
            BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmMDI.frx":A1DA
               Key             =   ""
            EndProperty
         EndProperty
      End
      Begin VB.FileListBox File1 
         CausesValidation=   0   'False
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   1455
         Hidden          =   -1  'True
         Left            =   0
         System          =   -1  'True
         TabIndex        =   14
         Top             =   3375
         Width           =   2310
      End
      Begin MSComctlLib.TreeView tvwFolders 
         CausesValidation=   0   'False
         Height          =   3300
         Left            =   0
         TabIndex        =   13
         Top             =   75
         Width           =   2265
         _ExtentX        =   3995
         _ExtentY        =   5821
         _Version        =   393217
         Indentation     =   0
         LineStyle       =   1
         Style           =   7
         ImageList       =   "ImageList1"
         Appearance      =   1
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin VB.DriveListBox Drive1 
         Height          =   315
         Left            =   0
         TabIndex        =   15
         Top             =   0
         Visible         =   0   'False
         Width           =   1320
      End
      Begin VB.DirListBox Dir1 
         Height          =   315
         Left            =   0
         TabIndex        =   16
         Top             =   375
         Visible         =   0   'False
         Width           =   1275
      End
   End
   Begin ElitePad.epCmDlg CmDlg 
      Left            =   6150
      Top             =   3675
      _ExtentX        =   661
      _ExtentY        =   635
   End
   Begin ComCtl3.CoolBar cbrBar 
      Align           =   1  'Align Top
      Height          =   1500
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   9945
      _ExtentX        =   17542
      _ExtentY        =   2646
      BandCount       =   6
      _CBWidth        =   9945
      _CBHeight       =   1500
      _Version        =   "6.0.8169"
      Child1          =   "tbrStandard"
      MinHeight1      =   330
      Width1          =   30
      NewRow1         =   0   'False
      Child2          =   "picFont"
      MinHeight2      =   360
      Width2          =   3300
      NewRow2         =   -1  'True
      Child3          =   "tbrFormat"
      MinHeight3      =   330
      Width3          =   2175
      NewRow3         =   0   'False
      Child4          =   "tbrFile"
      MinHeight4      =   330
      Width4          =   2850
      NewRow4         =   -1  'True
      Visible4        =   0   'False
      Child5          =   "tbrEdit"
      MinHeight5      =   330
      Width5          =   5085
      NewRow5         =   0   'False
      Visible5        =   0   'False
      Child6          =   "tbrWindow"
      MinHeight6      =   330
      Width6          =   2205
      NewRow6         =   -1  'True
      Visible6        =   0   'False
      Begin VB.PictureBox picFont 
         BorderStyle     =   0  'None
         Height          =   360
         Left            =   165
         ScaleHeight     =   360
         ScaleWidth      =   3105
         TabIndex        =   8
         Top             =   390
         Width           =   3105
         Begin VB.ComboBox cboFontSize 
            Height          =   315
            Left            =   2250
            TabIndex        =   10
            Top             =   23
            Width           =   690
         End
         Begin VB.ComboBox cboFontName 
            Height          =   315
            Left            =   75
            Sorted          =   -1  'True
            TabIndex        =   9
            Top             =   23
            Width           =   2115
         End
      End
      Begin MSComctlLib.Toolbar tbrWindow 
         Height          =   330
         Left            =   165
         TabIndex        =   7
         Top             =   1140
         Width           =   9690
         _ExtentX        =   17092
         _ExtentY        =   582
         ButtonWidth     =   609
         ButtonHeight    =   582
         Style           =   1
         ImageList       =   "imgWindow"
         _Version        =   393216
         BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
            NumButtons      =   7
            BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "THorizontally"
               Object.ToolTipText     =   "Tile windows horizontally"
               ImageIndex      =   1
            EndProperty
            BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "TVertically"
               Object.ToolTipText     =   "Tile windows vertically"
               ImageIndex      =   2
            EndProperty
            BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "Cascade"
               Object.ToolTipText     =   "Cascade windows"
               ImageIndex      =   3
            EndProperty
            BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "Minimize"
               Object.ToolTipText     =   "Minimize windows"
               ImageIndex      =   4
            EndProperty
            BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "Restore"
               Object.ToolTipText     =   "Restore windows"
               ImageIndex      =   5
            EndProperty
            BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "Close"
               Object.ToolTipText     =   "Close the active window"
               ImageIndex      =   6
            EndProperty
            BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
         EndProperty
      End
      Begin MSComctlLib.Toolbar tbrFile 
         Height          =   330
         Left            =   165
         TabIndex        =   6
         Top             =   780
         Width           =   2655
         _ExtentX        =   4683
         _ExtentY        =   582
         ButtonWidth     =   609
         ButtonHeight    =   582
         Style           =   1
         ImageList       =   "imgFile"
         _Version        =   393216
         BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
            NumButtons      =   9
            BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "New"
               Object.ToolTipText     =   "Create a new document"
               ImageIndex      =   1
            EndProperty
            BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "Open"
               Object.ToolTipText     =   "Open an existing document"
               ImageIndex      =   2
            EndProperty
            BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "Close"
               Object.ToolTipText     =   "Close the active document"
               ImageIndex      =   3
            EndProperty
            BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "Save"
               Object.ToolTipText     =   "Save the active document"
               ImageIndex      =   4
            EndProperty
            BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "SaveAll"
               Object.ToolTipText     =   "Save all documents"
               ImageIndex      =   5
            EndProperty
            BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "MenageFiles"
               Object.ToolTipText     =   "Copy, delete or rename files"
               ImageIndex      =   6
            EndProperty
            BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "Print"
               Object.ToolTipText     =   "Print the active document"
               ImageIndex      =   7
            EndProperty
            BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
         EndProperty
      End
      Begin MSComctlLib.Toolbar tbrEdit 
         Height          =   330
         Left            =   3045
         TabIndex        =   5
         Top             =   780
         Width           =   6810
         _ExtentX        =   12012
         _ExtentY        =   582
         ButtonWidth     =   609
         ButtonHeight    =   582
         Style           =   1
         ImageList       =   "imgStandard"
         _Version        =   393216
         BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
            NumButtons      =   10
            BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "Cut"
               Object.ToolTipText     =   "Cut the selection to the Clipboard"
               ImageIndex      =   7
            EndProperty
            BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "Copy"
               Object.ToolTipText     =   "Copy the selection to the Clipboard"
               ImageIndex      =   8
            EndProperty
            BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "Paste"
               Object.ToolTipText     =   "Insert Clipboard contents"
               ImageIndex      =   9
            EndProperty
            BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "Undo"
               Object.ToolTipText     =   "Undo the last action"
               ImageIndex      =   10

⌨️ 快捷键说明

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