📄 first.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
Begin VB.Form Form1
BackColor = &H00C0C0C0&
Caption = "临床病历观察表"
ClientHeight = 7680
ClientLeft = 60
ClientTop = 345
ClientWidth = 10860
LinkTopic = "Form1"
ScaleHeight = 7680
ScaleWidth = 10860
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command3
BackColor = &H00000000&
Caption = "关闭"
Height = 375
Left = 6480
TabIndex = 308
Top = 7320
Width = 615
End
Begin VB.CommandButton Command2
Caption = "清除"
Height = 375
Left = 5400
TabIndex = 307
Top = 7320
Width = 615
End
Begin VB.CommandButton Command1
Caption = "确定"
Height = 375
Left = 4320
TabIndex = 306
Top = 7320
Width = 615
End
Begin TabDlg.SSTab SSTab1
Height = 7335
Left = 0
TabIndex = 0
Top = 0
Width = 10815
_ExtentX = 19076
_ExtentY = 12938
_Version = 393216
Tabs = 5
TabsPerRow = 5
TabHeight = 520
BackColor = -2147483645
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCaption(0) = "病历（首页）"
TabPicture(0) = "First.frx":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Frame9"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Frame8"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).ControlCount= 2
TabCaption(1) = "胰岛检测(第二页)"
TabPicture(1) = "First.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Frame2"
Tab(1).Control(1)= "Frame1"
Tab(1).ControlCount= 2
TabCaption(2) = "血生化验（第三页）"
TabPicture(2) = "First.frx":0038
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Label115"
Tab(2).Control(1)= "Label114"
Tab(2).Control(2)= "Label113"
Tab(2).Control(3)= "illman_starddate"
Tab(2).Control(4)= "illman_enddate"
Tab(2).Control(5)= "illman_chiefDoctor"
Tab(2).Control(6)= "Frame3"
Tab(2).Control(7)= "Frame4"
Tab(2).Control(8)= "Frame5"
Tab(2).Control(9)= "Frame6"
Tab(2).ControlCount= 10
TabCaption(3) = "外在观察信息"
TabPicture(3) = "First.frx":0054
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "Label123"
Tab(3).Control(1)= "Frame21"
Tab(3).Control(2)= "Frame20"
Tab(3).Control(3)= "Frame19"
Tab(3).Control(4)= "Frame18"
Tab(3).Control(5)= "Frame17"
Tab(3).Control(6)= "Frame16"
Tab(3).Control(7)= "Frame15"
Tab(3).Control(8)= "Frame14"
Tab(3).Control(9)= "Frame13"
Tab(3).Control(10)= "other_case"
Tab(3).ControlCount= 11
TabCaption(4) = "使用帮助"
TabPicture(4) = "First.frx":0070
Tab(4).ControlEnabled= 0 'False
Tab(4).ControlCount= 0
Begin VB.Frame Frame2
Caption = "胰岛素受体"
Height = 615
Left = -74880
TabIndex = 297
Top = 6600
Width = 10455
Begin VB.TextBox insulin_carrierR1
Height = 270
Left = 1440
TabIndex = 301
Top = 240
Width = 975
End
Begin VB.TextBox insulin_carrierR2
Height = 270
Left = 3360
TabIndex = 300
Top = 240
Width = 975
End
Begin VB.TextBox insulin_carrierK1
Height = 270
Left = 5880
TabIndex = 299
Top = 240
Width = 975
End
Begin VB.TextBox insulin_carrierK2
Height = 270
Left = 7560
TabIndex = 298
Top = 240
Width = 975
End
Begin VB.Label Label39
Caption = "R1"
Height = 255
Left = 840
TabIndex = 305
Top = 240
Width = 255
End
Begin VB.Label Label40
Caption = "R2"
Height = 255
Left = 2760
TabIndex = 304
Top = 240
Width = 255
End
Begin VB.Label Label41
Alignment = 2 'Center
Caption = "K1"
Height = 255
Left = 5520
TabIndex = 303
Top = 240
Width = 375
End
Begin VB.Label Label42
Caption = "K2"
Height = 255
Left = 7200
TabIndex = 302
Top = 240
Width = 255
End
End
Begin VB.Frame Frame1
Height = 6255
Left = -74880
TabIndex = 191
Top = 360
Width = 10455
Begin VB.TextBox kfText1
Height = 270
IMEMode = 2 'OFF
Index = 0
Left = 2520
TabIndex = 259
Top = 360
Width = 1300
End
Begin VB.TextBox twohourText3
Height = 270
IMEMode = 2 'OFF
Index = 0
Left = 6540
TabIndex = 258
Top = 390
Width = 1300
End
Begin VB.TextBox threehourText4
Height = 270
IMEMode = 2 'OFF
Index = 0
Left = 8760
TabIndex = 257
Top = 360
Width = 1300
End
Begin VB.TextBox kfText1
Height = 270
Index = 1
Left = 2520
TabIndex = 256
Top = 960
Width = 1300
End
Begin VB.TextBox twohourText3
Height = 270
Index = 1
Left = 6540
TabIndex = 255
Top = 930
Width = 1300
End
Begin VB.TextBox kfText1
Height = 270
Index = 2
Left = 2520
TabIndex = 254
Top = 1470
Width = 1300
End
Begin VB.TextBox twohourText3
Height = 270
Index = 2
Left = 6540
TabIndex = 253
Top = 1470
Width = 1300
End
Begin VB.TextBox threehourText4
Height = 270
Index = 2
Left = 8760
TabIndex = 252
Text = " "
Top = 1470
Width = 1300
End
Begin VB.TextBox kfText1
Height = 270
Index = 3
Left = 2520
TabIndex = 251
Top = 2040
Width = 1300
End
Begin VB.TextBox twohourText3
Height = 270
Index = 3
Left = 6540
TabIndex = 250
Top = 2010
Width = 1300
End
Begin VB.TextBox threehourText4
Height = 270
Index = 3
Left = 8760
TabIndex = 249
Top = 2010
Width = 1300
End
Begin VB.TextBox kfText1
Height = 270
Index = 4
Left = 2520
TabIndex = 248
Top = 2310
Width = 1300
End
Begin VB.TextBox twohourText3
Height = 270
Index = 4
Left = 6540
TabIndex = 247
Top = 2310
Width = 1300
End
Begin VB.TextBox threehourText4
Height = 270
Index = 4
Left = 8760
TabIndex = 246
Top = 2310
Width = 1300
End
Begin VB.TextBox kfText1
Height = 270
Index = 5
Left = 2520
TabIndex = 245
Top = 2610
Width = 1300
End
Begin VB.TextBox twohourText3
Height = 270
Index = 5
Left = 6540
TabIndex = 244
Top = 2610
Width = 1300
End
Begin VB.TextBox threehourText4
Height = 270
Index = 5
Left = 8760
TabIndex = 243
Top = 2610
Width = 1300
End
Begin VB.TextBox kfText1
Height = 270
Index = 6
Left = 2520
TabIndex = 242
Top = 2910
Width = 1300
End
Begin VB.TextBox twohourText3
Height = 270
Index = 6
Left = 6540
TabIndex = 241
Top = 2910
Width = 1300
End
Begin VB.TextBox threehourText4
Height = 270
Index = 6
Left = 8760
TabIndex = 240
Top = 2910
Width = 1300
End
Begin VB.TextBox kfText1
Height = 270
Index = 7
Left = 2520
TabIndex = 239
Top = 3195
Width = 1300
End
Begin VB.TextBox twohourText3
Height = 270
Index = 7
Left = 6540
TabIndex = 238
Top = 3195
Width = 1300
End
Begin VB.TextBox threehourText4
Height = 270
Index = 7
Left = 8760
TabIndex = 237
Top = 3195
Width = 1300
End
Begin VB.TextBox kfText1
Height = 270
Index = 8
Left = 2520
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -