⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 fenigma.frm

📁 德国纳粹二战时发明的密码机engma“迷”的复原模拟程序的源码
💻 FRM
📖 第 1 页 / 共 5 页
字号:
   End
   Begin VB.Shape SockOut 
      BackColor       =   &H00808080&
      BackStyle       =   1  'Undurchsichtig
      BorderColor     =   &H00808000&
      BorderWidth     =   4
      FillStyle       =   0  'Ausgef黮lt
      Height          =   120
      Index           =   13
      Left            =   3390
      Shape           =   3  'Kreis
      Top             =   5025
      Width           =   210
   End
   Begin VB.Shape SockIn 
      BackColor       =   &H00808080&
      BackStyle       =   1  'Undurchsichtig
      BorderColor     =   &H00008000&
      BorderWidth     =   4
      FillStyle       =   0  'Ausgef黮lt
      Height          =   120
      Index           =   13
      Left            =   3390
      Shape           =   3  'Kreis
      Top             =   4140
      Width           =   210
   End
   Begin VB.Shape SockOut 
      BackColor       =   &H00808080&
      BackStyle       =   1  'Undurchsichtig
      BorderColor     =   &H00808000&
      BorderWidth     =   4
      FillStyle       =   0  'Ausgef黮lt
      Height          =   120
      Index           =   12
      Left            =   3180
      Shape           =   3  'Kreis
      Top             =   5025
      Width           =   210
   End
   Begin VB.Shape SockIn 
      BackColor       =   &H00808080&
      BackStyle       =   1  'Undurchsichtig
      BorderColor     =   &H00008000&
      BorderWidth     =   4
      FillStyle       =   0  'Ausgef黮lt
      Height          =   120
      Index           =   12
      Left            =   3180
      Shape           =   3  'Kreis
      Top             =   4140
      Width           =   210
   End
   Begin VB.Shape SockOut 
      BackColor       =   &H00808080&
      BackStyle       =   1  'Undurchsichtig
      BorderColor     =   &H00808000&
      BorderWidth     =   4
      FillStyle       =   0  'Ausgef黮lt
      Height          =   120
      Index           =   11
      Left            =   2970
      Shape           =   3  'Kreis
      Top             =   5025
      Width           =   210
   End
   Begin VB.Shape SockIn 
      BackColor       =   &H00808080&
      BackStyle       =   1  'Undurchsichtig
      BorderColor     =   &H00008000&
      BorderWidth     =   4
      FillStyle       =   0  'Ausgef黮lt
      Height          =   120
      Index           =   11
      Left            =   2970
      Shape           =   3  'Kreis
      Top             =   4140
      Width           =   210
   End
   Begin VB.Shape SockOut 
      BackColor       =   &H00808080&
      BackStyle       =   1  'Undurchsichtig
      BorderColor     =   &H00808000&
      BorderWidth     =   4
      FillStyle       =   0  'Ausgef黮lt
      Height          =   120
      Index           =   10
      Left            =   2760
      Shape           =   3  'Kreis
      Top             =   5025
      Width           =   210
   End
   Begin VB.Shape SockIn 
      BackColor       =   &H00808080&
      BackStyle       =   1  'Undurchsichtig
      BorderColor     =   &H00008000&
      BorderWidth     =   4
      FillStyle       =   0  'Ausgef黮lt
      Height          =   120
      Index           =   10
      Left            =   2760
      Shape           =   3  'Kreis
      Top             =   4140
      Width           =   210
   End
   Begin VB.Shape SockOut 
      BackColor       =   &H00808080&
      BackStyle       =   1  'Undurchsichtig
      BorderColor     =   &H00808000&
      BorderWidth     =   4
      FillStyle       =   0  'Ausgef黮lt
      Height          =   120
      Index           =   9
      Left            =   2550
      Shape           =   3  'Kreis
      Top             =   5025
      Width           =   210
   End
   Begin VB.Shape SockIn 
      BackColor       =   &H00808080&
      BackStyle       =   1  'Undurchsichtig
      BorderColor     =   &H00008000&
      BorderWidth     =   4
      FillStyle       =   0  'Ausgef黮lt
      Height          =   120
      Index           =   9
      Left            =   2550
      Shape           =   3  'Kreis
      Top             =   4140
      Width           =   210
   End
   Begin VB.Shape SockOut 
      BackColor       =   &H00808080&
      BackStyle       =   1  'Undurchsichtig
      BorderColor     =   &H00808000&
      BorderWidth     =   4
      FillStyle       =   0  'Ausgef黮lt
      Height          =   120
      Index           =   8
      Left            =   2340
      Shape           =   3  'Kreis
      Top             =   5025
      Width           =   210
   End
   Begin VB.Shape SockIn 
      BackColor       =   &H00808080&
      BackStyle       =   1  'Undurchsichtig
      BorderColor     =   &H00008000&
      BorderWidth     =   4
      FillStyle       =   0  'Ausgef黮lt
      Height          =   120
      Index           =   8
      Left            =   2340
      Shape           =   3  'Kreis
      Top             =   4140
      Width           =   210
   End
   Begin VB.Shape SockOut 
      BackColor       =   &H00808080&
      BackStyle       =   1  'Undurchsichtig
      BorderColor     =   &H00808000&
      BorderWidth     =   4
      FillStyle       =   0  'Ausgef黮lt
      Height          =   120
      Index           =   7
      Left            =   2130
      Shape           =   3  'Kreis
      Top             =   5025
      Width           =   210
   End
   Begin VB.Shape SockIn 
      BackColor       =   &H00808080&
      BackStyle       =   1  'Undurchsichtig
      BorderColor     =   &H00008000&
      BorderWidth     =   4
      FillStyle       =   0  'Ausgef黮lt
      Height          =   120
      Index           =   7
      Left            =   2130
      Shape           =   3  'Kreis
      Top             =   4140
      Width           =   210
   End
   Begin VB.Shape SockOut 
      BackColor       =   &H00808080&
      BackStyle       =   1  'Undurchsichtig
      BorderColor     =   &H00808000&
      BorderWidth     =   4
      FillStyle       =   0  'Ausgef黮lt
      Height          =   120
      Index           =   6
      Left            =   1920
      Shape           =   3  'Kreis
      Top             =   5025
      Width           =   210
   End
   Begin VB.Shape SockIn 
      BackColor       =   &H00808080&
      BackStyle       =   1  'Undurchsichtig
      BorderColor     =   &H00008000&
      BorderWidth     =   4
      FillStyle       =   0  'Ausgef黮lt
      Height          =   120
      Index           =   6
      Left            =   1920
      Shape           =   3  'Kreis
      Top             =   4140
      Width           =   210
   End
   Begin VB.Shape SockOut 
      BackColor       =   &H00808080&
      BackStyle       =   1  'Undurchsichtig
      BorderColor     =   &H00808000&
      BorderWidth     =   4
      FillStyle       =   0  'Ausgef黮lt
      Height          =   120
      Index           =   5
      Left            =   1710
      Shape           =   3  'Kreis
      Top             =   5025
      Width           =   210
   End
   Begin VB.Shape SockIn 
      BackColor       =   &H00808080&
      BackStyle       =   1  'Undurchsichtig
      BorderColor     =   &H00008000&
      BorderWidth     =   4
      FillStyle       =   0  'Ausgef黮lt
      Height          =   120
      Index           =   5
      Left            =   1710
      Shape           =   3  'Kreis
      Top             =   4140
      Width           =   210
   End
   Begin VB.Shape SockOut 
      BackColor       =   &H00808080&
      BackStyle       =   1  'Undurchsichtig
      BorderColor     =   &H00808000&
      BorderWidth     =   4
      FillStyle       =   0  'Ausgef黮lt
      Height          =   120
      Index           =   4
      Left            =   1500
      Shape           =   3  'Kreis
      Top             =   5025
      Width           =   210
   End
   Begin VB.Shape SockIn 
      BackColor       =   &H00808080&
      BackStyle       =   1  'Undurchsichtig
      BorderColor     =   &H00008000&
      BorderWidth     =   4
      FillStyle       =   0  'Ausgef黮lt
      Height          =   120
      Index           =   4
      Left            =   1500
      Shape           =   3  'Kreis
      Top             =   4140
      Width           =   210
   End
   Begin VB.Shape SockOut 
      BackColor       =   &H00808080&
      BackStyle       =   1  'Undurchsichtig
      BorderColor     =   &H00808000&
      BorderWidth     =   4
      FillStyle       =   0  'Ausgef黮lt
      Height          =   120
      Index           =   3
      Left            =   1290
      Shape           =   3  'Kreis
      Top             =   5025
      Width           =   210
   End
   Begin VB.Shape SockIn 
      BackColor       =   &H00808080&
      BackStyle       =   1  'Undurchsichtig
      BorderColor     =   &H00008000&
      BorderWidth     =   4
      FillStyle       =   0  'Ausgef黮lt
      Height          =   120
      Index           =   3
      Left            =   1290
      Shape           =   3  'Kreis
      Top             =   4140
      Width           =   210
   End
   Begin VB.Shape SockOut 
      BackColor       =   &H00808080&
      BackStyle       =   1  'Undurchsichtig
      BorderColor     =   &H00808000&
      BorderWidth     =   4
      FillStyle       =   0  'Ausgef黮lt
      Height          =   120
      Index           =   2
      Left            =   1080
      Shape           =   3  'Kreis
      Top             =   5025
      Width           =   210
   End
   Begin VB.Shape SockIn 
      BackColor       =   &H00808080&
      BackStyle       =   1  'Undurchsichtig
      BorderColor     =   &H00008000&
      BorderWidth     =   4
      FillStyle       =   0  'Ausgef黮lt
      Height          =   120
      Index           =   2
      Left            =   1080
      Shape           =   3  'Kreis
      Top             =   4140
      Width           =   210
   End
   Begin VB.Shape SockOut 
      BackColor       =   &H00808080&
      BackStyle       =   1  'Undurchsichtig
      BorderColor     =   &H00808000&
      BorderWidth     =   4
      FillStyle       =   0  'Ausgef黮lt
      Height          =   120
      Index           =   1
      Left            =   870
      Shape           =   3  'Kreis
      Top             =   5025
      Width           =   210
   End
   Begin VB.Shape SockIn 
      BackColor       =   &H00808080&
      BackStyle       =   1  'Undurchsichtig
      BorderColor     =   &H00008000&
      BorderWidth     =   4
      FillStyle       =   0  'Ausgef黮lt
      Height          =   120
      Index           =   1
      Left            =   870
      Shape           =   3  'Kreis
      Top             =   4140
      Width           =   210
   End
   Begin VB.Shape SockOut 
      BackColor       =   &H00808080&
      BackStyle       =   1  'Undurchsichtig
      BorderColor     =   &H00808000&
      BorderWidth     =   4
      FillStyle       =   0  'Ausgef黮lt
      Height          =   120
      Index           =   0
      Left            =   660
      Shape           =   3  'Kreis
      Top             =   5025
      Width           =   210
   End
   Begin VB.Shape SockIn 
      BackColor       =   &H00808080&
      BackStyle       =   1  'Undurchsichtig
      BorderColor     =   &H00008000&
      BorderWidth     =   4
      FillStyle       =   0  'Ausgef黮lt
      Height          =   120
      Index           =   0
      Left            =   660
      Shape           =   3  'Kreis
      Top             =   4140
      Width           =   210
   End
   Begin VB.Label Lamp 
      Alignment       =   2  'Zentriert
      Appearance      =   0  '2D
      BackColor       =   &H00404000&
      BorderStyle     =   1  'Fest Einfach
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   270
      Index           =   25
      Left            =   4800
      TabIndex        =   53
      Top             =   2235
      Width           =   255
   End
   Begin VB.Label Lamp 
      Alignment       =   2  'Zentriert
      Appearance      =   0  '2D
      BackColor       =   &H00404000&
      BorderStyle     =   1  'Fest Einfach
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
    

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -