📄 frmoptions.frm
字号:
Left = 2595
MaxLength = 1
TabIndex = 63
Top = 225
Width = 495
End
Begin VB.Label Label21
AutoSize = -1 'True
Caption = "First:"
Height = 195
Left = 75
TabIndex = 68
Top = 285
Width = 330
End
Begin VB.Label Label20
AutoSize = -1 'True
Caption = "Last:"
Height = 195
Left = 3225
TabIndex = 67
Top = 285
Width = 345
End
Begin VB.Label Label19
AutoSize = -1 'True
Caption = "Middle:"
Height = 195
Left = 2055
TabIndex = 66
Top = 285
Width = 510
End
End
Begin VB.Frame Frame9
Caption = "Address:"
Height = 1020
Left = 105
TabIndex = 53
Top = 945
Width = 5160
Begin VB.TextBox txtStreet1
Height = 285
Left = 570
TabIndex = 57
Top = 210
Width = 4530
End
Begin VB.TextBox txtCity1
Height = 285
Left = 480
TabIndex = 56
Top = 585
Width = 1785
End
Begin VB.TextBox txtState1
Height = 285
Left = 2850
MaxLength = 2
TabIndex = 55
Top = 570
Width = 510
End
Begin VB.TextBox txtZip1
Height = 285
Left = 3735
TabIndex = 54
Top = 570
Width = 1365
End
Begin VB.Label Label18
AutoSize = -1 'True
Caption = "Street:"
Height = 195
Left = 90
TabIndex = 61
Top = 255
Width = 465
End
Begin VB.Label Label17
AutoSize = -1 'True
Caption = "City:"
Height = 195
Left = 75
TabIndex = 60
Top = 615
Width = 300
End
Begin VB.Label Label16
AutoSize = -1 'True
Caption = "State:"
Height = 195
Left = 2340
TabIndex = 59
Top = 615
Width = 420
End
Begin VB.Label Label15
AutoSize = -1 'True
Caption = "Zip:"
Height = 195
Left = 3435
TabIndex = 58
Top = 615
Width = 270
End
End
Begin VB.Frame Frame8
Caption = "Final:"
Height = 885
Left = 105
TabIndex = 46
Top = 1980
Width = 5160
Begin VB.TextBox txtBDay1
Height = 285
Left = 2355
TabIndex = 49
Top = 165
Width = 1380
End
Begin VB.TextBox txtPass1
Height = 285
IMEMode = 3 'DISABLE
Left = 885
PasswordChar = "*"
TabIndex = 48
Top = 510
Width = 1350
End
Begin VB.TextBox txtVPass1
Height = 285
IMEMode = 3 'DISABLE
Left = 3630
PasswordChar = "*"
TabIndex = 47
Top = 510
Width = 1455
End
Begin VB.Label Label14
AutoSize = -1 'True
Caption = "Birthday:"
Height = 195
Left = 1635
TabIndex = 52
Top = 195
Width = 615
End
Begin VB.Label Label13
AutoSize = -1 'True
Caption = "Password:"
Height = 195
Left = 120
TabIndex = 51
Top = 540
Width = 735
End
Begin VB.Label Label12
AutoSize = -1 'True
Caption = "Re-Type Passwod:"
Height = 195
Left = 2265
TabIndex = 50
Top = 540
Width = 1350
End
End
End
Begin VB.Label Label22
AutoSize = -1 'True
Caption = "Users:"
Height = 195
Left = 765
TabIndex = 69
Top = 285
Width = 450
End
End
End
Begin VB.PictureBox picOptions
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 3660
Index = 1
Left = 6105
ScaleHeight = 3660
ScaleWidth = 5685
TabIndex = 18
TabStop = 0 'False
Tag = "InVisible"
Top = 7935
Width = 5685
Begin VB.Frame fraSample2
Height = 3645
Left = 45
TabIndex = 21
Top = -45
Width = 5580
Begin VB.Frame Frame6
Caption = "User to remove:"
Height = 1125
Left = 1950
TabIndex = 41
Top = 210
Width = 3525
Begin VB.CommandButton cmdClear
Caption = "Clear"
Enabled = 0 'False
Height = 315
Left = 1320
TabIndex = 44
Top = 690
Width = 795
End
Begin VB.CommandButton cmdRemoveUsr
Caption = "Remove User"
Enabled = 0 'False
Height = 315
Left = 2100
TabIndex = 43
Top = 690
Width = 1320
End
Begin VB.TextBox txtRemoveName
Height = 345
Left = 105
Locked = -1 'True
TabIndex = 42
Top = 255
Width = 3315
End
End
Begin VB.Frame Frame5
Caption = "User List:"
Height = 3345
Left = 150
TabIndex = 39
Top = 210
Width = 1755
Begin VB.ListBox lstRemoveUsr
Height = 2985
Left = 90
TabIndex = 40
Top = 255
Width = 1560
End
End
End
End
Begin VB.CommandButton cmdApply
Caption = "Apply"
Height = 375
Left = 4920
TabIndex = 14
Top = 4455
Width = 1095
End
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "Cancel"
Height = 375
Left = 3720
TabIndex = 13
Top = 4455
Width = 1095
End
Begin VB.CommandButton cmdOK
Caption = "OK"
Height = 375
Left = 2490
TabIndex = 12
Top = 4455
Width = 1095
End
Begin MSComctlLib.TabStrip tbsOptions
Height = 4155
Left = 105
TabIndex = 15
Top = 165
Width = 5910
_ExtentX = 10425
_ExtentY = 7329
_Version = 393216
BeginProperty Tabs {1EFB6598-857C-11D1-B16A-00C0F0283628}
NumTabs = 3
BeginProperty Tab1 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "Add User"
Key = "AddUsr"
Object.ToolTipText = "Add a new user to the database"
ImageVarType = 2
EndProperty
BeginProperty Tab2 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "Remove User"
Key = "RemoveUsr"
Object.ToolTipText = "Remove a user from the database"
ImageVarType = 2
EndProperty
BeginProperty Tab3 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "Edit User"
Key = "EditUsr"
Object.ToolTipText = "Edit a users information"
ImageVarType = 2
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Attribute VB_Name = "frmOptions"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Function OptionsEnable(What As Boolean)
frmOptions.Frame1.Enabled = What
frmOptions.Frame2.Enabled = What
frmOptions.Frame3.Enabled = What
frmOptions.Frame4.Enabled = What
frmOptions.txtCity.Enabled = What
frmOptions.txtCity.Text = ""
frmOptions.txtFirst.Enabled = What
frmOptions.txtFirst.Text = ""
frmOptions.txtLast.Enabled = What
frmOptions.txtLast.Text = ""
frmOptions.txtMiddle.Enabled = What
frmOptions.txtMiddle.Text = ""
frmOptions.txtState.Enabled = What
frmOptions.txtState.Text = ""
frmOptions.txtStreet.Enabled = What
frmOptions.txtStreet.Text = ""
frmOptions.txtZip.Enabled = What
frmOptions.txtZip.Text = ""
frmOptions.txtPass.Enabled = What
frmOptions.txtPass.Text = ""
frmOptions.txtBDay.Enabled = What
frmOptions.txtBDay.Text = ""
frmOptions.txtVPass.Enabled = What
frmOptions.txtVPass.Text = ""
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -