📄 controls.frm
字号:
VERSION 5.00
Object = "{75D4F767-8785-11D3-93AD-0000832EF44D}#2.8#0"; "FAST2001.ocx"
Object = "{75D4F148-8785-11D3-93AD-0000832EF44D}#3.3#0"; "FAST2003.ocx"
Object = "{E6BA1CE2-2668-11D4-93D6-400100005168}#2.0#0"; "FAST2011.ocx"
Begin VB.Form frmFASTWinCtrls
BorderStyle = 3 'Fixed Dialog
Caption = "FASTWin 2000 Common Controls"
ClientHeight = 6945
ClientLeft = 45
ClientTop = 375
ClientWidth = 7875
Icon = "Controls.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6945
ScaleWidth = 7875
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin FLWCtrls2.FWWinControl FWWinControl1
Height = 225
Index = 0
Left = 5340
TabIndex = 41
Top = 6300
Width = 225
_ExtentX = 397
_ExtentY = 397
Checked = -1 'True
Style = 1
End
Begin FLWCtrls.FWLabel FWLabel1
Height = 225
Left = 5310
Top = 4710
Width = 1005
_ExtentX = 2196
_ExtentY = 397
Enabled = 0 'False
Caption = "Disabled"
FirstColor = 12632256
SecondColor = 8421504
Angle = 0
ForeColor = -2147483630
End
Begin FLWCtrls.FWNumericTextBox FWNumericTextBox1
Height = 315
Left = 3450
TabIndex = 38
Top = 6030
Width = 855
_ExtentX = 1508
_ExtentY = 556
Value = 20
BackColor = -2147483643
ForeColor = -2147483630
End
Begin FLWCtrls.FWClock objClock
Height = 1485
Left = 1800
TabIndex = 37
Top = 5160
Width = 1545
_ExtentX = 2725
_ExtentY = 2619
SecondsColor = -2147483635
MinutesColor = -2147483635
HoursColor = -2147483647
End
Begin VB.Frame Frame3
Caption = "HyperLinks"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000002&
Height = 1485
Left = 5250
TabIndex = 32
Top = 3120
Width = 2520
Begin FLWCtrls.FWHyperLink FWHyperLink2
Height = 255
Left = 90
TabIndex = 33
Top = 570
Width = 1905
_ExtentX = 3360
_ExtentY = 450
Text = "mailto:mroibal@retemail.es"
Hover = -1 'True
End
Begin FLWCtrls.FWHyperLink FWHyperLink3
Height = 255
Left = 90
TabIndex = 34
Top = 840
Width = 2235
_ExtentX = 3942
_ExtentY = 450
Text = "www.microsoft.com"
Hover = -1 'True
End
Begin FLWCtrls.FWHyperLink FWHyperLink4
Height = 255
Left = 90
TabIndex = 35
Top = 1080
Width = 1905
_ExtentX = 3360
_ExtentY = 450
Text = "www.ibm.com"
FontBold = -1 'True
Hover = -1 'True
End
Begin FLWCtrls.FWHyperLink FWHyperLink1
Height = 300
Left = 120
TabIndex = 36
Top = 240
Width = 2340
_ExtentX = 3387
_ExtentY = 529
Text = "http://welcome.to/fastlib"
LinkColor = 255
FontName = "Comic Sans MS"
FontBold = -1 'True
FontSize = 9
FontUnderline = -1 'True
End
End
Begin VB.Frame Frame2
Caption = "FWTermometter"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000002&
Height = 1965
Left = 60
TabIndex = 30
Top = 4950
Width = 1635
Begin VB.Timer timTermometter
Enabled = 0 'False
Interval = 250
Left = 1020
Top = 960
End
Begin VB.CommandButton cmdTermometter
Caption = "Activate"
Height = 360
Left = 480
TabIndex = 31
Top = 420
Width = 1050
End
Begin FLWCtrls.FWTermometter objTermometter1
Height = 1455
Left = 150
Top = 390
Width = 285
_ExtentX = 503
_ExtentY = 2566
Value = 50
BackColor = 14737632
End
Begin FLWCtrls.FWTermometter objTermometter2
Height = 945
Left = 540
Top = 900
Width = 225
_ExtentX = 397
_ExtentY = 1667
Value = 45
FillColor = 16711680
BackColor = 14737632
End
Begin FLWCtrls.FWTermometter objTermometter3
Height = 945
Left = 840
Top = 900
Width = 225
_ExtentX = 397
_ExtentY = 1667
Value = 55
FillColor = 65280
BackColor = 14737632
End
End
Begin FLWCtrls.FWScrollText FWScrollText1
Height = 345
Left = 5340
TabIndex = 28
Top = 5610
Width = 2355
_ExtentX = 4154
_ExtentY = 609
BorderStyle = 10
BackColor = -2147483643
End
Begin VB.Frame fraDial
Caption = "FWDial"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000002&
Height = 2520
Left = 60
TabIndex = 0
Top = 30
Width = 2235
Begin FLWCtrls.FWDial Dial1
Height = 1995
Left = 90
TabIndex = 16
Top = 450
Width = 2055
_ExtentX = 3625
_ExtentY = 3519
Value = 95
End
Begin VB.Label lblDial
AutoSize = -1 'True
Caption = "Value:"
Height = 195
Left = 180
TabIndex = 1
Top = 210
Width = 450
End
End
Begin VB.Frame fraLights
Caption = "FWTrafficLight"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000002&
Height = 3030
Left = 5250
TabIndex = 7
Top = 30
Width = 2520
Begin FLWCtrls.FWTrafficLight FWTrafficLight3
Height = 1695
Left = 1740
TabIndex = 20
Top = 240
Width = 615
_ExtentX = 1085
_ExtentY = 2990
Value = 2
BorderStyle = 6
End
Begin FLWCtrls.FWTrafficLight FWTrafficLight2
Height = 1365
Left = 900
TabIndex = 19
Top = 240
Width = 735
_ExtentX = 1296
_ExtentY = 2408
Blink = -1 'True
Value = 1
BorderStyle = 10
TrafficLightType= 1
End
Begin FLWCtrls.FWTrafficLight FWTrafficLight1
Height = 1665
Left = 150
TabIndex = 18
Top = 240
Width = 645
_ExtentX = 1138
_ExtentY = 2937
Value = 3
End
Begin VB.Label lblLights
Caption = $"Controls.frx":000C
Height = 1020
Left = 90
TabIndex = 8
Top = 1950
Width = 2325
End
End
Begin VB.Timer timTimer
Enabled = 0 'False
Interval = 250
Left = 30
Top = 1560
End
Begin VB.Frame fraProgress
Caption = "FWProgressBar"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000002&
Height = 2325
Left = 2400
TabIndex = 9
Top = 2715
Width = 2730
Begin FLWCtrls.FWProgressBar FWProgressBar2
Height = 345
Left = 120
Top = 660
Width = 1965
_ExtentX = 3466
_ExtentY = 609
FillColor = 255
BorderStyle = 10
ShowText = -1 'True
End
Begin VB.CommandButton cmdProgress
Caption = "Test ProgressBar"
Height = 345
Left = 120
TabIndex = 12
Top = 1845
Width = 1965
End
Begin FLWCtrls.FWProgressBar FWProgressBar1
Height = 345
Left = 120
Top = 300
Width = 1965
_ExtentX = 3466
_ExtentY = 609
ProgressBarType = 2
BorderStyle = 10
ShowText = -1 'True
End
Begin FLWCtrls.FWProgressBar FWProgressBar3
Height = 345
Left = 120
Top = 1050
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -