📄 roomcdt.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "Msflxgrd.ocx"
Begin VB.Form RoomCDT
Caption = "Room Correction Data Table"
ClientHeight = 7785
ClientLeft = 60
ClientTop = 450
ClientWidth = 14040
Icon = "RoomCDT.frx":0000
LinkTopic = "Form5"
ScaleHeight = 7785
ScaleWidth = 14040
StartUpPosition = 3 'Windows Default
Begin VB.Frame Frame1
BorderStyle = 0 'None
Height = 7695
Left = 0
TabIndex = 0
Top = 0
Width = 14025
Begin VB.TextBox tempedit1
Height = 285
Left = 3390
TabIndex = 5
Text = "0"
Top = 1920
Visible = 0 'False
Width = 1815
End
Begin MSFlexGridLib.MSFlexGrid roomcdt
Height = 225
Index = 0
Left = 1320
TabIndex = 1
Top = 120
Width = 12705
_ExtentX = 22410
_ExtentY = 397
_Version = 393216
Rows = 1
Cols = 8
FixedCols = 8
BackColor = 16777215
ForeColorFixed = 8421440
GridLines = 0
GridLinesFixed = 0
BorderStyle = 0
Appearance = 0
FormatString = "Sinewave |...............................................|<.......Pass 1.......|<.......Pass 2.......|<.......Pass 3........"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "@BatangChe"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 8775
Left = 90
TabIndex = 2
Top = 600
Width = 1215
_ExtentX = 2143
_ExtentY = 15478
_Version = 393216
Rows = 30
Cols = 3
FixedCols = 2
BackColor = 16777215
ForeColorFixed = 8421440
GridLines = 0
GridLinesFixed = 0
BorderStyle = 0
Appearance = 0
FormatString = " |<Step size | ; |1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24|25|26|27|28"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "@Gungsuh"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSFlexGridLib.MSFlexGrid roomcdt1
Height = 255
Left = 1320
TabIndex = 3
Top = 360
Width = 12675
_ExtentX = 22357
_ExtentY = 450
_Version = 393216
Rows = 1
Cols = 11
BackColor = 16777215
ForeColorFixed = 8421440
GridLines = 0
GridLinesFixed = 1
BorderStyle = 0
Appearance = 0
FormatString = $"RoomCDT.frx":030A
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "@BatangChe"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSFlexGridLib.MSFlexGrid roomcdt2
Height = 7125
Left = 1290
TabIndex = 4
Top = 540
Width = 12795
_ExtentX = 22569
_ExtentY = 12568
_Version = 393216
Rows = 29
Cols = 11
BackColor = 16777215
ForeColorFixed = 8421440
GridLinesFixed = 1
FormatString = $"RoomCDT.frx":0392
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "@BatangChe"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
End
Attribute VB_Name = "RoomCDT"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Activate()
init
End Sub
Private Sub Form_Deactivate()
On Error Resume Next
pointer = 180 'the first data in Room Correction
For i = 1 To 28
For j = 1 To 2
intworkingbuf(pointer) = roomcdt2.TextMatrix(i, j)
pointer = pointer + 1
Next j
Next i
End Sub
Private Sub Form_Load()
On Error Resume Next
MSFlexGrid1.TextMatrix(1, 1) = "3.333333"
MSFlexGrid1.TextMatrix(13, 1) = "6.666667"
MSFlexGrid1.TextMatrix(25, 1) = "13.333333"
For i = 1 To 13
roomcdt2.TextMatrix(i, 0) = Format(40# + (i - 1) * 3.333333, "###0.00")
Next i
For i = 14 To 25
roomcdt2.TextMatrix(i, 0) = Format(80# + (i - 13) * 3.333333 * 2, "###0.00")
Next i
For i = 26 To 28
roomcdt2.TextMatrix(i, 0) = Format(160# + (i - 25) * 3.333333 * 4, "###0.00")
Next i
For j = 3 To 4
roomcdt2.Col = j
For i = 1 To 28
roomcdt2.Row = i
roomcdt2.CellBackColor = &H8000000F
roomcdt2.TextMatrix(i, j) = 0
Next i
Next
For j = 5 To 10
roomcdt2.Col = j
For i = 1 To 28
roomcdt2.Row = i
roomcdt2.CellBackColor = RGB(255, 49, 69)
roomcdt2.TextMatrix(i, j) = 0
Next i
Next
init
End Sub
Private Sub init()
On Error Resume Next
pointer = 180 'the first data in Room Correction
For i = 1 To 28
For j = 1 To 2
roomcdt2.TextMatrix(i, j) = intworkingbuf(pointer)
pointer = pointer + 1
Next j
Next i
End Sub
Private Sub Form_Unload(Cancel As Integer)
Form_Deactivate
End Sub
Private Sub roomcdt2_Click()
On Error Resume Next
If roomcdt2.ColSel = 1 Or roomcdt2.ColSel = 2 Then
tempedit1.Height = roomcdt2.CellHeight
tempedit1.width = roomcdt2.CellWidth
tempedit1.Top = roomcdt2.CellTop + roomcdt2.Top '+ 2 * roomcdt2.CellHeight
tempedit1.Left = roomcdt2.CellLeft + 1300
tempedit1.Text = roomcdt2.TextMatrix(roomcdt2.RowSel, roomcdt2.ColSel)
tempedit1.Visible = True
tempedit1.SetFocus
Else
tempedit1.Visible = False
End If
End Sub
Private Sub tempedit1_Change()
On Error Resume Next
roomcdt2.TextMatrix(roomcdt2.RowSel, roomcdt2.ColSel) = tempedit1.Text
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -