home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / ch_code / ch07 / image / imgfltr.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-04-09  |  23.0 KB  |  755 lines
  1. VERSION 5.00
  2. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  3. Begin VB.Form Form2 
  4.    Caption         =   "Custom Filter"
  5.    ClientHeight    =   3030
  6.    ClientLeft      =   3945
  7.    ClientTop       =   5925
  8.    ClientWidth     =   4110
  9.    LinkTopic       =   "Form2"
  10.    ScaleHeight     =   3030
  11.    ScaleWidth      =   4110
  12.    Begin MSComDlg.CommonDialog CommonDialog1 
  13.       Left            =   -180
  14.       Top             =   225
  15.       _ExtentX        =   847
  16.       _ExtentY        =   847
  17.       _Version        =   393216
  18.       FontSize        =   1.17485e-38
  19.    End
  20.    Begin VB.CommandButton Command2 
  21.       Caption         =   "Cancel"
  22.       BeginProperty Font 
  23.          Name            =   "Tahoma"
  24.          Size            =   11.25
  25.          Charset         =   0
  26.          Weight          =   400
  27.          Underline       =   0   'False
  28.          Italic          =   0   'False
  29.          Strikethrough   =   0   'False
  30.       EndProperty
  31.       Height          =   375
  32.       Left            =   2190
  33.       TabIndex        =   33
  34.       Top             =   2520
  35.       Width           =   1695
  36.    End
  37.    Begin VB.CommandButton Command1 
  38.       Caption         =   "Process Now"
  39.       BeginProperty Font 
  40.          Name            =   "Tahoma"
  41.          Size            =   11.25
  42.          Charset         =   0
  43.          Weight          =   400
  44.          Underline       =   0   'False
  45.          Italic          =   0   'False
  46.          Strikethrough   =   0   'False
  47.       EndProperty
  48.       Height          =   375
  49.       Left            =   2190
  50.       TabIndex        =   32
  51.       Top             =   2040
  52.       Width           =   1695
  53.    End
  54.    Begin VB.TextBox Text3 
  55.       BeginProperty Font 
  56.          Name            =   "Tahoma"
  57.          Size            =   9.75
  58.          Charset         =   0
  59.          Weight          =   400
  60.          Underline       =   0   'False
  61.          Italic          =   0   'False
  62.          Strikethrough   =   0   'False
  63.       EndProperty
  64.       Height          =   390
  65.       Left            =   1320
  66.       TabIndex        =   29
  67.       Text            =   "0"
  68.       Top             =   2505
  69.       Width           =   615
  70.    End
  71.    Begin VB.TextBox Text2 
  72.       BeginProperty Font 
  73.          Name            =   "Tahoma"
  74.          Size            =   9.75
  75.          Charset         =   0
  76.          Weight          =   400
  77.          Underline       =   0   'False
  78.          Italic          =   0   'False
  79.          Strikethrough   =   0   'False
  80.       EndProperty
  81.       Height          =   375
  82.       Left            =   120
  83.       TabIndex        =   28
  84.       Text            =   "9"
  85.       Top             =   2505
  86.       Width           =   615
  87.    End
  88.    Begin VB.TextBox Text1 
  89.       Alignment       =   2  'Center
  90.       BeginProperty Font 
  91.          Name            =   "Tahoma"
  92.          Size            =   9.75
  93.          Charset         =   0
  94.          Weight          =   400
  95.          Underline       =   0   'False
  96.          Italic          =   0   'False
  97.          Strikethrough   =   0   'False
  98.       EndProperty
  99.       Height          =   375
  100.       Index           =   24
  101.       Left            =   1560
  102.       TabIndex        =   24
  103.       Top             =   1680
  104.       Width           =   375
  105.    End
  106.    Begin VB.TextBox Text1 
  107.       Alignment       =   2  'Center
  108.       BeginProperty Font 
  109.          Name            =   "Tahoma"
  110.          Size            =   9.75
  111.          Charset         =   0
  112.          Weight          =   400
  113.          Underline       =   0   'False
  114.          Italic          =   0   'False
  115.          Strikethrough   =   0   'False
  116.       EndProperty
  117.       Height          =   375
  118.       Index           =   23
  119.       Left            =   1200
  120.       TabIndex        =   23
  121.       Top             =   1680
  122.       Width           =   375
  123.    End
  124.    Begin VB.TextBox Text1 
  125.       Alignment       =   2  'Center
  126.       BeginProperty Font 
  127.          Name            =   "Tahoma"
  128.          Size            =   9.75
  129.          Charset         =   0
  130.          Weight          =   400
  131.          Underline       =   0   'False
  132.          Italic          =   0   'False
  133.          Strikethrough   =   0   'False
  134.       EndProperty
  135.       Height          =   375
  136.       Index           =   22
  137.       Left            =   840
  138.       TabIndex        =   22
  139.       Top             =   1680
  140.       Width           =   375
  141.    End
  142.    Begin VB.TextBox Text1 
  143.       Alignment       =   2  'Center
  144.       BeginProperty Font 
  145.          Name            =   "Tahoma"
  146.          Size            =   9.75
  147.          Charset         =   0
  148.          Weight          =   400
  149.          Underline       =   0   'False
  150.          Italic          =   0   'False
  151.          Strikethrough   =   0   'False
  152.       EndProperty
  153.       Height          =   375
  154.       Index           =   21
  155.       Left            =   480
  156.       TabIndex        =   21
  157.       Top             =   1680
  158.       Width           =   375
  159.    End
  160.    Begin VB.TextBox Text1 
  161.       Alignment       =   2  'Center
  162.       BeginProperty Font 
  163.          Name            =   "Tahoma"
  164.          Size            =   9.75
  165.          Charset         =   0
  166.          Weight          =   400
  167.          Underline       =   0   'False
  168.          Italic          =   0   'False
  169.          Strikethrough   =   0   'False
  170.       EndProperty
  171.       Height          =   375
  172.       Index           =   20
  173.       Left            =   120
  174.       TabIndex        =   20
  175.       Top             =   1680
  176.       Width           =   375
  177.    End
  178.    Begin VB.TextBox Text1 
  179.       Alignment       =   2  'Center
  180.       BeginProperty Font 
  181.          Name            =   "Tahoma"
  182.          Size            =   9.75
  183.          Charset         =   0
  184.          Weight          =   400
  185.          Underline       =   0   'False
  186.          Italic          =   0   'False
  187.          Strikethrough   =   0   'False
  188.       EndProperty
  189.       Height          =   375
  190.       Index           =   19
  191.       Left            =   1560
  192.       TabIndex        =   19
  193.       Top             =   1320
  194.       Width           =   375
  195.    End
  196.    Begin VB.TextBox Text1 
  197.       Alignment       =   2  'Center
  198.       BeginProperty Font 
  199.          Name            =   "Tahoma"
  200.          Size            =   9.75
  201.          Charset         =   0
  202.          Weight          =   400
  203.          Underline       =   0   'False
  204.          Italic          =   0   'False
  205.          Strikethrough   =   0   'False
  206.       EndProperty
  207.       Height          =   375
  208.       Index           =   18
  209.       Left            =   1200
  210.       TabIndex        =   18
  211.       Text            =   "1"
  212.       Top             =   1320
  213.       Width           =   375
  214.    End
  215.    Begin VB.TextBox Text1 
  216.       Alignment       =   2  'Center
  217.       BeginProperty Font 
  218.          Name            =   "Tahoma"
  219.          Size            =   9.75
  220.          Charset         =   0
  221.          Weight          =   400
  222.          Underline       =   0   'False
  223.          Italic          =   0   'False
  224.          Strikethrough   =   0   'False
  225.       EndProperty
  226.       Height          =   375
  227.       Index           =   17
  228.       Left            =   840
  229.       TabIndex        =   17
  230.       Text            =   "1"
  231.       Top             =   1320
  232.       Width           =   375
  233.    End
  234.    Begin VB.TextBox Text1 
  235.       Alignment       =   2  'Center
  236.       BeginProperty Font 
  237.          Name            =   "Tahoma"
  238.          Size            =   9.75
  239.          Charset         =   0
  240.          Weight          =   400
  241.          Underline       =   0   'False
  242.          Italic          =   0   'False
  243.          Strikethrough   =   0   'False
  244.       EndProperty
  245.       Height          =   375
  246.       Index           =   16
  247.       Left            =   480
  248.       TabIndex        =   16
  249.       Text            =   "1"
  250.       Top             =   1320
  251.       Width           =   375
  252.    End
  253.    Begin VB.TextBox Text1 
  254.       Alignment       =   2  'Center
  255.       BeginProperty Font 
  256.          Name            =   "Tahoma"
  257.          Size            =   9.75
  258.          Charset         =   0
  259.          Weight          =   400
  260.          Underline       =   0   'False
  261.          Italic          =   0   'False
  262.          Strikethrough   =   0   'False
  263.       EndProperty
  264.       Height          =   375
  265.       Index           =   15
  266.       Left            =   120
  267.       TabIndex        =   15
  268.       Top             =   1320
  269.       Width           =   375
  270.    End
  271.    Begin VB.TextBox Text1 
  272.       Alignment       =   2  'Center
  273.       BeginProperty Font 
  274.          Name            =   "Tahoma"
  275.          Size            =   9.75
  276.          Charset         =   0
  277.          Weight          =   400
  278.          Underline       =   0   'False
  279.          Italic          =   0   'False
  280.          Strikethrough   =   0   'False
  281.       EndProperty
  282.       Height          =   375
  283.       Index           =   14
  284.       Left            =   1560
  285.       TabIndex        =   14
  286.       Top             =   960
  287.       Width           =   375
  288.    End
  289.    Begin VB.TextBox Text1 
  290.       Alignment       =   2  'Center
  291.       BeginProperty Font 
  292.          Name            =   "Tahoma"
  293.          Size            =   9.75
  294.          Charset         =   0
  295.          Weight          =   400
  296.          Underline       =   0   'False
  297.          Italic          =   0   'False
  298.          Strikethrough   =   0   'False
  299.       EndProperty
  300.       Height          =   375
  301.       Index           =   13
  302.       Left            =   1200
  303.       TabIndex        =   13
  304.       Text            =   "1"
  305.       Top             =   960
  306.       Width           =   375
  307.    End
  308.    Begin VB.TextBox Text1 
  309.       Alignment       =   2  'Center
  310.       BeginProperty Font 
  311.          Name            =   "Tahoma"
  312.          Size            =   9.75
  313.          Charset         =   0
  314.          Weight          =   400
  315.          Underline       =   0   'False
  316.          Italic          =   0   'False
  317.          Strikethrough   =   0   'False
  318.       EndProperty
  319.       Height          =   375
  320.       Index           =   12
  321.       Left            =   840
  322.       TabIndex        =   12
  323.       Text            =   "1"
  324.       Top             =   960
  325.       Width           =   375
  326.    End
  327.    Begin VB.TextBox Text1 
  328.       Alignment       =   2  'Center
  329.       BeginProperty Font 
  330.          Name            =   "Tahoma"
  331.          Size            =   9.75
  332.          Charset         =   0
  333.          Weight          =   400
  334.          Underline       =   0   'False
  335.          Italic          =   0   'False
  336.          Strikethrough   =   0   'False
  337.       EndProperty
  338.       Height          =   375
  339.       Index           =   11
  340.       Left            =   480
  341.       TabIndex        =   11
  342.       Text            =   "1"
  343.       Top             =   960
  344.       Width           =   375
  345.    End
  346.    Begin VB.TextBox Text1 
  347.       Alignment       =   2  'Center
  348.       BeginProperty Font 
  349.          Name            =   "Tahoma"
  350.          Size            =   9.75
  351.          Charset         =   0
  352.          Weight          =   400
  353.          Underline       =   0   'False
  354.          Italic          =   0   'False
  355.          Strikethrough   =   0   'False
  356.       EndProperty
  357.       Height          =   375
  358.       Index           =   10
  359.       Left            =   120
  360.       TabIndex        =   10
  361.       Top             =   960
  362.       Width           =   375
  363.    End
  364.    Begin VB.TextBox Text1 
  365.       Alignment       =   2  'Center
  366.       BeginProperty Font 
  367.          Name            =   "Tahoma"
  368.          Size            =   9.75
  369.          Charset         =   0
  370.          Weight          =   400
  371.          Underline       =   0   'False
  372.          Italic          =   0   'False
  373.          Strikethrough   =   0   'False
  374.       EndProperty
  375.       Height          =   375
  376.       Index           =   9
  377.       Left            =   1560
  378.       TabIndex        =   9
  379.       Top             =   600
  380.       Width           =   375
  381.    End
  382.    Begin VB.TextBox Text1 
  383.       Alignment       =   2  'Center
  384.       BeginProperty Font 
  385.          Name            =   "Tahoma"
  386.          Size            =   9.75
  387.          Charset         =   0
  388.          Weight          =   400
  389.          Underline       =   0   'False
  390.          Italic          =   0   'False
  391.          Strikethrough   =   0   'False
  392.       EndProperty
  393.       Height          =   375
  394.       Index           =   8
  395.       Left            =   1200
  396.       TabIndex        =   8
  397.       Text            =   "1"
  398.       Top             =   600
  399.       Width           =   375
  400.    End
  401.    Begin VB.TextBox Text1 
  402.       Alignment       =   2  'Center
  403.       BeginProperty Font 
  404.          Name            =   "Tahoma"
  405.          Size            =   9.75
  406.          Charset         =   0
  407.          Weight          =   400
  408.          Underline       =   0   'False
  409.          Italic          =   0   'False
  410.          Strikethrough   =   0   'False
  411.       EndProperty
  412.       Height          =   375
  413.       Index           =   7
  414.       Left            =   840
  415.       TabIndex        =   7
  416.       Text            =   "1"
  417.       Top             =   600
  418.       Width           =   375
  419.    End
  420.    Begin VB.TextBox Text1 
  421.       Alignment       =   2  'Center
  422.       BeginProperty Font 
  423.          Name            =   "Tahoma"
  424.          Size            =   9.75
  425.          Charset         =   0
  426.          Weight          =   400
  427.          Underline       =   0   'False
  428.          Italic          =   0   'False
  429.          Strikethrough   =   0   'False
  430.       EndProperty
  431.       Height          =   375
  432.       Index           =   6
  433.       Left            =   480
  434.       TabIndex        =   6
  435.       Text            =   "1"
  436.       Top             =   600
  437.       Width           =   375
  438.    End
  439.    Begin VB.TextBox Text1 
  440.       Alignment       =   2  'Center
  441.       BeginProperty Font 
  442.          Name            =   "Tahoma"
  443.          Size            =   9.75
  444.          Charset         =   0
  445.          Weight          =   400
  446.          Underline       =   0   'False
  447.          Italic          =   0   'False
  448.          Strikethrough   =   0   'False
  449.       EndProperty
  450.       Height          =   375
  451.       Index           =   5
  452.       Left            =   120
  453.       TabIndex        =   5
  454.       Top             =   600
  455.       Width           =   375
  456.    End
  457.    Begin VB.TextBox Text1 
  458.       Alignment       =   2  'Center
  459.       BeginProperty Font 
  460.          Name            =   "Tahoma"
  461.          Size            =   9.75
  462.          Charset         =   0
  463.          Weight          =   400
  464.          Underline       =   0   'False
  465.          Italic          =   0   'False
  466.          Strikethrough   =   0   'False
  467.       EndProperty
  468.       Height          =   375
  469.       Index           =   4
  470.       Left            =   1560
  471.       TabIndex        =   4
  472.       Top             =   240
  473.       Width           =   375
  474.    End
  475.    Begin VB.TextBox Text1 
  476.       Alignment       =   2  'Center
  477.       BeginProperty Font 
  478.          Name            =   "Tahoma"
  479.          Size            =   9.75
  480.          Charset         =   0
  481.          Weight          =   400
  482.          Underline       =   0   'False
  483.          Italic          =   0   'False
  484.          Strikethrough   =   0   'False
  485.       EndProperty
  486.       Height          =   375
  487.       Index           =   3
  488.       Left            =   1200
  489.       TabIndex        =   3
  490.       Top             =   240
  491.       Width           =   375
  492.    End
  493.    Begin VB.TextBox Text1 
  494.       Alignment       =   2  'Center
  495.       BeginProperty Font 
  496.          Name            =   "Tahoma"
  497.          Size            =   9.75
  498.          Charset         =   0
  499.          Weight          =   400
  500.          Underline       =   0   'False
  501.          Italic          =   0   'False
  502.          Strikethrough   =   0   'False
  503.       EndProperty
  504.       Height          =   375
  505.       Index           =   2
  506.       Left            =   840
  507.       TabIndex        =   2
  508.       Top             =   240
  509.       Width           =   375
  510.    End
  511.    Begin VB.TextBox Text1 
  512.       Alignment       =   2  'Center
  513.       BeginProperty Font 
  514.          Name            =   "Tahoma"
  515.          Size            =   9.75
  516.          Charset         =   0
  517.          Weight          =   400
  518.          Underline       =   0   'False
  519.          Italic          =   0   'False
  520.          Strikethrough   =   0   'False
  521.       EndProperty
  522.       Height          =   375
  523.       Index           =   1
  524.       Left            =   480
  525.       TabIndex        =   1
  526.       Top             =   240
  527.       Width           =   375
  528.    End
  529.    Begin VB.TextBox Text1 
  530.       Alignment       =   2  'Center
  531.       BeginProperty Font 
  532.          Name            =   "Tahoma"
  533.          Size            =   9.75
  534.          Charset         =   0
  535.          Weight          =   400
  536.          Underline       =   0   'False
  537.          Italic          =   0   'False
  538.          Strikethrough   =   0   'False
  539.       EndProperty
  540.       Height          =   375
  541.       Index           =   0
  542.       Left            =   120
  543.       TabIndex        =   0
  544.       Top             =   240
  545.       Width           =   375
  546.    End
  547.    Begin VB.PictureBox SSPanel1 
  548.       BackColor       =   &H00C0C0C0&
  549.       BeginProperty Font 
  550.          Name            =   "Times New Roman"
  551.          Size            =   11.25
  552.          Charset         =   0
  553.          Weight          =   400
  554.          Underline       =   0   'False
  555.          Italic          =   0   'False
  556.          Strikethrough   =   0   'False
  557.       EndProperty
  558.       Height          =   1335
  559.       Left            =   2220
  560.       ScaleHeight     =   1275
  561.       ScaleWidth      =   1515
  562.       TabIndex        =   25
  563.       Top             =   480
  564.       Width           =   1575
  565.       Begin VB.OptionButton Option2 
  566.          Caption         =   "5 X 5"
  567.          BeginProperty Font 
  568.             Name            =   "Tahoma"
  569.             Size            =   9.75
  570.             Charset         =   0
  571.             Weight          =   400
  572.             Underline       =   0   'False
  573.             Italic          =   0   'False
  574.             Strikethrough   =   0   'False
  575.          EndProperty
  576.          Height          =   375
  577.          Left            =   360
  578.          TabIndex        =   27
  579.          Top             =   840
  580.          Width           =   855
  581.       End
  582.       Begin VB.OptionButton Option1 
  583.          Caption         =   "3 X 3 "
  584.          BeginProperty Font 
  585.             Name            =   "Tahoma"
  586.             Size            =   9.75
  587.             Charset         =   0
  588.             Weight          =   400
  589.             Underline       =   0   'False
  590.             Italic          =   0   'False
  591.             Strikethrough   =   0   'False
  592.          EndProperty
  593.          Height          =   375
  594.          Left            =   360
  595.          TabIndex        =   26
  596.          Top             =   480
  597.          Value           =   -1  'True
  598.          Width           =   975
  599.       End
  600.       Begin VB.Label Label3 
  601.          Alignment       =   2  'Center
  602.          Caption         =   "Filter Size"
  603.          BeginProperty Font 
  604.             Name            =   "Tahoma"
  605.             Size            =   9.75
  606.             Charset         =   0
  607.             Weight          =   400
  608.             Underline       =   0   'False
  609.             Italic          =   0   'False
  610.             Strikethrough   =   0   'False
  611.          EndProperty
  612.          Height          =   255
  613.          Left            =   120
  614.          TabIndex        =   34
  615.          Top             =   120
  616.          Width           =   1215
  617.       End
  618.    End
  619.    Begin VB.Label Label2 
  620.       Caption         =   "Bias"
  621.       BeginProperty Font 
  622.          Name            =   "Tahoma"
  623.          Size            =   9.75
  624.          Charset         =   0
  625.          Weight          =   400
  626.          Underline       =   0   'False
  627.          Italic          =   0   'False
  628.          Strikethrough   =   0   'False
  629.       EndProperty
  630.       Height          =   300
  631.       Left            =   1320
  632.       TabIndex        =   31
  633.       Top             =   2235
  634.       Width           =   630
  635.    End
  636.    Begin VB.Label Label1 
  637.       Caption         =   "Divide"
  638.       BeginProperty Font 
  639.          Name            =   "Tahoma"
  640.          Size            =   9.75
  641.          Charset         =   0
  642.          Weight          =   400
  643.          Underline       =   0   'False
  644.          Italic          =   0   'False
  645.          Strikethrough   =   0   'False
  646.       EndProperty
  647.       Height          =   240
  648.       Left            =   105
  649.       TabIndex        =   30
  650.       Top             =   2235
  651.       Width           =   780
  652.    End
  653.    Begin VB.Menu FileMenu 
  654.       Caption         =   "File"
  655.       Begin VB.Menu FileSave 
  656.          Caption         =   "Save Filter"
  657.       End
  658.       Begin VB.Menu FileLoad 
  659.          Caption         =   "Load Filter"
  660.       End
  661.    End
  662. Attribute VB_Name = "Form2"
  663. Attribute VB_GlobalNameSpace = False
  664. Attribute VB_Creatable = False
  665. Attribute VB_PredeclaredId = True
  666. Attribute VB_Exposed = False
  667. Private Sub FileLoad_Click()
  668. On Error GoTo ExitSub
  669.     CommonDialog1.Filter = "Custom Filters|*.FLR"
  670.     CommonDialog1.InitDir = App.Path
  671.     CommonDialog1.CancelError = True
  672.     CommonDialog1.ShowOpen
  673.     FFileNum = FreeFile
  674.     Me.Caption = CommonDialog1.FileTitle
  675.     Open CommonDialog1.FileName For Input As FFileNum
  676.     Input #FFileNum, FSize
  677.     If FSize = 3 Then Option1.Value = True Else Option2.Value = True
  678.     Input #FFileNum, div
  679.     Input #FFileNum, bias
  680.     Text2.Text = div
  681.     Text3.Text = bias
  682.     For i = 0 To 4
  683.         For j = 0 To 4
  684.             Input #FFileNum, fweight
  685.             Text1(i * 5 + j).Text = fweight
  686.         Next
  687.     Next
  688.     Close #FFileNum
  689.     Exit Sub
  690. ExitSub:
  691.     Exit Sub
  692. End Sub
  693. Private Sub FileSave_Click()
  694. On Error GoTo ExitSub
  695.     CommonDialog1.Filter = "Custom Filters|*.FLR"
  696.     CommonDialog1.CancelError = True
  697.     CommonDialog1.ShowSave
  698.     Me.Caption = CommonDialog1.FileTitle
  699.     FFileNum = FreeFile
  700.     Open CommonDialog1.FileName For Output As FFileNum
  701.     If Option1.Value Then Write #FFileNum, "3" Else Write #FFileNum, "5"
  702.     Write #FFileNum, Text2.Text
  703.     Write #FFileNum, Text3.Text
  704.     For i = 0 To 4
  705.         For j = 0 To 4
  706.             Write #FFileNum, Text1(i * 5 + j).Text
  707.         Next
  708.     Next
  709.     Close #FFileNum
  710.     Exit Sub
  711. ExitSub:
  712.     Exit Sub
  713. End Sub
  714. Private Sub Form_Load()
  715.     Option1_Click
  716. End Sub
  717. Private Sub Option1_Click()
  718. Dim i As Integer
  719.     For i = 0 To 4
  720.         Text1(i).Visible = False
  721.         Text1(i + 20).Visible = False
  722.     Next
  723.     For i = 1 To 3
  724.         Text1(i * 5).Visible = False
  725.         Text1(i * 5 + 4).Visible = False
  726.     Next
  727. End Sub
  728. Private Sub Option2_Click()
  729. Dim i As Integer
  730.     For i = 0 To 4
  731.         Text1(i).Visible = True
  732.         Text1(i + 20).Visible = True
  733.     Next
  734.     For i = 1 To 3
  735.         Text1(i * 5).Visible = True
  736.         Text1(i * 5 + 4).Visible = True
  737.     Next
  738. End Sub
  739. Private Sub Command1_Click()
  740. Dim i, j
  741.     FilterCancel = False
  742.     For i = 0 To 4
  743.         For j = 0 To 4
  744.             CustomFilter(i, j) = Val(Text1(i * 5 + j).Text)
  745.         Next
  746.     Next
  747.     FilterNorm = Val(Text2.Text)
  748.     FilterBias = Val(Text3.Text)
  749.     Form2.Hide
  750. End Sub
  751. Private Sub Command2_Click()
  752.     FilterCancel = True
  753.     Form2.Hide
  754. End Sub
  755.