📄 frmmain.frm
字号:
Begin VB.TextBox txt_EXEjie_FileName
BackColor = &H00FFFFFF&
Height = 270
Left = 1530
Locked = -1 'True
TabIndex = 25
Top = 720
Width = 3990
End
Begin VB.ListBox lst_EXEjie_Name
Height = 1140
Left = 6345
TabIndex = 29
Top = 810
Width = 3735
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "选择文件列表 (鼠标右击列表可进行添加删除操作) (单击开始加密后列表总的文件将被全部加密)"
Height = 525
Left = 6390
TabIndex = 59
Top = 210
Width = 3720
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "密 码:"
Height = 225
Index = 13
Left = 135
TabIndex = 58
Top = 1050
Width = 1365
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "加 密 文 件 名:"
Height = 225
Index = 11
Left = 135
TabIndex = 57
Top = 780
Width = 1395
End
End
Begin VB.Frame Frame1
Caption = "加密"
Height = 2640
Index = 1
Left = -74925
TabIndex = 51
Top = 435
Width = 10170
Begin VB.CheckBox chkEXECRC
Caption = "加入文件效验"
Height = 285
Left = 1530
TabIndex = 22
Top = 1215
Width = 1800
End
Begin VB.ListBox lst_EXEjia_Name
BackColor = &H00FFFFFF&
Height = 1500
Left = 6360
TabIndex = 24
Top = 840
Width = 3720
End
Begin VB.TextBox txt_EXEjia_FileName
BackColor = &H00FFFFFF&
Height = 270
Left = 1530
Locked = -1 'True
TabIndex = 18
Top = 255
Width = 3990
End
Begin VB.TextBox txt_EXEjia_PassWord1
BackColor = &H00FFFFFF&
Height = 270
IMEMode = 3 'DISABLE
Left = 1530
PasswordChar = "*"
TabIndex = 20
Top = 555
Width = 3990
End
Begin VB.TextBox txt_EXEjia_PassWord2
BackColor = &H00FFFFFF&
Height = 270
IMEMode = 3 'DISABLE
Left = 1530
PasswordChar = "*"
TabIndex = 21
Top = 855
Width = 3990
End
Begin VB.CommandButton cmd_EXEjia_FileName
BackColor = &H00FFFFFF&
Caption = "浏览"
Height = 255
Left = 5580
TabIndex = 19
Top = 255
Width = 570
End
Begin VB.CommandButton cmdEXEjia
BackColor = &H00FFFFFF&
Caption = "开始加密"
Height = 465
Left = 720
TabIndex = 23
Top = 1935
Width = 4635
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "加 密 文 件 名:"
ForeColor = &H80000008&
Height = 225
Index = 10
Left = 135
TabIndex = 55
Top = 315
Width = 1395
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "密 码:"
ForeColor = &H80000008&
Height = 225
Index = 8
Left = 135
TabIndex = 54
Top = 585
Width = 1365
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "再输入一次密码:"
ForeColor = &H80000008&
Height = 225
Index = 4
Left = 135
TabIndex = 53
Top = 870
Width = 1395
End
Begin VB.Label Label2
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "选择文件列表 (鼠标右击列表可进行添加删除操作) (单击开始加密后列表总的文件将被全部加密)"
ForeColor = &H80000008&
Height = 525
Index = 1
Left = 6390
TabIndex = 52
Top = 225
Width = 3660
End
End
Begin VB.Frame fraJie
Caption = "解密"
Height = 2190
Left = -74925
TabIndex = 46
Top = 3450
Width = 10095
Begin VB.ListBox lst_jie_Name
BackColor = &H00FFFFFF&
Height = 1140
Left = 6285
TabIndex = 17
Top = 810
Width = 3735
End
Begin VB.TextBox txt_jie_SaveName
BackColor = &H00FFFFFF&
Height = 270
Left = 1530
TabIndex = 13
Top = 795
Width = 3990
End
Begin VB.TextBox txt_jie_FileName
BackColor = &H00FFFFFF&
Height = 270
Left = 1530
Locked = -1 'True
TabIndex = 11
Top = 495
Width = 3990
End
Begin VB.TextBox txt_jie_PassWord
BackColor = &H00FFFFFF&
Height = 270
IMEMode = 3 'DISABLE
Left = 1530
PasswordChar = "*"
TabIndex = 15
Top = 1095
Width = 3990
End
Begin VB.CommandButton cmd_jie_FileName
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
Caption = "浏览"
Height = 255
Left = 5580
TabIndex = 12
Top = 495
Width = 570
End
Begin VB.CommandButton cmd_jie_SaveFile
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
Caption = "浏览"
Height = 255
Left = 5580
TabIndex = 14
Top = 795
Width = 570
End
Begin VB.CommandButton cmdJie
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
Caption = "开始解密"
Height = 465
Left = 720
TabIndex = 16
Top = 1575
Width = 4635
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "加 密 文 件 名:"
Height = 225
Index = 7
Left = 135
TabIndex = 50
Top = 555
Width = 1395
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "解密 储存 位置:"
Height = 225
Index = 6
Left = 135
TabIndex = 49
Top = 840
Width = 1380
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "密 码:"
Height = 225
Index = 5
Left = 135
TabIndex = 48
Top = 1125
Width = 1365
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "选择文件列表 (鼠标右击列表可进行添加删除操作) (单击开始加密后列表总的文件将被全部加密)"
Height = 540
Left = 6330
TabIndex = 47
Top = 210
Width = 3720
End
End
Begin VB.Frame fraJia
Caption = "加密"
Height = 2640
Index = 0
Left = -74925
TabIndex = 40
Top = 435
Width = 10095
Begin VB.CheckBox chkCRC
Caption = "加入文件效验"
Height = 285
Left = 3495
TabIndex = 8
Top = 1515
Width = 1800
End
Begin VB.CheckBox chkDel
Caption = "加密后粉碎源文件"
Height = 270
Left = 1515
TabIndex = 7
Top = 1530
Width = 2025
End
Begin VB.CommandButton cmdJia
BackColor = &H00FFFFFF&
Caption = "开始加密"
Height = 465
Left = 720
MaskColor = &H00404040&
TabIndex = 9
Top = 1935
UseMaskColor = -1 'True
Width = 4635
End
Begin VB.CommandButton cmd_jia_SaveFile
BackColor = &H80000009&
Caption = "浏览"
Height = 255
Left = 5580
MaskColor = &H00FFFFFF&
TabIndex = 4
Top = 555
Width = 570
End
Begin VB.CommandButton cmd_jia_FileName
Appearance = 0 'Flat
BackColor = &H80000009&
Caption = "浏览"
Height = 255
Left = 5580
MaskColor = &H00FFFFFF&
TabIndex = 2
Top = 255
Width = 570
End
Begin VB.TextBox txt_jia_PassWord2
BackColor = &H00FFFFFF&
Height = 270
IMEMode = 3 'DISABLE
Left = 1530
PasswordChar = "*"
TabIndex = 6
Top = 1155
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -