?? frm_writedata.frm
字號:
Width = 672
End
Begin VB.TextBox Text22
Enabled = 0 'False
Height = 228
Index = 9
Left = 8112
MaxLength = 2
TabIndex = 111
Text = "00"
Top = 1935
Width = 276
End
Begin VB.TextBox Text22
Enabled = 0 'False
Height = 228
Index = 10
Left = 8112
MaxLength = 2
TabIndex = 110
Text = "00"
Top = 2145
Width = 276
End
Begin VB.TextBox Text22
Enabled = 0 'False
Height = 228
Index = 11
Left = 8112
MaxLength = 2
TabIndex = 109
Text = "00"
Top = 2385
Width = 276
End
Begin VB.TextBox Text22
Enabled = 0 'False
Height = 228
Index = 12
Left = 8112
MaxLength = 2
TabIndex = 108
Text = "00"
Top = 2610
Width = 276
End
Begin VB.TextBox Text1
Enabled = 0 'False
Height = 228
Index = 5
Left = 4656
MaxLength = 6
TabIndex = 103
Text = "000000"
Top = 1935
Width = 672
End
Begin VB.TextBox Text1
Enabled = 0 'False
Height = 228
Index = 8
Left = 4656
MaxLength = 6
TabIndex = 102
Text = "000000"
Top = 2610
Width = 672
End
Begin VB.TextBox Text1
Enabled = 0 'False
Height = 228
Index = 7
Left = 4656
MaxLength = 6
TabIndex = 101
Text = "000000"
Top = 2385
Width = 672
End
Begin VB.TextBox Text1
Enabled = 0 'False
Height = 228
Index = 6
Left = 4656
MaxLength = 6
TabIndex = 100
Text = "000000"
Top = 2145
Width = 672
End
Begin VB.TextBox Text22
Enabled = 0 'False
Height = 228
Index = 5
Left = 5400
MaxLength = 2
TabIndex = 99
Text = "00"
Top = 1935
Width = 276
End
Begin VB.TextBox Text22
Enabled = 0 'False
Height = 228
Index = 6
Left = 5400
MaxLength = 2
TabIndex = 98
Text = "00"
Top = 2145
Width = 276
End
Begin VB.TextBox Text22
Enabled = 0 'False
Height = 228
Index = 7
Left = 5400
MaxLength = 2
TabIndex = 97
Text = "00"
Top = 2385
Width = 276
End
Begin VB.TextBox Text22
Enabled = 0 'False
Height = 228
Index = 8
Left = 5400
MaxLength = 2
TabIndex = 96
Text = "00"
Top = 2610
Width = 276
End
Begin VB.TextBox Text1
Enabled = 0 'False
Height = 228
Index = 1
Left = 1896
MaxLength = 6
TabIndex = 91
Text = "000000"
Top = 1935
Width = 672
End
Begin VB.TextBox Text1
Enabled = 0 'False
Height = 228
Index = 4
Left = 1896
MaxLength = 6
TabIndex = 90
Text = "000000"
Top = 2610
Width = 672
End
Begin VB.TextBox Text1
Enabled = 0 'False
Height = 228
Index = 3
Left = 1896
MaxLength = 6
TabIndex = 89
Text = "000000"
Top = 2385
Width = 672
End
Begin VB.TextBox Text1
Enabled = 0 'False
Height = 228
Index = 2
Left = 1896
MaxLength = 6
TabIndex = 88
Text = "000000"
Top = 2145
Width = 672
End
Begin VB.TextBox Text22
Enabled = 0 'False
Height = 228
Index = 1
Left = 2664
MaxLength = 2
TabIndex = 87
Text = "00"
Top = 1935
Width = 276
End
Begin VB.TextBox Text22
Enabled = 0 'False
Height = 228
Index = 2
Left = 2664
MaxLength = 2
TabIndex = 86
Text = "00"
Top = 2145
Width = 276
End
Begin VB.TextBox Text22
Enabled = 0 'False
Height = 228
Index = 3
Left = 2664
MaxLength = 2
TabIndex = 85
Text = "00"
Top = 2385
Width = 276
End
Begin VB.TextBox Text22
Enabled = 0 'False
Height = 228
Index = 4
Left = 2664
MaxLength = 2
TabIndex = 84
Text = "00"
Top = 2610
Width = 276
End
Begin VB.CheckBox Check1
BackColor = &H00C0E0FF&
Caption = "01月電量"
Height = 204
Index = 5
Left = 516
TabIndex = 17
Top = 2940
Width = 204
End
Begin VB.CheckBox Check1
BackColor = &H00C0E0FF&
Caption = "當前總電量"
Height = 252
Index = 1
Left = 516
TabIndex = 16
Top = 1920
Width = 195
End
Begin VB.CheckBox Check1
BackColor = &H00C0E0FF&
Caption = "反向累計電量"
Height = 240
Index = 2
Left = 3204
MaskColor = &H00FFC0C0&
TabIndex = 15
Top = 1920
Width = 192
End
Begin VB.CheckBox Check1
BackColor = &H00C0E0FF&
Caption = "上月有功電量"
Height = 204
Index = 3
Left = 5880
MaskColor = &H00FFC0C0&
TabIndex = 14
Top = 1935
Width = 180
End
Begin VB.CheckBox Check1
BackColor = &H00C0E0FF&
Caption = "02月電量"
Height = 180
Index = 6
Left = 3204
MaskColor = &H00FFC0C0&
TabIndex = 13
Top = 2970
Width = 180
End
Begin VB.CheckBox Check1
BackColor = &H00C0E0FF&
Caption = "03月電量"
Height = 180
Index = 7
Left = 5880
TabIndex = 12
Top = 2940
Width = 165
End
Begin VB.CheckBox Check1
BackColor = &H00C0E0FF&
Caption = "04月電量"
Height = 204
Index = 8
Left = 8520
TabIndex = 11
Top = 2940
Width = 180
End
Begin VB.CheckBox Check1
BackColor = &H00C0E0FF&
Caption = "05月電量"
Height = 180
Index = 9
Left = 516
TabIndex = 10
Top = 4005
Width = 210
End
Begin VB.CheckBox Check1
BackColor = &H00C0E0FF&
Caption = "06月電量"
Height = 180
Index = 10
Left = 3204
MaskColor = &H00FFC0C0&
TabIndex = 9
Top = 3960
Width = 168
End
Begin VB.CheckBox Check1
BackColor = &H00C0E0FF&
Caption = "07月電量"
Height = 228
Index = 11
Left = 5880
TabIndex = 8
Top = 3930
Width = 195
End
Begin VB.CheckBox Check1
BackColor = &H00C0E0FF&
Caption = "08月電量"
Height = 228
Index = 12
Left = 8520
TabIndex = 7
Top = 3945
Width = 192
End
Begin VB.CheckBox Check1
BackColor = &H00C0E0FF&
Caption = "09月電量"
Height = 228
Index = 13
Left = 516
TabIndex = 6
Top = 4905
Width = 195
End
Begin VB.CheckBox Check1
BackColor = &H00C0E0FF&
Caption = "11月電量"
Height = 180
Index = 15
Left = 5880
TabIndex = 5
Top = 4905
Width = 165
End
Begin VB.CheckBox Check1
BackColor = &H00C0E0FF&
Caption = "12月電量"
Height = 180
Index = 16
Left = 8520
TabIndex = 4
TabStop = 0 'False
Top = 4935
Width = 180
End
Begin VB.CheckBox Check1
BackColor = &H00C0E0FF&
Caption = "10月電量"
Height = 228
Index = 14
Left = 3204
MaskColor = &H00FFC0C0&
TabIndex = 3
Top = 4905
Width = 168
End
Begin VB.CommandButton send_meter
BackColor = &H00E0E0E0&
Caption = "命令發送"
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 840
Left = 10335
Picture = "Frm_writedata.frx":1261
Style = 1 'Graphical
TabIndex = 2
Top = 375
Width = 924
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 1
Left = 10875
Top = 7080
End
Begin VB.Timer Timer3
Enabled = 0 'False
Interval = 12
Left = 10170
Top = 7110
End
Begin VB.Timer Timer4
Enabled = 0 'False
Interval = 1200
Left = 9540
Top = 7080
End
Begin VB.CheckBox Check1
BackColor = &H00C0E0FF&
Caption = "上上月有功電量"
BeginProperty DataFormat
Type = 1
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFo
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -