📄 frm_settings.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form Frm_settings
BorderStyle = 1 'Fixed Single
Caption = "Administer settings"
ClientHeight = 4875
ClientLeft = 45
ClientTop = 330
ClientWidth = 7695
Icon = "Frm_settings.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 4875
ScaleWidth = 7695
Begin VB.CommandButton cmd_finedel
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 120
MouseIcon = "Frm_settings.frx":24A2
MousePointer = 99 'Custom
Picture = "Frm_settings.frx":25F4
Style = 1 'Graphical
TabIndex = 18
ToolTipText = "Format Fine info. database"
Top = 3960
Width = 1215
End
Begin VB.CommandButton cmd_default
Default = -1 'True
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 2880
MouseIcon = "Frm_settings.frx":2B5F
MousePointer = 99 'Custom
Picture = "Frm_settings.frx":2CB1
Style = 1 'Graphical
TabIndex = 14
ToolTipText = "Set Default settings"
Top = 3960
Width = 1095
End
Begin VB.CommandButton cmd_apply
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 6480
MouseIcon = "Frm_settings.frx":330D
MousePointer = 99 'Custom
Picture = "Frm_settings.frx":345F
Style = 1 'Graphical
TabIndex = 17
ToolTipText = "Apply settings"
Top = 3960
Width = 1095
End
Begin VB.CommandButton cmd_cancel
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 5280
MouseIcon = "Frm_settings.frx":394E
MousePointer = 99 'Custom
Picture = "Frm_settings.frx":3AA0
Style = 1 'Graphical
TabIndex = 16
ToolTipText = "Ok"
Top = 3960
Width = 1095
End
Begin VB.CommandButton cmd_Change
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 4080
MouseIcon = "Frm_settings.frx":4012
MousePointer = 99 'Custom
Picture = "Frm_settings.frx":4164
Style = 1 'Graphical
TabIndex = 15
ToolTipText = "Click to modify"
Top = 3960
Width = 1095
End
Begin VB.TextBox Text5
Height = 285
Left = 12960
TabIndex = 21
Text = "Text5"
Top = 3840
Width = 1935
End
Begin TabDlg.SSTab SSTab1
Height = 3015
Left = 120
TabIndex = 20
Top = 840
Width = 7425
_ExtentX = 13097
_ExtentY = 5318
_Version = 393216
Style = 1
Tabs = 2
TabHeight = 538
TabMaxWidth = 2999
ForeColor = 8388608
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCaption(0) = "Library"
TabPicture(0) = "Frm_settings.frx":4644
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Frame1"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Fra_mem"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).ControlCount= 2
TabCaption(1) = "Administrator"
TabPicture(1) = "Frm_settings.frx":4660
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Check1"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "cmd_deletea"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "txt_welcome"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "txt_splash"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).Control(4)= "fra_form"
Tab(1).Control(4).Enabled= 0 'False
Tab(1).Control(5)= "fra_pass"
Tab(1).Control(5).Enabled= 0 'False
Tab(1).Control(6)= "Label4"
Tab(1).Control(6).Enabled= 0 'False
Tab(1).Control(7)= "Label2"
Tab(1).Control(7).Enabled= 0 'False
Tab(1).Control(8)= "lbl_time"
Tab(1).Control(8).Enabled= 0 'False
Tab(1).Control(9)= "lbl_wl"
Tab(1).Control(9).Enabled= 0 'False
Tab(1).Control(10)= "lbl_spl"
Tab(1).Control(10).Enabled= 0 'False
Tab(1).ControlCount= 11
Begin VB.CheckBox Check1
Alignment = 1 'Right Justify
Caption = "Show welcome screen at startup"
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = -74640
TabIndex = 47
Top = 2520
Width = 3975
End
Begin VB.CommandButton cmd_deletea
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = -69720
MaskColor = &H8000000F&
MouseIcon = "Frm_settings.frx":467C
MousePointer = 99 'Custom
Picture = "Frm_settings.frx":47CE
Style = 1 'Graphical
TabIndex = 19
ToolTipText = "Format the Database"
Top = 2040
Width = 1815
End
Begin VB.TextBox txt_welcome
Alignment = 1 'Right Justify
Height = 285
Left = -72240
Locked = -1 'True
TabIndex = 10
Top = 2160
Width = 1575
End
Begin VB.TextBox txt_splash
Alignment = 1 'Right Justify
Height = 285
Left = -72240
Locked = -1 'True
TabIndex = 9
Top = 1800
Width = 1575
End
Begin VB.Frame fra_form
Caption = "Open form"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000040&
Height = 1455
Left = -69720
TabIndex = 35
Top = 480
Width = 1815
Begin VB.OptionButton opt_tl
Caption = "Top left"
Enabled = 0 'False
ForeColor = &H00800000&
Height = 255
Left = 240
TabIndex = 11
Top = 360
Width = 1455
End
Begin VB.OptionButton opt_ce
Caption = "Screen center"
Enabled = 0 'False
ForeColor = &H00800000&
Height = 255
Left = 240
TabIndex = 12
Top = 720
Width = 1455
End
Begin VB.OptionButton opt_def
Caption = "Default"
Enabled = 0 'False
ForeColor = &H00800000&
Height = 255
Left = 240
TabIndex = 13
Top = 1080
Width = 975
End
End
Begin VB.Frame fra_pass
Caption = "Password settings"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000040&
Height = 1215
Left = -74760
TabIndex = 32
Top = 480
Width = 4935
Begin VB.TextBox txt_pass1
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00400000&
Height = 285
IMEMode = 3 'DISABLE
Left = 1920
Locked = -1 'True
PasswordChar = "*"
TabIndex = 7
Top = 360
Width = 2775
End
Begin VB.TextBox txt_pass2
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00400000&
Height = 285
IMEMode = 3 'DISABLE
Left = 1920
Locked = -1 'True
PasswordChar = "*"
TabIndex = 8
Top = 720
Width = 2775
End
Begin VB.Label lbl_p1
BackStyle = 0 'Transparent
Caption = "Password"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 240
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -