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

📄 fenigma.frm

📁 德国纳粹二战时发明的密码机engma“迷”的复原模拟程序的源码
💻 FRM
📖 第 1 页 / 共 5 页
字号:
      Top             =   2130
      Width           =   975
   End
   Begin VB.Image img 
      Height          =   1080
      Index           =   22
      Left            =   660
      ToolTipText     =   "Plugboard"
      Top             =   4110
      Width           =   5460
   End
   Begin VB.Label lbl 
      Alignment       =   2  'Zentriert
      BackColor       =   &H00000000&
      BackStyle       =   0  'Transparent
      Caption         =   "Batterie laden"
      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          =   315
      Index           =   9
      Left            =   660
      TabIndex        =   75
      Top             =   2130
      Width           =   495
   End
   Begin VB.Image img 
      Height          =   165
      Index           =   18
      Left            =   540
      Top             =   1890
      Width           =   165
   End
   Begin VB.Image img 
      Height          =   165
      Index           =   17
      Left            =   1140
      Top             =   1890
      Width           =   165
   End
   Begin VB.Image img 
      Height          =   495
      Index           =   21
      Left            =   5325
      MousePointer    =   12  'Nicht ablegen
      Picture         =   "fEnigma.frx":7C8AA
      ToolTipText     =   "Do not open"
      Top             =   60
      Width           =   1380
   End
   Begin VB.Image img 
      Height          =   165
      Index           =   16
      Left            =   5145
      Top             =   3270
      Width           =   165
   End
   Begin VB.Image img 
      Height          =   165
      Index           =   15
      Left            =   1485
      Top             =   3270
      Width           =   165
   End
   Begin VB.Image img 
      Height          =   165
      Index           =   14
      Left            =   5730
      Top             =   4575
      Width           =   165
   End
   Begin VB.Image img 
      Height          =   165
      Index           =   13
      Left            =   900
      Top             =   4575
      Width           =   165
   End
   Begin VB.Image img 
      Height          =   165
      Index           =   12
      Left            =   6075
      Top             =   2895
      Width           =   165
   End
   Begin VB.Image img 
      Height          =   165
      Index           =   11
      Left            =   5460
      Top             =   2895
      Width           =   165
   End
   Begin VB.Image img 
      Height          =   165
      Index           =   10
      Left            =   1140
      Top             =   2895
      Width           =   165
   End
   Begin VB.Image img 
      Height          =   165
      Index           =   9
      Left            =   540
      Top             =   2895
      Width           =   165
   End
   Begin VB.Image img 
      Height          =   165
      Index           =   8
      Left            =   6060
      Top             =   870
      Width           =   165
   End
   Begin VB.Image img 
      Height          =   165
      Index           =   7
      Left            =   5460
      Top             =   870
      Width           =   165
   End
   Begin VB.Image img 
      Height          =   165
      Index           =   6
      Left            =   2055
      Top             =   855
      Width           =   165
   End
   Begin VB.Image img 
      Height          =   165
      Index           =   5
      Left            =   555
      Top             =   870
      Width           =   165
   End
   Begin VB.Line ln 
      Index           =   3
      X1              =   120
      X2              =   120
      Y1              =   55
      Y2              =   69
   End
   Begin VB.Line ln 
      Index           =   2
      X1              =   109
      X2              =   109
      Y1              =   55
      Y2              =   69
   End
   Begin VB.Line ln 
      Index           =   1
      X1              =   98
      X2              =   98
      Y1              =   55
      Y2              =   69
   End
   Begin VB.Line ln 
      Index           =   0
      X1              =   87
      X2              =   87
      Y1              =   55
      Y2              =   69
   End
   Begin VB.Label lbl 
      BackColor       =   &H00000000&
      BackStyle       =   0  'Transparent
      Caption         =   "Autotype Text-File"
      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          =   315
      Index           =   8
      Left            =   5580
      TabIndex        =   72
      Top             =   3150
      Width           =   585
   End
   Begin VB.Label lbl 
      AutoSize        =   -1  'True
      BackColor       =   &H00000000&
      BackStyle       =   0  'Transparent
      Caption         =   "View Text"
      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           =   7
      Left            =   645
      TabIndex        =   66
      Top             =   3150
      Width           =   585
   End
   Begin VB.Label lbl 
      Alignment       =   2  'Zentriert
      BackColor       =   &H00000000&
      BackStyle       =   0  'Transparent
      Caption         =   "Konfiguration einstellen"
      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          =   345
      Index           =   6
      Left            =   960
      TabIndex        =   64
      Top             =   1125
      Width           =   840
   End
   Begin VB.Image img 
      Height          =   165
      Index           =   4
      Left            =   6450
      MousePointer    =   12  'Nicht ablegen
      ToolTipText     =   "Do not open"
      Top             =   5265
      Width           =   165
   End
   Begin VB.Image img 
      Height          =   165
      Index           =   3
      Left            =   6450
      MousePointer    =   12  'Nicht ablegen
      ToolTipText     =   "Do not open"
      Top             =   2730
      Width           =   165
   End
   Begin VB.Image img 
      Height          =   165
      Index           =   2
      Left            =   165
      MousePointer    =   12  'Nicht ablegen
      ToolTipText     =   "Do not open"
      Top             =   5265
      Width           =   165
   End
   Begin VB.Image img 
      Height          =   165
      Index           =   1
      Left            =   165
      MousePointer    =   12  'Nicht ablegen
      ToolTipText     =   "Do not open"
      Top             =   2730
      Width           =   165
   End
   Begin VB.Image img 
      Height          =   165
      Index           =   0
      Left            =   165
      MousePointer    =   12  'Nicht ablegen
      Picture         =   "fEnigma.frx":7EC80
      ToolTipText     =   "Do not open"
      Top             =   210
      Width           =   165
   End
   Begin VB.Label lbl 
      BackColor       =   &H00000000&
      BackStyle       =   0  'Transparent
      Caption         =   "Grundstellung"
      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           =   5
      Left            =   5415
      TabIndex        =   63
      Top             =   1140
      Width           =   870
   End
   Begin VB.Label lbl 
      Alignment       =   2  'Zentriert
      AutoSize        =   -1  'True
      BackColor       =   &H00000000&
      BackStyle       =   0  'Transparent
      Caption         =   "Aus"
      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           =   4
      Left            =   660
      TabIndex        =   62
      ToolTipText     =   "Out"
      Top             =   4815
      Width           =   270
   End
   Begin VB.Label lbl 
      Alignment       =   2  'Zentriert
      BackColor       =   &H00000000&
      BackStyle       =   0  'Transparent
      Caption         =   "Ein"
      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           =   3
      Left            =   630
      TabIndex        =   61
      ToolTipText     =   "In"
      Top             =   4305
      Width           =   225
   End
   Begin VB.Label lbl 
      Alignment       =   2  'Zentriert
      AutoSize        =   -1  'True
      BackColor       =   &H00000000&
      BackStyle       =   0  'Transparent
      Caption         =   "Rotorstellung"
      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           =   2
      Left            =   2970
      TabIndex        =   60
      ToolTipText     =   "Wheel Positions"
      Top             =   1125
      Width           =   870
   End
   Begin VB.Label lblRing 
      Alignment       =   2  'Zentriert
      BackColor       =   &H00C0C0C0&
      BorderStyle     =   1  'Fest Einfach
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   270
      Index           =   2
      Left            =   3885
      TabIndex        =   59
      ToolTipText     =   "Wheel 3 Position"
      Top             =   810
      Width           =   255
   End
   Begin VB.Label lblRing 
      Alignment       =   2  'Zentriert
      BackColor       =   &H00C0C0C0&
      BorderStyle     =   1  'Fest Einfach
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False

⌨️ 快捷键说明

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