📄 iraccepter_6.frm
字号:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form Form_main
AutoRedraw = -1 'True
Caption = "IR Reader V2.0"
ClientHeight = 8190
ClientLeft = 1335
ClientTop = 1665
ClientWidth = 11880
FillColor = &H80000008&
ForeColor = &H80000004&
Icon = "iraccepter_6.frx":0000
LinkTopic = "Form1"
ScaleHeight = 91587
ScaleMode = 0 'User
ScaleWidth = 1.12334e5
WindowState = 2 'Maximized
Begin MSComDlg.CommonDialog CommonDialog
Left = 5520
Top = 3960
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.CheckBox cIgnoreT
Caption = "Ignore Time"
Height = 375
Left = 0
TabIndex = 34
Top = 7440
Width = 855
End
Begin VB.Frame Frame2
Height = 975
Left = 0
TabIndex = 31
Top = 8400
Width = 735
Begin VB.OptionButton optHex
Caption = "HEX"
Height = 375
Left = 0
TabIndex = 33
Top = 240
Value = -1 'True
Width = 735
End
Begin VB.OptionButton optOct
Caption = "OCT"
Height = 375
Left = 0
TabIndex = 32
Top = 600
Width = 735
End
End
Begin VB.TextBox ttTole
Height = 375
Left = 2400
TabIndex = 28
Text = "500"
Top = 9840
Width = 1215
End
Begin VB.TextBox irtype
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000C000&
Height = 615
Left = 960
MultiLine = -1 'True
TabIndex = 27
Top = 7080
Width = 2535
End
Begin VB.TextBox tTole
Height = 375
Left = 2400
TabIndex = 26
Top = 9360
Width = 1215
End
Begin VB.TextBox tHCode
Height = 735
Left = 720
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 24
Top = 8520
Width = 11535
End
Begin VB.TextBox tBcode
Height = 735
Left = 720
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 23
Top = 7800
Width = 14535
End
Begin VB.ListBox ErrRcd
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 1020
Left = 5280
TabIndex = 18
Top = 9240
Width = 6975
End
Begin VB.Frame Frame1
Caption = "Comm Port:"
DragMode = 1 'Automatic
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 855
Left = 12360
TabIndex = 14
Top = 8640
Width = 1935
Begin VB.ComboBox SelCom
Height = 315
ItemData = "iraccepter_6.frx":030A
Left = 240
List = "iraccepter_6.frx":033E
Style = 2 'Dropdown List
TabIndex = 21
Top = 360
Width = 1575
End
End
Begin VB.OptionButton Option3
Caption = "Both"
Height = 255
Left = 1680
TabIndex = 13
Top = 5280
Width = 735
End
Begin VB.CommandButton Command1
Caption = "E&xit"
BeginProperty Font
Name = "@宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 585
Left = 13800
TabIndex = 11
Top = 9600
Width = 975
End
Begin VB.Timer Timer3
Enabled = 0 'False
Interval = 100
Left = 8640
Top = 5880
End
Begin VB.CommandButton Cmdreadd
Caption = ">>"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3120
TabIndex = 8
Top = 6120
Width = 375
End
Begin VB.CommandButton Cmdredec
Caption = "<<"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 840
TabIndex = 7
Top = 6120
Width = 375
End
Begin VB.CommandButton Cmdadd
Caption = ">"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2760
TabIndex = 6
Top = 6120
Width = 375
End
Begin VB.CommandButton Cmddec
Caption = "<"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1200
TabIndex = 5
Top = 6120
Width = 375
End
Begin VB.OptionButton Option2
Caption = "GREEN"
BeginProperty Font
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 255
Left = 1680
TabIndex = 12
Top = 5040
Width = 975
End
Begin VB.OptionButton Option1
Caption = "RED"
BeginProperty Font
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 255
Left = 2760
TabIndex = 4
Top = 5040
Width = 735
End
Begin VB.VScrollBar VScroll1
Height = 375
Left = 2880
Max = 6
TabIndex = 2
Top = 6600
Value = 5
Width = 375
End
Begin VB.Timer Timer2
Interval = 500
Left = 8040
Top = 5880
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 900
Left = 7320
Top = 5880
End
Begin VB.HScrollBar HScroll1
Height = 255
LargeChange = 100
Left = 0
Max = 10000
MousePointer = 1 'Arrow
TabIndex = 1
Top = 4680
Width = 15255
End
Begin VB.PictureBox Picture1
AutoRedraw = -1 'True
BackColor = &H00FFFFFF&
Height = 4935
Left = 0
MousePointer = 1 'Arrow
ScaleHeight = 416.669
ScaleMode = 0 'User
ScaleWidth = 1.38629e6
TabIndex = 0
Top = 0
Width = 15240
Begin VB.Line Line2
BorderColor = &H0000FF00&
X1 = 0
X2 = 0
Y1 = 0
Y2 = 420.515
End
Begin VB.Line Line1
BorderColor = &H000000FF&
DrawMode = 9 'Not Mask Pen
X1 = 0
X2 = 0
Y1 = 0
Y2 = 420.515
End
End
Begin MSCommLib.MSComm MSComm1
Left = 9360
Top = 5640
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = 0 'False
InBufferSize = 1280
RThreshold = 1
BaudRate = 28800
EOFEnable = -1 'True
InputMode = 1
End
Begin MSFlexGridLib.MSFlexGrid TTable
Bindings = "iraccepter_6.frx":03A9
Height = 2895
Left = 3600
TabIndex = 9
Top = 4920
Width = 11535
_ExtentX = 20346
_ExtentY = 5106
_Version = 393216
BackColor = 16777215
WordWrap = -1 'True
End
Begin VB.Image Image1
Appearance = 0 'Flat
Height = 600
Left = 14400
Picture = "iraccepter_6.frx":03B9
Top = 8760
Width = 675
End
Begin VB.Label us
Caption = "us"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3720
TabIndex = 30
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -