fenigma.frm
来自「德国纳粹二战时发明的密码机engma“迷”的复原模拟程序的源码」· FRM 代码 · 共 2,023 行 · 第 1/5 页
FRM
2,023 行
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 17
Left = 1545
Style = 1 'Grafisch
TabIndex = 19
TabStop = 0 'False
Top = 3570
Width = 360
End
Begin VB.CommandButton Key
BackColor = &H00E0E0E0&
Caption = "K"
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 = 16
Left = 4665
Style = 1 'Grafisch
TabIndex = 18
TabStop = 0 'False
Top = 3180
Width = 360
End
Begin VB.CommandButton Key
BackColor = &H00E0E0E0&
Caption = "J"
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 = 15
Left = 4260
Style = 1 'Grafisch
TabIndex = 17
TabStop = 0 'False
Top = 3180
Width = 360
End
Begin VB.CommandButton Key
BackColor = &H00E0E0E0&
Caption = "H"
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 = 14
Left = 3840
Style = 1 'Grafisch
TabIndex = 16
TabStop = 0 'False
Top = 3180
Width = 360
End
Begin VB.CommandButton Key
BackColor = &H00E0E0E0&
Caption = "G"
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 = 13
Left = 3435
Style = 1 'Grafisch
TabIndex = 15
TabStop = 0 'False
Top = 3180
Width = 360
End
Begin VB.CommandButton Key
BackColor = &H00E0E0E0&
Caption = "F"
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 = 12
Left = 3030
Style = 1 'Grafisch
TabIndex = 14
TabStop = 0 'False
Top = 3180
Width = 360
End
Begin VB.CommandButton Key
BackColor = &H00E0E0E0&
Caption = "D"
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 = 11
Left = 2610
Style = 1 'Grafisch
TabIndex = 13
TabStop = 0 'False
Top = 3180
Width = 360
End
Begin VB.CommandButton Key
BackColor = &H00E0E0E0&
Caption = "S"
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 = 10
Left = 2205
Style = 1 'Grafisch
TabIndex = 12
TabStop = 0 'False
Top = 3180
Width = 360
End
Begin VB.CommandButton Key
BackColor = &H00E0E0E0&
Caption = "A"
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 = 9
Left = 1785
Style = 1 'Grafisch
TabIndex = 11
TabStop = 0 'False
Top = 3180
Width = 360
End
Begin VB.CommandButton Key
BackColor = &H00E0E0E0&
Caption = "O"
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 = 8
Left = 4905
Style = 1 'Grafisch
TabIndex = 10
TabStop = 0 'False
Top = 2790
Width = 360
End
Begin VB.CommandButton Key
BackColor = &H00E0E0E0&
Caption = "I"
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 = 7
Left = 4485
Style = 1 'Grafisch
TabIndex = 9
TabStop = 0 'False
Top = 2790
Width = 360
End
Begin VB.CommandButton Key
BackColor = &H00E0E0E0&
Caption = "U"
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 = 6
Left = 4065
Style = 1 'Grafisch
TabIndex = 8
TabStop = 0 'False
Top = 2790
Width = 360
End
Begin VB.CommandButton Key
BackColor = &H00E0E0E0&
Caption = "Z"
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 = 5
Left = 3645
Style = 1 'Grafisch
TabIndex = 7
TabStop = 0 'False
Top = 2790
Width = 360
End
Begin VB.CommandButton Key
BackColor = &H00E0E0E0&
Caption = "T"
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 = 4
Left = 3225
Style = 1 'Grafisch
TabIndex = 6
TabStop = 0 'False
Top = 2790
Width = 360
End
Begin VB.CommandButton Key
BackColor = &H00E0E0E0&
Caption = "R"
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 = 3
Left = 2805
Style = 1 'Grafisch
TabIndex = 5
TabStop = 0 'False
Top = 2790
Width = 360
End
Begin VB.CommandButton Key
BackColor = &H00E0E0E0&
Caption = "E"
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 = 2
Left = 2385
Style = 1 'Grafisch
TabIndex = 4
TabStop = 0 'False
Top = 2790
Width = 360
End
Begin VB.CommandButton Key
BackColor = &H00E0E0E0&
Caption = "W"
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 = 1
Left = 1965
Style = 1 'Grafisch
TabIndex = 3
TabStop = 0 'False
Top = 2790
Width = 360
End
Begin VB.CommandButton Key
BackColor = &H00E0E0E0&
Caption = "Q"
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 = 0
Left = 1545
Style = 1 'Grafisch
TabIndex = 2
TabStop = 0 'False
Top = 2790
Width = 360
End
Begin VB.Image img
Height = 165
Index = 19
Left = 6060
Top = 1890
Width = 165
End
Begin VB.Image img
Height = 165
Index = 20
Left = 5460
Top = 1890
Width = 165
End
Begin VB.Label lbl
Alignment = 2 'Zentriert
BackColor = &H00000000&
BackStyle = 0 'Transparent
Caption = "Lampenpr黤ung"
BeginProperty Font
Name = "Small Fonts"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080C0FF&
Height = 165
Index = 10
Left = 5370
TabIndex = 77
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?