📄 frmmain.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form frmMain
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "多功能批量文件加密器"
ClientHeight = 5745
ClientLeft = 45
ClientTop = 435
ClientWidth = 10215
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
ScaleHeight = 5745
ScaleWidth = 10215
StartUpPosition = 2 '屏幕中心
Begin TabDlg.SSTab SSTab1
Height = 6000
Left = -15
TabIndex = 0
Top = 45
Width = 10500
_ExtentX = 18521
_ExtentY = 10583
_Version = 393216
Style = 1
Tabs = 6
Tab = 4
TabsPerRow = 6
TabHeight = 520
TabCaption(0) = "普通文件加密"
TabPicture(0) = "frmMain.frx":0442
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "fraJie"
Tab(0).Control(1)= "fraJia(0)"
Tab(0).ControlCount= 2
TabCaption(1) = "EXE文件加密"
TabPicture(1) = "frmMain.frx":045E
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Frame1(1)"
Tab(1).Control(1)= "Frame3"
Tab(1).ControlCount= 2
TabCaption(2) = "批量更名"
TabPicture(2) = "frmMain.frx":047A
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Frame2"
Tab(2).ControlCount= 1
TabCaption(3) = "批量文件分割"
TabPicture(3) = "frmMain.frx":0496
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "Frame6"
Tab(3).Control(1)= "Frame5"
Tab(3).Control(2)= "Frame4"
Tab(3).ControlCount= 3
TabCaption(4) = "文件比较"
TabPicture(4) = "frmMain.frx":04B2
Tab(4).ControlEnabled= -1 'True
Tab(4).Control(0)= "Frame7"
Tab(4).Control(0).Enabled= 0 'False
Tab(4).ControlCount= 1
TabCaption(5) = "关于"
TabPicture(5) = "frmMain.frx":04CE
Tab(5).ControlEnabled= 0 'False
Tab(5).Control(0)= "Image1"
Tab(5).Control(1)= "Label21"
Tab(5).Control(2)= "Label20"
Tab(5).Control(3)= "Label19"
Tab(5).Control(4)= "Label18"
Tab(5).Control(5)= "Label16"
Tab(5).Control(6)= "Shape1"
Tab(5).ControlCount= 7
Begin VB.Frame Frame7
Caption = "文件比较"
Height = 5295
Left = 75
TabIndex = 91
Top = 435
Width = 10095
Begin VB.PictureBox Picture2
Appearance = 0 'Flat
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 285
Left = 1065
ScaleHeight = 285
ScaleWidth = 3930
TabIndex = 110
Top = 1035
Width = 3930
Begin VB.OptionButton optText
Caption = "文本比较"
Height = 285
Left = 30
TabIndex = 112
Top = -15
Value = -1 'True
Width = 1080
End
Begin VB.OptionButton optByte
Caption = "字节比较"
Height = 345
Left = 1470
TabIndex = 111
Top = -45
Width = 1035
End
End
Begin VB.Frame Frame8
Appearance = 0 'Flat
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 285
Left = 1200
TabIndex = 102
Top = 1020
Width = 2625
End
Begin VB.CommandButton cmd_bj_File2
BackColor = &H00FFFFFF&
Caption = "浏览"
Height = 300
Left = 9375
TabIndex = 100
Top = 705
Width = 645
End
Begin VB.CommandButton cmd_bj_Start
BackColor = &H00FFFFFF&
Caption = "开始比较"
Height = 405
Left = 90
TabIndex = 99
Top = 4800
Width = 9930
End
Begin VB.CommandButton cmd_bj_File1
BackColor = &H00FFFFFF&
Caption = "浏览"
Height = 300
Left = 9375
TabIndex = 98
Top = 375
Width = 645
End
Begin VB.TextBox txt_bj_File2
Height = 285
Left = 690
TabIndex = 95
Top = 705
Width = 8640
End
Begin VB.TextBox txt_bj_File1
Height = 285
Left = 690
TabIndex = 94
Top = 375
Width = 8640
End
Begin 多功能文件加密器.tg_FileComp bj_byte
Height = 3420
Left = 90
TabIndex = 104
Top = 1350
Visible = 0 'False
Width = 9915
_ExtentX = 5530
_ExtentY = 3387
End
Begin RichTextLib.RichTextBox rtfFile2
Height = 3165
Left = 5070
TabIndex = 101
Top = 1590
Width = 4935
_ExtentX = 8705
_ExtentY = 5583
_Version = 393217
Enabled = -1 'True
ReadOnly = -1 'True
ScrollBars = 2
Appearance = 0
TextRTF = $"frmMain.frx":04EA
End
Begin RichTextLib.RichTextBox rtfFile1
Height = 3165
Left = 90
TabIndex = 103
Top = 1590
Width = 4950
_ExtentX = 8731
_ExtentY = 5583
_Version = 393217
Enabled = -1 'True
ReadOnly = -1 'True
ScrollBars = 2
Appearance = 0
TextRTF = $"frmMain.frx":0587
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.CommandButton Command1
BackColor = &H00FFFFFF&
Caption = "文件1"
Height = 255
Left = 90
TabIndex = 96
Top = 1350
Width = 4950
End
Begin VB.CommandButton Command2
BackColor = &H00FFFFFF&
Caption = "文件2"
Height = 255
Left = 5070
TabIndex = 97
Top = 1350
Width = 4935
End
Begin VB.Label Label17
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "文件2:"
Height = 180
Left = 150
TabIndex = 93
Top = 750
Width = 540
End
Begin VB.Label Label15
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "文件1:"
Height = 180
Left = 150
TabIndex = 92
Top = 420
Width = 540
End
End
Begin VB.Frame Frame6
Caption = "分割文件信息"
Height = 1680
Left = -68370
TabIndex = 87
Top = 4050
Width = 3540
Begin VB.Label lb_fg_CutNum
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
ForeColor = &H80000008&
Height = 285
Left = 30
TabIndex = 90
Top = 1155
Width = 3465
End
Begin VB.Label lb_fg_CutSize
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
ForeColor = &H80000008&
Height = 285
Left = 30
TabIndex = 89
Top = 750
Width = 3465
End
Begin VB.Label lb_fg_FileSize
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
ForeColor = &H80000008&
Height = 285
Left = 30
TabIndex = 88
Top = 345
Width = 3465
End
End
Begin VB.Frame Frame5
Caption = "分割选项"
Height = 1680
Left = -74925
TabIndex = 79
Top = 4050
Width = 6510
Begin VB.CheckBox chk_fg_DelSource
Caption = "完成后粉碎源文件"
Height = 300
Left = 3915
TabIndex = 86
Top = 690
Width = 1740
End
Begin VB.CheckBox chk_fg_MakeExe
Caption = "生成合并EXE文件"
Height = 285
Left = 2220
TabIndex = 80
Top = 690
Value = 1 'Checked
Width = 1950
End
Begin VB.CheckBox chk_fg_MakeBat
Caption = "生成合并Bat文件"
Height = 285
Left = 525
TabIndex = 81
Top = 690
Width = 2250
End
Begin VB.CommandButton cmd_fg_Start
BackColor = &H80000009&
Caption = "开始分割"
Height = 450
Left = 555
TabIndex = 85
Top = 1095
Width = 4995
End
Begin VB.ComboBox cbo_fg_CutType
Height = 300
Left = 4950
Style = 2 'Dropdown List
TabIndex = 83
Top = 285
Width = 1455
End
Begin VB.ComboBox cbo_fg_Size
Appearance = 0 'Flat
Height = 300
Left = 1275
TabIndex = 82
Top = 300
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -