📄 form1.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form Form1
ClientHeight = 7335
ClientLeft = 150
ClientTop = 720
ClientWidth = 10035
Icon = "Form1.frx":0000
LinkTopic = "Form1"
ScaleHeight = 7335
ScaleWidth = 10035
Begin VB.TextBox Text1
Height = 4815
HideSelection = 0 'False
Left = 0
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 0
Top = 420
Width = 8535
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 420
Left = 0
TabIndex = 1
Top = 0
Width = 10035
_ExtentX = 17701
_ExtentY = 741
ButtonWidth = 609
ButtonHeight = 582
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 19
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "new"
Object.ToolTipText = "新建"
ImageKey = "new"
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "open"
Object.ToolTipText = "打开"
ImageKey = "open"
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "save"
Object.ToolTipText = "保存"
ImageKey = "save"
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
Object.Width = 0.01
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "lock open"
Object.ToolTipText = "以解密方式打开"
ImageKey = "lock open"
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "lock save"
Object.ToolTipText = "以保密方式打开"
ImageKey = "lock save"
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "lock text"
Object.ToolTipText = "对所选文字进行加密"
ImageKey = "lock text"
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "unlock text"
Object.ToolTipText = "对所选文字进行解密"
ImageKey = "unlock text"
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
Object.Width = 0.01
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "copy"
Object.ToolTipText = "拷贝"
ImageKey = "copy"
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "cut"
Object.ToolTipText = "剪切"
ImageKey = "cut"
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "paste"
Object.ToolTipText = "粘贴"
ImageKey = "paste"
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
Object.Width = 0.01
EndProperty
BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "find"
Object.ToolTipText = "查找"
ImageKey = "find"
EndProperty
BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "TIMEorDATE"
Object.ToolTipText = "日期/时间"
ImageKey = "TIMEorDATE"
EndProperty
BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
Object.Width = 0.01
EndProperty
BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "font"
Object.ToolTipText = "字体设置"
ImageKey = "font"
EndProperty
BeginProperty Button18 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "color"
Object.ToolTipText = "颜色设置"
ImageKey = "color"
EndProperty
BeginProperty Button19 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "help"
Object.ToolTipText = "帮助"
ImageKey = "help"
EndProperty
EndProperty
BorderStyle = 1
Begin MSComDlg.CommonDialog Dialog1
Left = 7320
Top = 0
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
End
Begin MSComctlLib.ImageList ImageList1
Left = 7800
Top = 120
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 15
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":030A
Key = "new"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":0426
Key = "font"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":053A
Key = "find"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":0656
Key = "TIMEorDATE"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":0772
Key = "color"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":088E
Key = "help"
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":09AA
Key = "unlock text"
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":0ACA
Key = "lock text"
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":0BE6
Key = "lock open"
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":0CFA
Key = "lock save"
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":0E0E
Key = "copy"
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":0F2A
Key = "cut"
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":1042
Key = "open"
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":115A
Key = "save"
EndProperty
BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":1272
Key = "paste"
EndProperty
EndProperty
End
Begin VB.Menu file
Caption = "文件(&F)"
Begin VB.Menu new
Caption = "新建(&N)"
End
Begin VB.Menu open
Caption = "打开(&O)"
Begin VB.Menu open1
Caption = "打开..."
Shortcut = ^O
End
Begin VB.Menu open2
Caption = "解密并打开..."
End
End
Begin VB.Menu save
Caption = "保存(&S)"
Begin VB.Menu save1
Caption = "保存..."
Shortcut = ^S
End
Begin VB.Menu saveas
Caption = "另存为(&A)..."
End
Begin VB.Menu save2
Caption = "加密并保存..."
End
End
Begin VB.Menu f1
Caption = "-"
End
Begin VB.Menu exit
Caption = "退出(&X)"
End
End
Begin VB.Menu edit
Caption = "编辑(&E)"
Begin VB.Menu cut
Caption = "剪切(&U)"
Shortcut = ^X
End
Begin VB.Menu copy
Caption = "复制(&C)"
Shortcut = ^C
End
Begin VB.Menu paste
Caption = "粘贴(&P)"
Shortcut = ^V
End
Begin VB.Menu f2
Caption = "-"
End
Begin VB.Menu selecttoall
Caption = "全选(&A)"
Shortcut = ^A
End
Begin VB.Menu TIMEorDATE
Caption = "日期/时间(&T)"
Shortcut = ^T
End
Begin VB.Menu looklong
Caption = "查看长度(&L)"
End
End
Begin VB.Menu mm
Caption = "密码(&M)"
Begin VB.Menu addm
Caption = "对文字加密(&A)"
Shortcut = ^L
End
Begin VB.Menu uaddm
Caption = "对文字解密(&B)"
Shortcut = ^U
End
End
Begin VB.Menu setup
Caption = "设置(&S)"
Begin VB.Menu fsetup
Caption = "字体设置(&F)..."
End
Begin VB.Menu csetup
Caption = "颜色设置(&C)..."
End
End
Begin VB.Menu sosuo
Caption = "搜索(&S)"
Begin VB.Menu find
Caption = "查找(&F) ..."
End
Begin VB.Menu findnext
Caption = "查找下一个(&N)"
Shortcut = {F3}
End
End
Begin VB.Menu help
Caption = "帮助(&H)"
Begin VB.Menu about
Caption = "关于 “加密文本编辑器” (&M)..."
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub about_Click()
Form5.Show 1
Form5.Top = Form1.Top
Form5.Left = Form1.Left
End Sub
Private Sub addm_Click()
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -