?? fconfig.frm
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -