📄 fenigma.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{5431BC50-A509-11D2-921B-9337960C1B8F}#11.0#0"; "MSGHOOK.OCX"
Begin VB.Form fEnigma
BackColor = &H00004080&
BorderStyle = 3 'Fester Dialog
Caption = "The Genuine Enigma Machine"
ClientHeight = 5610
ClientLeft = 45
ClientTop = 330
ClientWidth = 6780
DrawWidth = 2
FillColor = &H00FFFFFF&
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Icon = "fEnigma.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
MouseIcon = "fEnigma.frx":030A
MousePointer = 99 'Benutzerdefiniert
Picture = "fEnigma.frx":0614
ScaleHeight = 374
ScaleMode = 3 'Pixel
ScaleWidth = 452
ShowInTaskbar = 0 'False
StartUpPosition = 2 'Bildschirmmitte
Begin VB.CommandButton btLampTest
BackColor = &H0020B0C0&
BeginProperty Font
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 5715
MousePointer = 1 'Pfeil
Style = 1 'Grafisch
TabIndex = 76
ToolTipText = "Test Lamp Panel"
Top = 1830
Width = 285
End
Begin MsgFilter.MsgHook mhFocus
Left = 6180
Top = 3210
_ExtentX = 1138
_ExtentY = 1931
End
Begin VB.Timer tmrDischarge
Enabled = 0 'False
Interval = 30
Left = 4560
Top = 435
End
Begin VB.CommandButton btBattery
BackColor = &H0020B0C0&
BeginProperty Font
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 795
MousePointer = 1 'Pfeil
Style = 1 'Grafisch
TabIndex = 74
ToolTipText = "Charge Battery"
Top = 1830
Width = 285
End
Begin VB.TextBox txtDecoded
BackColor = &H00C0FFFF&
BeginProperty Font
Name = "Courier New"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 1350
Left = 765
Locked = -1 'True
MousePointer = 1 'Pfeil
MultiLine = -1 'True
ScrollBars = 2 'Vertikal
TabIndex = 67
Top = 3375
Visible = 0 'False
Width = 3405
End
Begin VB.Timer tmrDraw
Enabled = 0 'False
Interval = 30
Left = 4560
Top = 900
End
Begin MSComDlg.CommonDialog dlgFile
Left = 6345
Top = 2715
_ExtentX = 847
_ExtentY = 847
_Version = 393216
CancelError = -1 'True
DefaultExt = ".TXT"
DialogTitle = "Enigma"
Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
End
Begin VB.CommandButton btReadText
BackColor = &H0020B0C0&
BeginProperty Font
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 5715
MousePointer = 1 'Pfeil
Style = 1 'Grafisch
TabIndex = 71
Top = 2835
Width = 285
End
Begin VB.VScrollBar scrWheel3
Height = 300
Left = 3720
Max = 25
TabIndex = 70
Top = 810
Width = 150
End
Begin VB.VScrollBar scrWheel2
Height = 300
Left = 3180
Max = 25
TabIndex = 69
Top = 810
Width = 150
End
Begin VB.VScrollBar scrWheel1
Height = 300
Left = 2640
Max = 25
TabIndex = 68
Top = 810
Width = 150
End
Begin VB.CommandButton btView
BackColor = &H0020B0C0&
BeginProperty Font
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 795
MousePointer = 1 'Pfeil
Style = 1 'Grafisch
TabIndex = 65
Top = 2835
Width = 285
End
Begin VB.CommandButton btConfig
BackColor = &H0020B0C0&
BeginProperty Font
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 795
MousePointer = 1 'Pfeil
Style = 1 'Grafisch
TabIndex = 0
ToolTipText = "Set Configuration"
Top = 810
Width = 285
End
Begin VB.CommandButton btReset
BackColor = &H0020B0C0&
BeginProperty Font
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 5715
MousePointer = 1 'Pfeil
Style = 1 'Grafisch
TabIndex = 1
ToolTipText = "Reset"
Top = 810
Width = 285
End
Begin VB.CommandButton Key
BackColor = &H00E0E0E0&
Caption = "P"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 25
Left = 4905
Style = 1 'Grafisch
TabIndex = 27
TabStop = 0 'False
Top = 3570
Width = 360
End
Begin VB.CommandButton Key
BackColor = &H00E0E0E0&
Caption = "L"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 24
Left = 4485
Style = 1 'Grafisch
TabIndex = 26
TabStop = 0 'False
Top = 3570
Width = 360
End
Begin VB.CommandButton Key
BackColor = &H00E0E0E0&
Caption = "M"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 23
Left = 4065
Style = 1 'Grafisch
TabIndex = 25
TabStop = 0 'False
Top = 3570
Width = 360
End
Begin VB.CommandButton Key
BackColor = &H00E0E0E0&
Caption = "N"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 22
Left = 3645
Style = 1 'Grafisch
TabIndex = 24
TabStop = 0 'False
Top = 3570
Width = 360
End
Begin VB.CommandButton Key
BackColor = &H00E0E0E0&
Caption = "B"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 21
Left = 3225
Style = 1 'Grafisch
TabIndex = 23
TabStop = 0 'False
Top = 3570
Width = 360
End
Begin VB.CommandButton Key
BackColor = &H00E0E0E0&
Caption = "V"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 20
Left = 2805
Style = 1 'Grafisch
TabIndex = 22
TabStop = 0 'False
Top = 3570
Width = 360
End
Begin VB.CommandButton Key
BackColor = &H00E0E0E0&
Caption = "C"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 19
Left = 2385
Style = 1 'Grafisch
TabIndex = 21
TabStop = 0 'False
Top = 3570
Width = 360
End
Begin VB.CommandButton Key
BackColor = &H00E0E0E0&
Caption = "X"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 18
Left = 1965
Style = 1 'Grafisch
TabIndex = 20
TabStop = 0 'False
Top = 3570
Width = 360
End
Begin VB.CommandButton Key
BackColor = &H00E0E0E0&
Caption = "Y"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -