fconfig.frm

德国纳粹二战时发明的密码机engma“迷”的复原模拟程序的源码

VERSION 5.00
Begin VB.Form fConfig 
   BorderStyle     =   4  'Festes Werkzeugfenster
   Caption         =   "Enigma Configuration"
   ClientHeight    =   1020
   ClientLeft      =   45
   ClientTop       =   285
   ClientWidth     =   2865
   ControlBox      =   0   'False
   ForeColor       =   &H8000000F&
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   1020
   ScaleWidth      =   2865
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'Bildschirmmitte
   Begin VB.CommandButton btOK 
      Caption         =   "Cancel"
      Height          =   330
      Index           =   1
      Left            =   1444
      TabIndex        =   3
      Top             =   555
      Width           =   660
   End
   Begin VB.CommandButton btOK 
      Caption         =   "OK"
      Height          =   330
      Index           =   0
      Left            =   761
      TabIndex        =   2
      Top             =   555
      Width           =   660
   End
   Begin VB.TextBox txConf 
      Alignment       =   1  'Rechts
      Height          =   300
      Left            =   2145
      MaxLength       =   5
      TabIndex        =   1
      Top             =   120
      Width           =   570
   End
   Begin VB.Label lb 
      Caption         =   "Enter configuration number:"
      Height          =   195
      Left            =   150
      TabIndex        =   0
      Top             =   150
      Width           =   1950
   End
End
Attribute VB_Name = "fConfig"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Ptr         As Long
Private Text        As String
Private SelStart    As Long
Private SelLength   As Long
Private Internal    As Boolean

Private Sub btOK_Click(Index As Integer)

    If Index = 1 Then
        txConf = ""
    End If
    Hide

End Sub

Private Sub txConf_Change()

    If Not Internal Then
        With txConf
            For Ptr = 1 To Len(.Text)
                If Not Mid$(.Text, Ptr, 1) Like "[0-9]" Then
                    Exit For '>---> Next
                End If
            Next Ptr
            If Ptr > Len(.Text) And Left$(.Text, 1) <> "0" Then
                txConf_GotFocus
              Else 'NOT Ptr...
                Internal = True
                .Text = Text
                .SelStart = SelStart
                .SelLength = SelLength
                Internal = False
            End If
        End With 'TXCONF
    End If
                    
End Sub

Private Sub txConf_GotFocus()
                
    With txConf
        Text = .Text
        SelStart = .SelStart
        SelLength = .SelLength
    End With 'TXCONF

End Sub

':) Ulli's VB Code Formatter V2.9.4 (17.01.2002 08:22:25) 7 + 44 = 51 Lines