📄 form1.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form Form1
BackColor = &H000080FF&
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 9675
ClientLeft = 0
ClientTop = 0
ClientWidth = 15360
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 9675
ScaleWidth = 15360
ShowInTaskbar = 0 'False
Begin VB.CommandButton Command2
Caption = "房间说明"
Height = 375
Left = 14040
TabIndex = 1220
Top = 480
Width = 1095
End
Begin VB.Frame Frame3
BorderStyle = 0 'None
Height = 2535
Left = 14040
TabIndex = 1213
Top = 5040
Width = 1095
Begin VB.Label Label22
Alignment = 2 'Center
Height = 255
Left = 180
TabIndex = 1219
Top = 2040
Width = 615
End
Begin VB.Label Label21
Caption = "入住率"
Height = 255
Left = 240
TabIndex = 1218
Top = 1680
Width = 615
End
Begin VB.Label Label20
Alignment = 2 'Center
Height = 255
Left = 180
TabIndex = 1217
Top = 1320
Width = 615
End
Begin VB.Label Label19
Caption = "入住数"
Height = 255
Left = 240
TabIndex = 1216
Top = 960
Width = 615
End
Begin VB.Label Label18
Alignment = 2 'Center
Height = 255
Left = 120
TabIndex = 1215
Top = 600
Width = 735
End
Begin VB.Label Label12
Caption = "房间数"
Height = 255
Left = 240
TabIndex = 1214
Top = 240
Width = 615
End
End
Begin VB.Timer Timer2
Interval = 60000
Left = 14640
Top = 4560
End
Begin VB.CommandButton Command1
Caption = "关闭本界面"
Height = 375
Left = 14040
TabIndex = 1212
Top = 960
Width = 1095
End
Begin VB.Frame Frame5
BorderStyle = 0 'None
Height = 3495
Left = 14040
TabIndex = 1201
Top = 1440
Width = 1095
Begin VB.Frame Frame6
BackColor = &H00FF00FF&
BorderStyle = 0 'None
Height = 255
Left = 240
TabIndex = 1206
Top = 600
Width = 735
End
Begin VB.Frame Frame7
BackColor = &H000000FF&
BorderStyle = 0 'None
Height = 255
Left = 240
TabIndex = 1205
Top = 1200
Width = 735
End
Begin VB.Frame Frame8
BackColor = &H0000FF00&
BorderStyle = 0 'None
Height = 255
Left = 240
TabIndex = 1204
Top = 1800
Width = 735
End
Begin VB.Frame Frame1
BackColor = &H00FF0000&
BorderStyle = 0 'None
Height = 255
Left = 240
TabIndex = 1203
Top = 2400
Width = 735
End
Begin VB.Frame Frame2
BackColor = &H0000FFFF&
BorderStyle = 0 'None
Height = 255
Left = 240
TabIndex = 1202
Top = 3000
Width = 735
End
Begin VB.Label Label15
BackStyle = 0 'Transparent
Caption = "入住："
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 360
TabIndex = 1211
Top = 360
Width = 615
End
Begin VB.Label Label16
BackStyle = 0 'Transparent
Caption = "维修："
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 360
TabIndex = 1210
Top = 960
Width = 615
End
Begin VB.Label Label17
BackStyle = 0 'Transparent
Caption = "空闲："
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 360
TabIndex = 1209
Top = 1560
Width = 615
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
Caption = "自用："
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 360
TabIndex = 1208
Top = 2160
Width = 615
End
Begin VB.Label Label11
BackStyle = 0 'Transparent
Caption = "打扫："
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 360
TabIndex = 1207
Top = 2760
Width = 615
End
End
Begin TabDlg.SSTab SSTab1
Height = 9255
Left = 0
TabIndex = 0
Top = 120
Width = 13935
_ExtentX = 24580
_ExtentY = 16325
_Version = 393216
Tabs = 5
TabsPerRow = 5
TabHeight = 520
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCaption(0) = "房间状态1"
TabPicture(0) = "Form1.frx":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Frame(51)"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Frame(31)"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Frame(21)"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "Frame(11)"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "Frame(1)"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "Frame(0)"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "Frame(2)"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "Frame(3)"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "Frame(4)"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "Frame(5)"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).Control(10)= "Frame(6)"
Tab(0).Control(10).Enabled= 0 'False
Tab(0).Control(11)= "Frame(7)"
Tab(0).Control(11).Enabled= 0 'False
Tab(0).Control(12)= "Frame(8)"
Tab(0).Control(12).Enabled= 0 'False
Tab(0).Control(13)= "Frame(9)"
Tab(0).Control(13).Enabled= 0 'False
Tab(0).Control(14)= "Frame(10)"
Tab(0).Control(14).Enabled= 0 'False
Tab(0).Control(15)= "Frame(12)"
Tab(0).Control(15).Enabled= 0 'False
Tab(0).Control(16)= "Frame(13)"
Tab(0).Control(16).Enabled= 0 'False
Tab(0).Control(17)= "Frame(14)"
Tab(0).Control(17).Enabled= 0 'False
Tab(0).Control(18)= "Frame(15)"
Tab(0).Control(18).Enabled= 0 'False
Tab(0).Control(19)= "Frame(16)"
Tab(0).Control(19).Enabled= 0 'False
Tab(0).Control(20)= "Frame(17)"
Tab(0).Control(20).Enabled= 0 'False
Tab(0).Control(21)= "Frame(18)"
Tab(0).Control(21).Enabled= 0 'False
Tab(0).Control(22)= "Frame(19)"
Tab(0).Control(22).Enabled= 0 'False
Tab(0).Control(23)= "Frame(20)"
Tab(0).Control(23).Enabled= 0 'False
Tab(0).Control(24)= "Frame(22)"
Tab(0).Control(24).Enabled= 0 'False
Tab(0).Control(25)= "Frame(25)"
Tab(0).Control(25).Enabled= 0 'False
Tab(0).Control(26)= "Frame(26)"
Tab(0).Control(26).Enabled= 0 'False
Tab(0).Control(27)= "Frame(27)"
Tab(0).Control(27).Enabled= 0 'False
Tab(0).Control(28)= "Frame(28)"
Tab(0).Control(28).Enabled= 0 'False
Tab(0).Control(29)= "Frame(29)"
Tab(0).Control(29).Enabled= 0 'False
Tab(0).Control(30)= "Frame(30)"
Tab(0).Control(30).Enabled= 0 'False
Tab(0).Control(31)= "Frame(32)"
Tab(0).Control(31).Enabled= 0 'False
Tab(0).Control(32)= "Frame(35)"
Tab(0).Control(32).Enabled= 0 'False
Tab(0).Control(33)= "Frame(36)"
Tab(0).Control(33).Enabled= 0 'False
Tab(0).Control(34)= "Frame(37)"
Tab(0).Control(34).Enabled= 0 'False
Tab(0).Control(35)= "Frame(38)"
Tab(0).Control(35).Enabled= 0 'False
Tab(0).Control(36)= "Frame(39)"
Tab(0).Control(36).Enabled= 0 'False
Tab(0).Control(37)= "Frame(23)"
Tab(0).Control(37).Enabled= 0 'False
Tab(0).Control(38)= "Frame(24)"
Tab(0).Control(38).Enabled= 0 'False
Tab(0).Control(39)= "Frame(33)"
Tab(0).Control(39).Enabled= 0 'False
Tab(0).Control(40)= "Frame(34)"
Tab(0).Control(40).Enabled= 0 'False
Tab(0).Control(41)= "Frame(40)"
Tab(0).Control(41).Enabled= 0 'False
Tab(0).Control(42)= "Frame(41)"
Tab(0).Control(42).Enabled= 0 'False
Tab(0).Control(43)= "Frame(42)"
Tab(0).Control(43).Enabled= 0 'False
Tab(0).Control(44)= "Frame(43)"
Tab(0).Control(44).Enabled= 0 'False
Tab(0).Control(45)= "Frame(44)"
Tab(0).Control(45).Enabled= 0 'False
Tab(0).Control(46)= "Frame(45)"
Tab(0).Control(46).Enabled= 0 'False
Tab(0).Control(47)= "Frame(46)"
Tab(0).Control(47).Enabled= 0 'False
Tab(0).Control(48)= "Frame(47)"
Tab(0).Control(48).Enabled= 0 'False
Tab(0).Control(49)= "Frame(48)"
Tab(0).Control(49).Enabled= 0 'False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -