开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 电子政务应用 > 查看源码
iraccepter_6.frm
资源名称：ir_reader37.rar　[点击查看]
上传用户：ask_sh
上传日期：2008-08-18
资源大小：550k
文件大小：36k
源码类别：

电子政务应用

开发平台：

Visual Basic

iraccepter_6.frm：源码内容
  1. VERSION 5.00
  2. Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
  3. Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
  4. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  5. Begin VB.Form Form_main 
  6.    AutoRedraw      =   -1  'True
  7.    Caption         =   "IR Reader V2.0"
  8.    ClientHeight    =   8190
  9.    ClientLeft      =   1335
  10.    ClientTop       =   1665
  11.    ClientWidth     =   11880
  12.    FillColor       =   &H80000008&
  13.    ForeColor       =   &H80000004&
  14.    Icon            =   "iraccepter_6.frx":0000
  15.    LinkTopic       =   "Form1"
  16.    ScaleHeight     =   91587
  17.    ScaleMode       =   0  'User
  18.    ScaleWidth      =   1.12334e5
  19.    WindowState     =   2  'Maximized
  20.    Begin MSComDlg.CommonDialog CommonDialog 
  21.       Left            =   5520
  22.       Top             =   3960
  23.       _ExtentX        =   847
  24.       _ExtentY        =   847
  25.       _Version        =   393216
  26.    End
  27.    Begin VB.CheckBox cIgnoreT 
  28.       Caption         =   "Ignore Time"
  29.       Height          =   375
  30.       Left            =   0
  31.       TabIndex        =   34
  32.       Top             =   7440
  33.       Width           =   855
  34.    End
  35.    Begin VB.Frame Frame2 
  36.       Height          =   975
  37.       Left            =   0
  38.       TabIndex        =   31
  39.       Top             =   8400
  40.       Width           =   735
  41.       Begin VB.OptionButton optHex 
  42.          Caption         =   "HEX"
  43.          Height          =   375
  44.          Left            =   0
  45.          TabIndex        =   33
  46.          Top             =   240
  47.          Value           =   -1  'True
  48.          Width           =   735
  49.       End
  50.       Begin VB.OptionButton optOct 
  51.          Caption         =   "OCT"
  52.          Height          =   375
  53.          Left            =   0
  54.          TabIndex        =   32
  55.          Top             =   600
  56.          Width           =   735
  57.       End
  58.    End
  59.    Begin VB.TextBox ttTole 
  60.       Height          =   375
  61.       Left            =   2400
  62.       TabIndex        =   28
  63.       Text            =   "500"
  64.       Top             =   9840
  65.       Width           =   1215
  66.    End
  67.    Begin VB.TextBox irtype 
  68.       Appearance      =   0  'Flat
  69.       BackColor       =   &H00FFFFFF&
  70.       BorderStyle     =   0  'None
  71.       BeginProperty Font 
  72.          Name            =   "MS Sans Serif"
  73.          Size            =   9.75
  74.          Charset         =   0
  75.          Weight          =   700
  76.          Underline       =   0   'False
  77.          Italic          =   0   'False
  78.          Strikethrough   =   0   'False
  79.       EndProperty
  80.       ForeColor       =   &H0000C000&
  81.       Height          =   615
  82.       Left            =   960
  83.       MultiLine       =   -1  'True
  84.       TabIndex        =   27
  85.       Top             =   7080
  86.       Width           =   2535
  87.    End
  88.    Begin VB.TextBox tTole 
  89.       Height          =   375
  90.       Left            =   2400
  91.       TabIndex        =   26
  92.       Top             =   9360
  93.       Width           =   1215
  94.    End
  95.    Begin VB.TextBox tHCode 
  96.       Height          =   735
  97.       Left            =   720
  98.       MultiLine       =   -1  'True
  99.       ScrollBars      =   2  'Vertical
  100.       TabIndex        =   24
  101.       Top             =   8520
  102.       Width           =   11535
  103.    End
  104.    Begin VB.TextBox tBcode 
  105.       Height          =   735
  106.       Left            =   720
  107.       MultiLine       =   -1  'True
  108.       ScrollBars      =   2  'Vertical
  109.       TabIndex        =   23
  110.       Top             =   7800
  111.       Width           =   14535
  112.    End
  113.    Begin VB.ListBox ErrRcd 
  114.       BeginProperty Font 
  115.          Name            =   "MS Sans Serif"
  116.          Size            =   9.75
  117.          Charset         =   0
  118.          Weight          =   700
  119.          Underline       =   0   'False
  120.          Italic          =   0   'False
  121.          Strikethrough   =   0   'False
  122.       EndProperty
  123.       ForeColor       =   &H000000FF&
  124.       Height          =   1020
  125.       Left            =   5280
  126.       TabIndex        =   18
  127.       Top             =   9240
  128.       Width           =   6975
  129.    End
  130.    Begin VB.Frame Frame1 
  131.       Caption         =   "Comm Port:"
  132.       DragMode        =   1  'Automatic
  133.       BeginProperty Font 
  134.          Name            =   "MS Sans Serif"
  135.          Size            =   12
  136.          Charset         =   0
  137.          Weight          =   400
  138.          Underline       =   0   'False
  139.          Italic          =   0   'False
  140.          Strikethrough   =   0   'False
  141.       EndProperty
  142.       Height          =   855
  143.       Left            =   12360
  144.       TabIndex        =   14
  145.       Top             =   8640
  146.       Width           =   1935
  147.       Begin VB.ComboBox SelCom 
  148.          Height          =   315
  149.          ItemData        =   "iraccepter_6.frx":030A
  150.          Left            =   240
  151.          List            =   "iraccepter_6.frx":033E
  152.          Style           =   2  'Dropdown List
  153.          TabIndex        =   21
  154.          Top             =   360
  155.          Width           =   1575
  156.       End
  157.    End
  158.    Begin VB.OptionButton Option3 
  159.       Caption         =   "Both"
  160.       Height          =   255
  161.       Left            =   1680
  162.       TabIndex        =   13
  163.       Top             =   5280
  164.       Width           =   735
  165.    End
  166.    Begin VB.CommandButton Command1 
  167.       Caption         =   "E&xit"
  168.       BeginProperty Font 
  169.          Name            =   "@宋体"
  170.          Size            =   14.25
  171.          Charset         =   134
  172.          Weight          =   700
  173.          Underline       =   0   'False
  174.          Italic          =   0   'False
  175.          Strikethrough   =   0   'False
  176.       EndProperty
  177.       Height          =   585
  178.       Left            =   13800
  179.       TabIndex        =   11
  180.       Top             =   9600
  181.       Width           =   975
  182.    End
  183.    Begin VB.Timer Timer3 
  184.       Enabled         =   0   'False
  185.       Interval        =   100
  186.       Left            =   8640
  187.       Top             =   5880
  188.    End
  189.    Begin VB.CommandButton Cmdreadd 
  190.       Caption         =   ">>"
  191.       BeginProperty Font 
  192.          Name            =   "宋体"
  193.          Size            =   9.75
  194.          Charset         =   134
  195.          Weight          =   400
  196.          Underline       =   0   'False
  197.          Italic          =   0   'False
  198.          Strikethrough   =   0   'False
  199.       EndProperty
  200.       Height          =   375
  201.       Left            =   3120
  202.       TabIndex        =   8
  203.       Top             =   6120
  204.       Width           =   375
  205.    End
  206.    Begin VB.CommandButton Cmdredec 
  207.       Caption         =   "<<"
  208.       BeginProperty Font 
  209.          Name            =   "宋体"
  210.          Size            =   9.75
  211.          Charset         =   134
  212.          Weight          =   400
  213.          Underline       =   0   'False
  214.          Italic          =   0   'False
  215.          Strikethrough   =   0   'False
  216.       EndProperty
  217.       Height          =   375
  218.       Left            =   840
  219.       TabIndex        =   7
  220.       Top             =   6120
  221.       Width           =   375
  222.    End
  223.    Begin VB.CommandButton Cmdadd 
  224.       Caption         =   ">"
  225.       BeginProperty Font 
  226.          Name            =   "宋体"
  227.          Size            =   11.25
  228.          Charset         =   134
  229.          Weight          =   700
  230.          Underline       =   0   'False
  231.          Italic          =   0   'False
  232.          Strikethrough   =   0   'False
  233.       EndProperty
  234.       Height          =   375
  235.       Left            =   2760
  236.       TabIndex        =   6
  237.       Top             =   6120
  238.       Width           =   375
  239.    End
  240.    Begin VB.CommandButton Cmddec 
  241.       Caption         =   "<"
  242.       BeginProperty Font 
  243.          Name            =   "宋体"
  244.          Size            =   11.25
  245.          Charset         =   134
  246.          Weight          =   700
  247.          Underline       =   0   'False
  248.          Italic          =   0   'False
  249.          Strikethrough   =   0   'False
  250.       EndProperty
  251.       Height          =   375
  252.       Left            =   1200
  253.       TabIndex        =   5
  254.       Top             =   6120
  255.       Width           =   375
  256.    End
  257.    Begin VB.OptionButton Option2 
  258.       Caption         =   "GREEN"
  259.       BeginProperty Font 
  260.          Name            =   "Times New Roman"
  261.          Size            =   9
  262.          Charset         =   0
  263.          Weight          =   400
  264.          Underline       =   0   'False
  265.          Italic          =   0   'False
  266.          Strikethrough   =   0   'False
  267.       EndProperty
  268.       ForeColor       =   &H0000FF00&
  269.       Height          =   255
  270.       Left            =   1680
  271.       TabIndex        =   12
  272.       Top             =   5040
  273.       Width           =   975
  274.    End
  275.    Begin VB.OptionButton Option1 
  276.       Caption         =   "RED"
  277.       BeginProperty Font 
  278.          Name            =   "Times New Roman"
  279.          Size            =   9
  280.          Charset         =   0
  281.          Weight          =   400
  282.          Underline       =   0   'False
  283.          Italic          =   0   'False
  284.          Strikethrough   =   0   'False
  285.       EndProperty
  286.       ForeColor       =   &H000000FF&
  287.       Height          =   255
  288.       Left            =   2760
  289.       TabIndex        =   4
  290.       Top             =   5040
  291.       Width           =   735
  292.    End
  293.    Begin VB.VScrollBar VScroll1 
  294.       Height          =   375
  295.       Left            =   2880
  296.       Max             =   6
  297.       TabIndex        =   2
  298.       Top             =   6600
  299.       Value           =   5
  300.       Width           =   375
  301.    End
  302.    Begin VB.Timer Timer2 
  303.       Interval        =   500
  304.       Left            =   8040
  305.       Top             =   5880
  306.    End
  307.    Begin VB.Timer Timer1 
  308.       Enabled         =   0   'False
  309.       Interval        =   900
  310.       Left            =   7320
  311.       Top             =   5880
  312.    End
  313.    Begin VB.HScrollBar HScroll1 
  314.       Height          =   255
  315.       LargeChange     =   100
  316.       Left            =   0
  317.       Max             =   10000
  318.       MousePointer    =   1  'Arrow
  319.       TabIndex        =   1
  320.       Top             =   4680
  321.       Width           =   15255
  322.    End
  323.    Begin VB.PictureBox Picture1 
  324.       AutoRedraw      =   -1  'True
  325.       BackColor       =   &H00FFFFFF&
  326.       Height          =   4935
  327.       Left            =   0
  328.       MousePointer    =   1  'Arrow
  329.       ScaleHeight     =   416.669
  330.       ScaleMode       =   0  'User
  331.       ScaleWidth      =   1.38629e6
  332.       TabIndex        =   0
  333.       Top             =   0
  334.       Width           =   15240
  335.       Begin VB.Line Line2 
  336.          BorderColor     =   &H0000FF00&
  337.          X1              =   0
  338.          X2              =   0
  339.          Y1              =   0
  340.          Y2              =   420.515
  341.       End
  342.       Begin VB.Line Line1 
  343.          BorderColor     =   &H000000FF&
  344.          DrawMode        =   9  'Not Mask Pen
  345.          X1              =   0
  346.          X2              =   0
  347.          Y1              =   0
  348.          Y2              =   420.515
  349.       End
  350.    End
  351.    Begin MSCommLib.MSComm MSComm1 
  352.       Left            =   9360
  353.       Top             =   5640
  354.       _ExtentX        =   1005
  355.       _ExtentY        =   1005
  356.       _Version        =   393216
  357.       DTREnable       =   0   'False
  358.       InBufferSize    =   1280
  359.       RThreshold      =   1
  360.       BaudRate        =   28800
  361.       EOFEnable       =   -1  'True
  362.       InputMode       =   1
  363.    End
  364.    Begin MSFlexGridLib.MSFlexGrid TTable 
  365.       Bindings        =   "iraccepter_6.frx":03A9
  366.       Height          =   2895
  367.       Left            =   3600
  368.       TabIndex        =   9
  369.       Top             =   4920
  370.       Width           =   11535
  371.       _ExtentX        =   20346
  372.       _ExtentY        =   5106
  373.       _Version        =   393216
  374.       BackColor       =   16777215
  375.       WordWrap        =   -1  'True
  376.    End
  377.    Begin VB.Image Image1 
  378.       Appearance      =   0  'Flat
  379.       Height          =   600
  380.       Left            =   14400
  381.       Picture         =   "iraccepter_6.frx":03B9
  382.       Top             =   8760
  383.       Width           =   675
  384.    End
  385.    Begin VB.Label us 
  386.       Caption         =   "us"
  387.       BeginProperty Font 
  388.          Name            =   "MS Sans Serif"
  389.          Size            =   12
  390.          Charset         =   0
  391.          Weight          =   700
  392.          Underline       =   0   'False
  393.          Italic          =   0   'False
  394.          Strikethrough   =   0   'False
  395.       EndProperty
  396.       Height          =   375
  397.       Left            =   3720
  398.       TabIndex        =   30
  399.       Top             =   9840
  400.       Width           =   495
  401.    End
  402.    Begin VB.Label Label7 
  403.       AutoSize        =   -1  'True
  404.       Caption         =   "Cycle tolerance:"
  405.       BeginProperty Font 
  406.          Name            =   "MS Sans Serif"
  407.          Size            =   12
  408.          Charset         =   0
  409.          Weight          =   700
  410.          Underline       =   0   'False
  411.          Italic          =   0   'False
  412.          Strikethrough   =   0   'False
  413.       EndProperty
  414.       Height          =   300
  415.       Left            =   360
  416.       TabIndex        =   29
  417.       Top             =   9840
  418.       Width           =   1920
  419.    End
  420.    Begin VB.Label Label1 
  421.       AutoSize        =   -1  'True
  422.       Caption         =   "0,1Time tolerance:"
  423.       BeginProperty Font 
  424.          Name            =   "MS Sans Serif"
  425.          Size            =   12
  426.          Charset         =   0
  427.          Weight          =   700
  428.          Underline       =   0   'False
  429.          Italic          =   0   'False
  430.          Strikethrough   =   0   'False
  431.       EndProperty
  432.       Height          =   300
  433.       Left            =   120
  434.       TabIndex        =   25
  435.       Top             =   9360
  436.       Width           =   2220
  437.    End
  438.    Begin VB.Label Label6 
  439.       Caption         =   "Bin:"
  440.       BeginProperty Font 
  441.          Name            =   "MS Sans Serif"
  442.          Size            =   9.75
  443.          Charset         =   0
  444.          Weight          =   700
  445.          Underline       =   0   'False
  446.          Italic          =   0   'False
  447.          Strikethrough   =   0   'False
  448.       EndProperty
  449.       Height          =   375
  450.       Left            =   120
  451.       TabIndex        =   22
  452.       Top             =   7920
  453.       Width           =   375
  454.    End
  455.    Begin VB.Label lbl 
  456.       AutoSize        =   -1  'True
  457.       Caption         =   "IR type:"
  458.       BeginProperty Font 
  459.          Name            =   "MS Sans Serif"
  460.          Size            =   12
  461.          Charset         =   0
  462.          Weight          =   700
  463.          Underline       =   0   'False
  464.          Italic          =   0   'False
  465.          Strikethrough   =   0   'False
  466.       EndProperty
  467.       Height          =   300
  468.       Left            =   0
  469.       TabIndex        =   20
  470.       Top             =   7080
  471.       Width           =   945
  472.    End
  473.    Begin VB.Label Label5 
  474.       Caption         =   "Select single time line or double time lines:"
  475.       BeginProperty Font 
  476.          Name            =   "MS Sans Serif"
  477.          Size            =   9.75
  478.          Charset         =   0
  479.          Weight          =   700
  480.          Underline       =   0   'False
  481.          Italic          =   0   'False
  482.          Strikethrough   =   0   'False
  483.       EndProperty
  484.       Height          =   495
  485.       Left            =   120
  486.       TabIndex        =   19
  487.       Top             =   5040
  488.       Width           =   1455
  489.    End
  490.    Begin VB.Label Label4 
  491.       Caption         =   "UnNormal Record:"
  492.       BeginProperty Font 
  493.          Name            =   "MS Sans Serif"
  494.          Size            =   12
  495.          Charset         =   0
  496.          Weight          =   700
  497.          Underline       =   0   'False
  498.          Italic          =   0   'False
  499.          Strikethrough   =   0   'False
  500.       EndProperty
  501.       Height          =   615
  502.       Left            =   3960
  503.       TabIndex        =   17
  504.       Top             =   9240
  505.       Width           =   1335
  506.    End
  507.    Begin VB.Label Label3 
  508.       Caption         =   "Display receive bits or the time interval of two time line: "
  509.       BeginProperty Font 
  510.          Name            =   "MS Sans Serif"
  511.          Size            =   9.75
  512.          Charset         =   0
  513.          Weight          =   700
  514.          Underline       =   0   'False
  515.          Italic          =   0   'False
  516.          Strikethrough   =   0   'False
  517.       EndProperty
  518.       Height          =   495
  519.       Left            =   120
  520.       TabIndex        =   16
  521.       Top             =   5640
  522.       Width           =   3255
  523.    End
  524.    Begin VB.Label Label2 
  525.       Caption         =   "IR wave zoom out multiple:"
  526.       BeginProperty Font 
  527.          Name            =   "MS Sans Serif"
  528.          Size            =   9.75
  529.          Charset         =   0
  530.          Weight          =   700
  531.          Underline       =   0   'False
  532.          Italic          =   0   'False
  533.          Strikethrough   =   0   'False
  534.       EndProperty
  535.       Height          =   495
  536.       Left            =   120
  537.       TabIndex        =   15
  538.       Top             =   6480
  539.       Width           =   1575
  540.    End
  541.    Begin VB.Label Lblzoom 
  542.       BackColor       =   &H00FFFFFF&
  543.       BorderStyle     =   1  'Fixed Single
  544.       Caption         =   " "
  545.       BeginProperty Font 
  546.          Name            =   "宋体"
  547.          Size            =   14.25
  548.          Charset         =   134
  549.          Weight          =   400
  550.          Underline       =   0   'False
  551.          Italic          =   0   'False
  552.          Strikethrough   =   0   'False
  553.       EndProperty
  554.       ForeColor       =   &H00FF0000&
  555.       Height          =   375
  556.       Left            =   1800
  557.       TabIndex        =   10
  558.       Top             =   6600
  559.       Width           =   975
  560.    End
  561.    Begin VB.Label LblRGtime 
  562.       BackColor       =   &H00FFFFFF&
  563.       BorderStyle     =   1  'Fixed Single
  564.       Height          =   375
  565.       Left            =   1560
  566.       TabIndex        =   3
  567.       Top             =   6120
  568.       Width           =   1215
  569.    End
  570.    Begin VB.Menu mnuirmenu 
  571.       Caption         =   "&IRMenu"
  572.       Begin VB.Menu mumconnect 
  573.          Caption         =   "Dis&Connect"
  574.       End
  575.       Begin VB.Menu mnuErrMes 
  576.          Caption         =   "&View Error Message"
  577.          Shortcut        =   {F3}
  578.       End
  579.       Begin VB.Menu mnuviewcode 
  580.          Caption         =   "&Record code and Set tolerance"
  581.          Shortcut        =   {F4}
  582.       End
  583.       Begin VB.Menu mnusettime 
  584.          Caption         =   "Standard &Time Parameter"
  585.          Shortcut        =   {F5}
  586.       End
  587.       Begin VB.Menu mnuAddFmt 
  588.          Caption         =   "&Add Or Modify Format"
  589.          Shortcut        =   ^A
  590.       End
  591.       Begin VB.Menu mnuVCode 
  592.          Caption         =   "&View zoom IR Code"
  593.          Shortcut        =   ^D
  594.       End
  595.       Begin VB.Menu SP 
  596.          Caption         =   "-"
  597.       End
  598.       Begin VB.Menu mnu3per 
  599.          Caption         =   "Time tolerance &3%"
  600.          Shortcut        =   ^{F1}
  601.       End
  602.       Begin VB.Menu mnu5Per 
  603.          Caption         =   "Time tolerance &5%"
  604.          Shortcut        =   ^{F2}
  605.       End
  606.       Begin VB.Menu mnu8per 
  607.          Caption         =   "Time tolerance &8%"
  608.          Shortcut        =   ^{F3}
  609.       End
  610.       Begin VB.Menu mnuAuto 
  611.          Caption         =   "Auto select Format"
  612.          Shortcut        =   ^{F4}
  613.       End
  614.       Begin VB.Menu mnuCmp 
  615.          Caption         =   "Compare Sample RCU Code"
  616.          Shortcut        =   ^{F5}
  617.       End
  618.       Begin VB.Menu a 
  619.          Caption         =   "-"
  620.       End
  621.       Begin VB.Menu mnuclose 
  622.          Caption         =   "E&xit"
  623.          Shortcut        =   ^X
  624.       End
  625.    End
  626.    Begin VB.Menu mnuForm1 
  627.       Caption         =   "Form0&01~020"
  628.       Begin VB.Menu mnuform001 
  629.          Caption         =   "Form001(&AIWA*SANYO)"
  630.       End
  631.       Begin VB.Menu mnuform002 
  632.          Caption         =   "Form002(ECHOSTAR)"
  633.       End
  634.       Begin VB.Menu mnuform003 
  635.          Caption         =   "Form003"
  636.       End
  637.       Begin VB.Menu mnuform004 
  638.          Caption         =   "Form004"
  639.       End
  640.       Begin VB.Menu mnuform005 
  641.          Caption         =   "Form005(FERGUSON)"
  642.       End
  643.       Begin VB.Menu mnuform006 
  644.          Caption         =   "Form006(&FERGUSON2)"
  645.       End
  646.       Begin VB.Menu mnuform007 
  647.          Caption         =   "Form007(GRADIENTE)"
  648.       End
  649.       Begin VB.Menu mnuform008 
  650.          Caption         =   "Form008(&GRUNDIG)"
  651.       End
  652.       Begin VB.Menu mnuform009 
  653.          Caption         =   "Form009"
  654.       End
  655.       Begin VB.Menu mnuform010 
  656.          Caption         =   "Form010(&ITT)"
  657.       End
  658.       Begin VB.Menu se 
  659.          Caption         =   "-"
  660.       End
  661.       Begin VB.Menu mnuform011 
  662.          Caption         =   "Form011(Jvc)"
  663.          Shortcut        =   {F11}
  664.       End
  665.       Begin VB.Menu mnuform012 
  666.          Caption         =   "Form012(Panasonic 48bit/KASEIKYO)"
  667.       End
  668.       Begin VB.Menu mnuform013 
  669.          Caption         =   "Form013(MITSUBISHI)"
  670.       End
  671.       Begin VB.Menu mnuform014 
  672.          Caption         =   "Form014(&MITSUBISHI2)"
  673.       End
  674.       Begin VB.Menu mnuform015 
  675.          Caption         =   "Form015"
  676.       End
  677.       Begin VB.Menu mnuform016 
  678.          Caption         =   "Form016(NEC N-8)"
  679.          Shortcut        =   {F6}
  680.       End
  681.       Begin VB.Menu mnuform017 
  682.          Caption         =   "Form017(NEC-&R)"
  683.       End
  684.       Begin VB.Menu mnuform018 
  685.          Caption         =   "Form018"
  686.       End
  687.       Begin VB.Menu mnuform019 
  688.          Caption         =   "Form019(NOKIA)"
  689.       End
  690.       Begin VB.Menu mnuform020 
  691.          Caption         =   "Form020(PA&NA5-6(1))"
  692.       End
  693.    End
  694.    Begin VB.Menu mnuform3 
  695.       Caption         =   "Form021~040"
  696.       Begin VB.Menu mnuform021 
  697.          Caption         =   "Form021(&PANA5-6(2))"
  698.       End
  699.       Begin VB.Menu mnuform022 
  700.          Caption         =   "Form022(PANA5-6)"
  701.       End
  702.       Begin VB.Menu mnuform023 
  703.          Caption         =   "Form023(PA&CE)"
  704.       End
  705.       Begin VB.Menu mnuform024 
  706.          Caption         =   "Form024(PEONY)"
  707.       End
  708.       Begin VB.Menu mnuform025 
  709.          Caption         =   "Form025(PHI&LIPS2)"
  710.       End
  711.       Begin VB.Menu mnuform026 
  712.          Caption         =   "Form026(&PHILIPS3)"
  713.       End
  714.       Begin VB.Menu mnuform027 
  715.          Caption         =   "Form027"
  716.       End
  717.       Begin VB.Menu mnuform028 
  718.          Caption         =   "Form028(PRIMESTAR)"
  719.       End
  720.       Begin VB.Menu mnuform029 
  721.          Caption         =   "Form029"
  722.       End
  723.       Begin VB.Menu mnuform030 
  724.          Caption         =   "Form030(&RC-5)"
  725.          Shortcut        =   {F2}
  726.       End
  727.       Begin VB.Menu sp3 
  728.          Caption         =   "-"
  729.       End
  730.       Begin VB.Menu mnuform031 
  731.          Caption         =   "Form031(RC-5 &Extension)"
  732.          Shortcut        =   ^{F11}
  733.       End
  734.       Begin VB.Menu mnuform032 
  735.          Caption         =   "Form032(R&CA)"
  736.       End
  737.       Begin VB.Menu mnuform033 
  738.          Caption         =   "Form033(&Sharp)"
  739.       End
  740.       Begin VB.Menu mnuform034 
  741.          Caption         =   "Form034(Sony 7-5)"
  742.          Shortcut        =   {F9}
  743.       End
  744.       Begin VB.Menu mnuform035 
  745.          Caption         =   "Form035(Sony 7-13)"
  746.          Shortcut        =   {F7}
  747.       End
  748.       Begin VB.Menu mnuform036 
  749.          Caption         =   "Form036"
  750.       End
  751.       Begin VB.Menu mnuform037 
  752.          Caption         =   "Form037(&TELEFUNKEN2)"
  753.       End
  754.       Begin VB.Menu mnuform038 
  755.          Caption         =   "Form038(T&ELEFUNKEN3)"
  756.       End
  757.       Begin VB.Menu mnuform039 
  758.          Caption         =   "Form039(T&HOMSON)"
  759.       End
  760.       Begin VB.Menu mnuform040 
  761.          Caption         =   "Form040"
  762.       End
  763.    End
  764.    Begin VB.Menu mnuform5 
  765.       Caption         =   "Form0&41~060"
  766.       Begin VB.Menu mnuform041 
  767.          Caption         =   "Form041(&TOSHIBA)"
  768.       End
  769.       Begin VB.Menu mnuform042 
  770.          Caption         =   "Form042(&ZENITH)"
  771.       End
  772.       Begin VB.Menu mnuForm043 
  773.          Caption         =   "Form043(&NEC N-16)"
  774.          Shortcut        =   {F12}
  775.       End
  776.       Begin VB.Menu mnuForm044 
  777.          Caption         =   "Form044(&Bose 16)"
  778.       End
  779.       Begin VB.Menu mnuForm045 
  780.          Caption         =   "Form045(B&ose 32)"
  781.       End
  782.       Begin VB.Menu mnuForm046 
  783.          Caption         =   "Form046(&RC-6(Mic))"
  784.       End
  785.       Begin VB.Menu mnuForm047 
  786.          Caption         =   "Form047(RC-6(&Marntz))"
  787.       End
  788.       Begin VB.Menu mnuForm048 
  789.          Caption         =   "Form048(&Denon)"
  790.       End
  791.       Begin VB.Menu mnuForm049 
  792.          Caption         =   "Form049(&Silan)"
  793.       End
  794.       Begin VB.Menu mnuForm050 
  795.          Caption         =   "Form050"
  796.       End
  797.       Begin VB.Menu sp4 
  798.          Caption         =   "-"
  799.       End
  800.       Begin VB.Menu mnuForm051 
  801.          Caption         =   "Form051"
  802.       End
  803.       Begin VB.Menu mnuForm052 
  804.          Caption         =   "Form052(SAMSUNG Similar form041)"
  805.       End
  806.       Begin VB.Menu mnuForm053 
  807.          Caption         =   "Form053"
  808.       End
  809.       Begin VB.Menu mnuForm054 
  810.          Caption         =   "Form054"
  811.       End
  812.       Begin VB.Menu mnuForm055 
  813.          Caption         =   "Form055"
  814.       End
  815.       Begin VB.Menu mnuForm056 
  816.          Caption         =   "Form056"
  817.       End
  818.       Begin VB.Menu mnuForm057 
  819.          Caption         =   "Form057(&DELONGHI)"
  820.       End
  821.       Begin VB.Menu mnuForm058 
  822.          Caption         =   "Form058(&THOMSON R 2000)"
  823.       End
  824.       Begin VB.Menu mnuForm059 
  825.          Caption         =   "Form059(&GRUNDIG RCS16)"
  826.       End
  827.       Begin VB.Menu mnuForm060 
  828.          Caption         =   "Form060(&KENWOOD)"
  829.       End
  830.    End
  831.    Begin VB.Menu o61 
  832.       Caption         =   "Form0&61-080"
  833.       Begin VB.Menu mnuForm061 
  834.          Caption         =   "Form061(&Similar Form032)"
  835.       End
  836.       Begin VB.Menu mnuForm062 
  837.          Caption         =   "Form062(S&imilar Form033)"
  838.       End
  839.       Begin VB.Menu mnuForm063 
  840.          Caption         =   "Form063(&Pansonic air-condition)"
  841.       End
  842.       Begin VB.Menu mnuForm064 
  843.          Caption         =   "Form064(&Daikin air-condition)"
  844.       End
  845.       Begin VB.Menu mnuForm065 
  846.          Caption         =   "Form065(So&ny 7-8)"
  847.          Shortcut        =   {F8}
  848.       End
  849.       Begin VB.Menu mnuForm066 
  850.          Caption         =   "Form066(CG Checksum)"
  851.       End
  852.       Begin VB.Menu mnuForm067 
  853.          Caption         =   "Form067"
  854.       End
  855.       Begin VB.Menu mnuForm068 
  856.          Caption         =   "Form068"
  857.       End
  858.       Begin VB.Menu mnuForm069 
  859.          Caption         =   "Form069"
  860.       End
  861.       Begin VB.Menu mnuForm070 
  862.          Caption         =   "Form070"
  863.       End
  864.       Begin VB.Menu sp5 
  865.          Caption         =   "-"
  866.       End
  867.       Begin VB.Menu mnuForm071 
  868.          Caption         =   "Form071"
  869.       End
  870.       Begin VB.Menu mnuForm072 
  871.          Caption         =   "Form072"
  872.       End
  873.       Begin VB.Menu mnuForm073 
  874.          Caption         =   "Form073"
  875.       End
  876.       Begin VB.Menu mnuForm074 
  877.          Caption         =   "Form074"
  878.       End
  879.       Begin VB.Menu mnuForm075 
  880.          Caption         =   "Form075"
  881.       End
  882.       Begin VB.Menu mnuForm076 
  883.          Caption         =   "Form076"
  884.       End
  885.       Begin VB.Menu mnuForm077 
  886.          Caption         =   "Form077"
  887.       End
  888.       Begin VB.Menu mnuForm078 
  889.          Caption         =   "Form078"
  890.       End
  891.       Begin VB.Menu mnuForm079 
  892.          Caption         =   "Form079"
  893.       End
  894.       Begin VB.Menu mnuForm080 
  895.          Caption         =   "Form080"
  896.       End
  897.    End
  898.    Begin VB.Menu o98 
  899.       Caption         =   "Form81~100"
  900.       Begin VB.Menu mnuForm081 
  901.          Caption         =   "Form081"
  902.       End
  903.       Begin VB.Menu mnuForm082 
  904.          Caption         =   "Form082"
  905.       End
  906.       Begin VB.Menu mnuForm083 
  907.          Caption         =   "Form083"
  908.       End
  909.       Begin VB.Menu mnuForm084 
  910.          Caption         =   "Form084"
  911.       End
  912.       Begin VB.Menu mnuForm085 
  913.          Caption         =   "Form085"
  914.       End
  915.       Begin VB.Menu mnuForm086 
  916.          Caption         =   "Form086"
  917.       End
  918.       Begin VB.Menu mnuForm087 
  919.          Caption         =   "Form087"
  920.       End
  921.       Begin VB.Menu mnuForm088 
  922.          Caption         =   "Form088"
  923.       End
  924.       Begin VB.Menu mnuForm089 
  925.          Caption         =   "Form089"
  926.       End
  927.       Begin VB.Menu mnuForm090 
  928.          Caption         =   "Form090"
  929.       End
  930.       Begin VB.Menu SP8 
  931.          Caption         =   "-"
  932.       End
  933.       Begin VB.Menu mnuForm091 
  934.          Caption         =   "Form091"
  935.       End
  936.       Begin VB.Menu mnuForm092 
  937.          Caption         =   "Form092"
  938.       End
  939.       Begin VB.Menu mnuForm093 
  940.          Caption         =   "Form093"
  941.       End
  942.       Begin VB.Menu mnuForm094 
  943.          Caption         =   "Form094"
  944.       End
  945.       Begin VB.Menu mnuForm095 
  946.          Caption         =   "Form095"
  947.       End
  948.       Begin VB.Menu mnuForm096 
  949.          Caption         =   "Form096"
  950.       End
  951.       Begin VB.Menu mnuForm097 
  952.          Caption         =   "Form097"
  953.       End
  954.       Begin VB.Menu mnuForm098 
  955.          Caption         =   "Form098"
  956.       End
  957.       Begin VB.Menu mnuForm099 
  958.          Caption         =   "Form099"
  959.       End
  960.       Begin VB.Menu mnuForm100 
  961.          Caption         =   "Form100(TYPE2&2)"
  962.       End
  963.    End
  964.    Begin VB.Menu orm100 
  965.       Caption         =   "Form&101~120"
  966.       Begin VB.Menu mnuForm101 
  967.          Caption         =   "Form101(TYPE0&7)"
  968.       End
  969.       Begin VB.Menu mnuForm102 
  970.          Caption         =   "Form102(TYPE0&8)"
  971.       End
  972.       Begin VB.Menu mnuForm103 
  973.          Caption         =   "Form103(TYPE1&4)"
  974.       End
  975.       Begin VB.Menu mnuForm104 
  976.          Caption         =   "Form104(TYPE1&5)"
  977.       End
  978.       Begin VB.Menu mnuForm105 
  979.          Caption         =   "Form105(TYPE1&6)"
  980.       End
  981.       Begin VB.Menu mnuForm106 
  982.          Caption         =   "Form106(TYPE1&7)"
  983.       End
  984.       Begin VB.Menu mnuForm107 
  985.          Caption         =   "Form107(TYPE1&8)"
  986.       End
  987.       Begin VB.Menu mnuForm108 
  988.          Caption         =   "Form108(TYPE1&9)"
  989.       End
  990.       Begin VB.Menu mnuForm109 
  991.          Caption         =   "Form109(TYPE2&0)"
  992.       End
  993.       Begin VB.Menu mnuForm110 
  994.          Caption         =   "Form110(TYPE22)"
  995.       End
  996.       Begin VB.Menu sp6 
  997.          Caption         =   "-"
  998.       End
  999.       Begin VB.Menu mnuForm111 
  1000.          Caption         =   "Form111(TYPE23)"
  1001.       End
  1002.       Begin VB.Menu mnuForm112 
  1003.          Caption         =   "Form112(T&YPE27)"
  1004.       End
  1005.       Begin VB.Menu mnuForm113 
  1006.          Caption         =   "Form113(TYPE29)"
  1007.       End
  1008.       Begin VB.Menu mnuForm114 
  1009.          Caption         =   "Form114(TYPE34)"
  1010.       End
  1011.       Begin VB.Menu mnuForm115 
  1012.          Caption         =   "Form115(TYPE35)"
  1013.       End
  1014.       Begin VB.Menu mnuForm116 
  1015.          Caption         =   "Form116(TY&PE37)"
  1016.       End
  1017.       Begin VB.Menu mnuForm117 
  1018.          Caption         =   "Form117(TYPE38)"
  1019.       End
  1020.       Begin VB.Menu mnuForm118 
  1021.          Caption         =   "Form118(TYPE41)"
  1022.       End
  1023.       Begin VB.Menu mnuForm119 
  1024.          Caption         =   "Form119(TYPE56)"
  1025.       End
  1026.       Begin VB.Menu mnuForm120 
  1027.          Caption         =   "Form120(TYP&E83)"
  1028.       End
  1029.    End
  1030.    Begin VB.Menu o121 
  1031.       Caption         =   "&Form121~140"
  1032.       Begin VB.Menu mnuForm121 
  1033.          Caption         =   "Form121"
  1034.       End
  1035.       Begin VB.Menu mnuForm122 
  1036.          Caption         =   "Form122(&TYPE153)"
  1037.       End
  1038.       Begin VB.Menu mnuForm123 
  1039.          Caption         =   "Form123"
  1040.       End
  1041.       Begin VB.Menu mnuForm124 
  1042.          Caption         =   "Form124"
  1043.       End
  1044.       Begin VB.Menu mnuForm125 
  1045.          Caption         =   "Form125"
  1046.       End
  1047.       Begin VB.Menu mnuForm126 
  1048.          Caption         =   "Form126"
  1049.       End
  1050.       Begin VB.Menu mnuForm127 
  1051.          Caption         =   "Form127(Reverse RC-6)"
  1052.       End
  1053.       Begin VB.Menu mnuForm128 
  1054.          Caption         =   "Form128(Similar Form009)"
  1055.       End
  1056.       Begin VB.Menu mnuForm129 
  1057.          Caption         =   "Form129(NEC 24 bits)"
  1058.       End
  1059.       Begin VB.Menu mnuForm130 
  1060.          Caption         =   "Form130(SE 30 bits)"
  1061.       End
  1062.       Begin VB.Menu oi 
  1063.          Caption         =   "-"
  1064.       End
  1065.       Begin VB.Menu mnuForm131 
  1066.          Caption         =   "Form131(Similar Form042)"
  1067.       End
  1068.       Begin VB.Menu mnuForm132 
  1069.          Caption         =   "Form132(JVC AEHA; Similar Form012)"
  1070.       End
  1071.       Begin VB.Menu mnuForm133 
  1072.          Caption         =   "Form133(8-8 IB)"
  1073.       End
  1074.       Begin VB.Menu mnuForm134 
  1075.          Caption         =   "Form134(8-8 E)"
  1076.       End
  1077.       Begin VB.Menu mnuForm135 
  1078.          Caption         =   "Form135(ZENITH A 0-5F)"
  1079.       End
  1080.       Begin VB.Menu mnuForm136 
  1081.          Caption         =   "Form136(Gru B 8-8FC2)"
  1082.       End
  1083.       Begin VB.Menu mnuForm137 
  1084.          Caption         =   "Form137(Nokia 16-8F)"
  1085.       End
  1086.       Begin VB.Menu mnuForm138 
  1087.          Caption         =   "Form138(Nokia 24-8F)"
  1088.       End
  1089.       Begin VB.Menu mnuForm139 
  1090.          Caption         =   "Form139"
  1091.       End
  1092.       Begin VB.Menu mnuForm140 
  1093.          Caption         =   "Form140(Similar Form138 I)"
  1094.       End
  1095.    End
  1096.    Begin VB.Menu mnuF 
  1097.       Caption         =   "Form141~160"
  1098.       Begin VB.Menu mnuForm141 
  1099.          Caption         =   "Form141(Similar Form138 II)"
  1100.       End
  1101.       Begin VB.Menu mnuForm142 
  1102.          Caption         =   "Form142(NEC DNA)"
  1103.       End
  1104.       Begin VB.Menu mnuForm143 
  1105.          Caption         =   "Form143(SANYO SAC)"
  1106.       End
  1107.       Begin VB.Menu mnuForm144 
  1108.          Caption         =   "Form144(JVC AEHA FORMAT)"
  1109.       End
  1110.       Begin VB.Menu mnuForm145 
  1111.          Caption         =   "Form145"
  1112.       End
  1113.       Begin VB.Menu mnuForm146 
  1114.          Caption         =   "Form146"
  1115.       End
  1116.       Begin VB.Menu mnuForm147 
  1117.          Caption         =   "Form147"
  1118.       End
  1119.       Begin VB.Menu mnuForm148 
  1120.          Caption         =   "Form148"
  1121.       End
  1122.       Begin VB.Menu mnuForm149 
  1123.          Caption         =   "Form149"
  1124.       End
  1125.       Begin VB.Menu mnuForm150 
  1126.          Caption         =   "Form150"
  1127.       End
  1128.       Begin VB.Menu mnuForm151 
  1129.          Caption         =   "Form151"
  1130.       End
  1131.       Begin VB.Menu mnuForm152 
  1132.          Caption         =   "Form152"
  1133.       End
  1134.       Begin VB.Menu mnuForm153 
  1135.          Caption         =   "Form153"
  1136.       End
  1137.       Begin VB.Menu mnuForm154 
  1138.          Caption         =   "Form154"
  1139.       End
  1140.       Begin VB.Menu mnuForm155 
  1141.          Caption         =   "Form155"
  1142.       End
  1143.       Begin VB.Menu mnuForm156 
  1144.          Caption         =   "Form156"
  1145.       End
  1146.       Begin VB.Menu mnuForm157 
  1147.          Caption         =   "Form157"
  1148.       End
  1149.       Begin VB.Menu mnuForm158 
  1150.          Caption         =   "Form158"
  1151.       End
  1152.       Begin VB.Menu mnuForm159 
  1153.          Caption         =   "Form159"
  1154.       End
  1155.       Begin VB.Menu mnuForm160 
  1156.          Caption         =   "Form160"
  1157.       End
  1158.    End
  1159.    Begin VB.Menu mo 
  1160.       Caption         =   "&Other"
  1161.       Begin VB.Menu mnuRib 
  1162.          Caption         =   "RIB"
  1163.          Shortcut        =   ^R
  1164.       End
  1165.       Begin VB.Menu mnuIB 
  1166.          Caption         =   "IB"
  1167.          Shortcut        =   ^I
  1168.       End
  1169.       Begin VB.Menu mnuHL 
  1170.          Caption         =   "HL"
  1171.          Shortcut        =   ^H
  1172.          Visible         =   0   'False
  1173.       End
  1174.       Begin VB.Menu mnuSe 
  1175.          Caption         =   "SE"
  1176.          Shortcut        =   ^S
  1177.          Visible         =   0   'False
  1178.       End
  1179.    End
  1180.    Begin VB.Menu menuhelp 
  1181.       Caption         =   "&Help"
  1182.       Begin VB.Menu mnuHelp 
  1183.          Caption         =   "Help &topic"
  1184.          Shortcut        =   {F1}
  1185.       End
  1186.    End
  1187. End
  1188. Attribute VB_Name = "Form_main"
  1189. Attribute VB_GlobalNameSpace = False
  1190. Attribute VB_Creatable = False
  1191. Attribute VB_PredeclaredId = True
  1192. Attribute VB_Exposed = False