📄 osd.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form OSD_LISK
BorderStyle = 0 'None
ClientHeight = 11070
ClientLeft = 45
ClientTop = 360
ClientWidth = 14385
ClipControls = 0 'False
ControlBox = 0 'False
FillColor = &H00FFFFFF&
ForeColor = &H00000000&
LinkTopic = "Form7"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 11070
ScaleWidth = 14385
ShowInTaskbar = 0 'False
StartUpPosition = 1 '所有者中心
Begin VB.PictureBox Picture2
BorderStyle = 0 'None
Height = 7335
Left = 0
ScaleHeight = 7335
ScaleWidth = 9015
TabIndex = 13
Top = 0
Width = 9015
Begin VB.TextBox Text7
Appearance = 0 'Flat
BackColor = &H80000018&
Enabled = 0 'False
Height = 2415
Left = 8160
MaxLength = 1000
MultiLine = -1 'True
TabIndex = 14
Text = "OSD.frx":0000
Top = 3960
Visible = 0 'False
Width = 1455
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 7695
Left = 10
TabIndex = 15
Top = 120
Width = 7935
_ExtentX = 13996
_ExtentY = 13573
_Version = 393216
FixedRows = 0
BackColor = 16777215
BackColorFixed = 16777215
BackColorSel = 12648447
BackColorBkg = 12615808
GridColorFixed = -2147483647
GridLinesFixed = 1
BorderStyle = 0
Appearance = 0
FormatString = ""
End
Begin VB.Shape Shape1
BorderColor = &H80000001&
Height = 7215
Left = 0
Top = 100
Width = 8295
End
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 4300
Left = 9360
Top = 6600
End
Begin VB.Frame Frame1
Caption = "色标说明："
Height = 855
Left = 840
TabIndex = 0
Top = 8280
Width = 13335
Begin VB.PictureBox Picture1
BorderStyle = 0 'None
Height = 495
Left = 120
ScaleHeight = 495
ScaleWidth = 13095
TabIndex = 1
Top = 240
Width = 13095
Begin VB.TextBox Text1
Enabled = 0 'False
Height = 270
IMEMode = 2 'OFF
Left = 360
TabIndex = 12
Text = "停租"
Top = 120
Width = 615
End
Begin VB.TextBox Text2
BackColor = &H00FFFFC0&
Enabled = 0 'False
Height = 270
Left = 1200
TabIndex = 11
Text = "待租"
Top = 120
Width = 615
End
Begin VB.TextBox Text3
BackColor = &H00C0FFC0&
Enabled = 0 'False
Height = 270
Left = 2040
TabIndex = 10
Text = "出租"
Top = 120
Width = 615
End
Begin VB.TextBox Text4
BackColor = &H0000FF00&
Enabled = 0 'False
Height = 270
Left = 2880
TabIndex = 9
Text = "入住"
Top = 120
Width = 615
End
Begin VB.TextBox Text5
BackColor = &H00C0C000&
Enabled = 0 'False
Height = 270
Left = 4800
TabIndex = 8
Text = "服务"
Top = 120
Width = 615
End
Begin VB.TextBox Text6
BackColor = &H00FF8080&
Enabled = 0 'False
Height = 270
Left = 5640
TabIndex = 7
Text = "管理"
Top = 120
Width = 615
End
Begin VB.TextBox Text8
BackColor = &H0000C000&
Enabled = 0 'False
Height = 270
Left = 3720
TabIndex = 6
Text = "强制入住"
Top = 120
Width = 855
End
Begin VB.TextBox Text9
BackColor = &H00C0FFFF&
Enabled = 0 'False
Height = 270
Left = 6480
TabIndex = 5
Text = "异常"
Top = 120
Width = 615
End
Begin VB.TextBox Text10
BackColor = &H0080C0FF&
Enabled = 0 'False
Height = 270
Left = 7320
TabIndex = 4
Text = "求助"
Top = 120
Width = 615
End
Begin VB.CommandButton Command1
Caption = "重新查询全部客房"
Height = 375
Left = 9480
TabIndex = 3
Top = 60
Width = 1815
End
Begin VB.CommandButton Command2
Caption = "返回(&X)"
Height = 375
Left = 11520
TabIndex = 2
Top = 60
Width = 1215
End
End
End
End
Attribute VB_Name = "OSD_LISK"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'***************************************************************************
http://www.codesky.net 源码天空
'***************************************************************************
Option Explicit
Dim 楼层 As Byte
Private Sub Command1_Click()
楼层 = 0
Call 读楼层(楼层)
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Unload Form2
Unload Me
End Sub
Private Sub Form_Load()
Dim m
'--------------------------
MSFlexGrid1.BackColorBkg = RGB(228, 228, 255)
MSFlexGrid1.BackColorFixed = RGB(228, 228, 255)
Me.BackColor = RGB(228, 228, 255)
Frame1.BackColor = RGB(228, 228, 255)
Picture1.BackColor = RGB(228, 228, 255)
Picture2.BackColor = RGB(228, 228, 255)
'---------------------------
Dim i As Byte, J As Byte
Dim 表格x As Byte, 表格y As Byte
Me.Width = 14840
Me.Height = 9600
Me.Left = 0
Me.Top = 0
'*************************************************
Picture2.Width = 14840
Picture2.Height = 8160
MSFlexGrid1.Width = 15000
MSFlexGrid1.Height = 8000
Shape1.Width = 14830
Shape1.Height = 7930
MSFlexGrid1.Cols = 29 ' 置表最大列数
MSFlexGrid1.Rows = 16 ' 置表最大行数
'**************************************************
MSFlexGrid1.ColWidth(0) = 540 ' 置列宽
MSFlexGrid1.ColAlignment(0) = 4 '指定列居中显示
For i = 1 To 28
MSFlexGrid1.ColWidth(i) = 510 '置列宽
MSFlexGrid1.ColAlignment(i) = 4 '指定列居中显示
Next
'***************************************************
For i = 0 To 15
MSFlexGrid1.RowHeight(i) = 500 '置行高
Next
'***************************************************
MSFlexGrid1.Col = 0 ' 置当前列
'--------------------- OSD 7F~12F ---------------------------------
For i = 0 To 5
MSFlexGrid1.Row = 15 - i ' 置当前行
MSFlexGrid1.Text = Str(i + 7) + "F"
' MSFlexGrid1.CellAlignment = 4 '当前格居中显示
Next
'-------------------- OSD 14F~22F -----------------------
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -