home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Basic / IEComBox / Form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  2001-03-15  |  21.2 KB  |  605 lines
  1. VERSION 5.00
  2. Object = "{204ADB88-FEB3-418A-A055-4C39FF91E60B}#1.0#0"; "IEComboBox.ocx"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Demo of some IEComboBox Control Features"
  5.    ClientHeight    =   7095
  6.    ClientLeft      =   1815
  7.    ClientTop       =   1620
  8.    ClientWidth     =   7260
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   7095
  11.    ScaleWidth      =   7260
  12.    Begin IEComboBox.IEComBox IEComBox10 
  13.       Height          =   360
  14.       Left            =   3840
  15.       TabIndex        =   25
  16.       Top             =   5520
  17.       Width           =   2775
  18.       _ExtentX        =   4895
  19.       _ExtentY        =   635
  20.       ListIndex       =   -1
  21.       BackColor       =   16711680
  22.       BackColor       =   16711680
  23.       BackColor       =   16711680
  24.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  25.          Name            =   "System"
  26.          Size            =   9.75
  27.          Charset         =   0
  28.          Weight          =   700
  29.          Underline       =   0   'False
  30.          Italic          =   0   'False
  31.          Strikethrough   =   0   'False
  32.       EndProperty
  33.    End
  34.    Begin IEComboBox.IEComBox IEComBox9 
  35.       Height          =   345
  36.       Left            =   3840
  37.       TabIndex        =   24
  38.       Top             =   5040
  39.       Width           =   2775
  40.       _ExtentX        =   4895
  41.       _ExtentY        =   609
  42.       ListIndex       =   -1
  43.       BackColor       =   65280
  44.       BackColor       =   65280
  45.       BackColor       =   65280
  46.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  47.          Name            =   "Roman"
  48.          Size            =   9.75
  49.          Charset         =   255
  50.          Weight          =   400
  51.          Underline       =   0   'False
  52.          Italic          =   0   'False
  53.          Strikethrough   =   0   'False
  54.       EndProperty
  55.    End
  56.    Begin IEComboBox.IEComBox IEComBox8 
  57.       Height          =   330
  58.       Left            =   3840
  59.       TabIndex        =   23
  60.       Top             =   4560
  61.       Width           =   2775
  62.       _ExtentX        =   4895
  63.       _ExtentY        =   582
  64.       ListIndex       =   -1
  65.       BackColor       =   14737632
  66.       BackColor       =   14737632
  67.       BackColor       =   14737632
  68.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  69.          Name            =   "Garamond"
  70.          Size            =   9.75
  71.          Charset         =   0
  72.          Weight          =   400
  73.          Underline       =   0   'False
  74.          Italic          =   0   'False
  75.          Strikethrough   =   0   'False
  76.       EndProperty
  77.    End
  78.    Begin IEComboBox.IEComBox IEComBox7 
  79.       Height          =   345
  80.       Left            =   3840
  81.       TabIndex        =   22
  82.       Top             =   4080
  83.       Width           =   2775
  84.       _ExtentX        =   4895
  85.       _ExtentY        =   609
  86.       ListIndex       =   -1
  87.       BackColor       =   12632319
  88.       BackColor       =   12632319
  89.       BackColor       =   12632319
  90.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  91.          Name            =   "Fixedsys"
  92.          Size            =   9
  93.          Charset         =   0
  94.          Weight          =   400
  95.          Underline       =   0   'False
  96.          Italic          =   0   'False
  97.          Strikethrough   =   0   'False
  98.       EndProperty
  99.    End
  100.    Begin IEComboBox.IEComBox IEComBox6 
  101.       Height          =   360
  102.       Left            =   3840
  103.       TabIndex        =   21
  104.       Top             =   3600
  105.       Width           =   2775
  106.       _ExtentX        =   4895
  107.       _ExtentY        =   635
  108.       ListIndex       =   -1
  109.       BackColor       =   16761087
  110.       BackColor       =   16761087
  111.       BackColor       =   16761087
  112.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  113.          Name            =   "Courier New"
  114.          Size            =   9.75
  115.          Charset         =   0
  116.          Weight          =   400
  117.          Underline       =   0   'False
  118.          Italic          =   0   'False
  119.          Strikethrough   =   0   'False
  120.       EndProperty
  121.    End
  122.    Begin IEComboBox.IEComBox IEComBox5 
  123.       Height          =   390
  124.       Left            =   600
  125.       TabIndex        =   20
  126.       Top             =   5520
  127.       Width           =   2775
  128.       _ExtentX        =   4895
  129.       _ExtentY        =   688
  130.       ListIndex       =   -1
  131.       BackColor       =   16761024
  132.       BackColor       =   16761024
  133.       BackColor       =   16761024
  134.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  135.          Name            =   "Comic Sans MS"
  136.          Size            =   9.75
  137.          Charset         =   0
  138.          Weight          =   400
  139.          Underline       =   0   'False
  140.          Italic          =   0   'False
  141.          Strikethrough   =   0   'False
  142.       EndProperty
  143.    End
  144.    Begin IEComboBox.IEComBox IEComBox4 
  145.       Height          =   390
  146.       Left            =   600
  147.       TabIndex        =   19
  148.       Top             =   5040
  149.       Width           =   2775
  150.       _ExtentX        =   4895
  151.       _ExtentY        =   688
  152.       ListIndex       =   -1
  153.       BackColor       =   16777152
  154.       BackColor       =   16777152
  155.       BackColor       =   16777152
  156.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  157.          Name            =   "Bookman Old Style"
  158.          Size            =   9.75
  159.          Charset         =   0
  160.          Weight          =   300
  161.          Underline       =   0   'False
  162.          Italic          =   0   'False
  163.          Strikethrough   =   0   'False
  164.       EndProperty
  165.    End
  166.    Begin IEComboBox.IEComBox IEComBox3 
  167.       Height          =   375
  168.       Left            =   600
  169.       TabIndex        =   18
  170.       Top             =   4560
  171.       Width           =   2775
  172.       _ExtentX        =   4895
  173.       _ExtentY        =   661
  174.       ListIndex       =   -1
  175.       BackColor       =   12648384
  176.       BackColor       =   12648384
  177.       BackColor       =   12648384
  178.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  179.          Name            =   "Book Antiqua"
  180.          Size            =   9.75
  181.          Charset         =   0
  182.          Weight          =   400
  183.          Underline       =   0   'False
  184.          Italic          =   0   'False
  185.          Strikethrough   =   0   'False
  186.       EndProperty
  187.    End
  188.    Begin IEComboBox.IEComBox IEComBox2 
  189.       Height          =   360
  190.       Left            =   600
  191.       TabIndex        =   17
  192.       Top             =   4080
  193.       Width           =   2775
  194.       _ExtentX        =   4895
  195.       _ExtentY        =   635
  196.       ListIndex       =   -1
  197.       BackColor       =   12648447
  198.       BackColor       =   12648447
  199.       BackColor       =   12648447
  200.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  201.          Name            =   "Arial"
  202.          Size            =   9.75
  203.          Charset         =   0
  204.          Weight          =   400
  205.          Underline       =   0   'False
  206.          Italic          =   0   'False
  207.          Strikethrough   =   0   'False
  208.       EndProperty
  209.    End
  210.    Begin IEComboBox.IEComBox IEComBox1 
  211.       Height          =   315
  212.       Left            =   600
  213.       TabIndex        =   16
  214.       Top             =   3600
  215.       Width           =   2775
  216.       _ExtentX        =   4895
  217.       _ExtentY        =   556
  218.       ListIndex       =   -1
  219.       Text            =   "This value can be preset"
  220.       BackColor       =   -2147483639
  221.       BackColor       =   -2147483639
  222.       BackColor       =   -2147483639
  223.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  224.          Name            =   "MS Sans Serif"
  225.          Size            =   8.25
  226.          Charset         =   0
  227.          Weight          =   400
  228.          Underline       =   0   'False
  229.          Italic          =   0   'False
  230.          Strikethrough   =   0   'False
  231.       EndProperty
  232.       TextCtl         =   0   'False
  233.    End
  234.    Begin VB.CheckBox Check5 
  235.       Caption         =   "NoAddNew"
  236.       Height          =   255
  237.       Left            =   5760
  238.       TabIndex        =   15
  239.       Top             =   2040
  240.       Width           =   1215
  241.    End
  242.    Begin VB.CheckBox Check4 
  243.       Caption         =   "Inset Borders"
  244.       Height          =   255
  245.       Left            =   4320
  246.       TabIndex        =   14
  247.       TabStop         =   0   'False
  248.       Top             =   2040
  249.       Width           =   1335
  250.    End
  251.    Begin VB.Frame fraSecondBlock 
  252.       Caption         =   "FilePath Property"
  253.       Height          =   975
  254.       Left            =   3840
  255.       TabIndex        =   11
  256.       Top             =   2520
  257.       Width           =   2775
  258.       Begin VB.OptionButton optSecondBlock 
  259.          Caption         =   "Use ""lookup1.txt"""
  260.          Height          =   255
  261.          Index           =   0
  262.          Left            =   480
  263.          TabIndex        =   13
  264.          TabStop         =   0   'False
  265.          Top             =   360
  266.          Width           =   1575
  267.       End
  268.       Begin VB.OptionButton optSecondBlock 
  269.          Caption         =   "Use ""lookup2.txt"""
  270.          Height          =   255
  271.          Index           =   1
  272.          Left            =   480
  273.          TabIndex        =   12
  274.          TabStop         =   0   'False
  275.          Top             =   600
  276.          Value           =   -1  'True
  277.          Width           =   1575
  278.       End
  279.    End
  280.    Begin VB.Frame fraFirstBlock 
  281.       Caption         =   "FilePath Property"
  282.       Height          =   975
  283.       Left            =   600
  284.       TabIndex        =   8
  285.       Top             =   2520
  286.       Width           =   2775
  287.       Begin VB.OptionButton optFirstBlock 
  288.          Caption         =   "Use ""lookup2.txt"""
  289.          Height          =   255
  290.          Index           =   1
  291.          Left            =   480
  292.          TabIndex        =   10
  293.          TabStop         =   0   'False
  294.          Top             =   600
  295.          Width           =   1575
  296.       End
  297.       Begin VB.OptionButton optFirstBlock 
  298.          Caption         =   "Use ""lookup1.txt"""
  299.          Height          =   255
  300.          Index           =   0
  301.          Left            =   480
  302.          TabIndex        =   9
  303.          TabStop         =   0   'False
  304.          Top             =   360
  305.          Value           =   -1  'True
  306.          Width           =   1575
  307.       End
  308.    End
  309.    Begin VB.CheckBox Check3 
  310.       Caption         =   "Locked"
  311.       Height          =   255
  312.       Left            =   3240
  313.       TabIndex        =   2
  314.       TabStop         =   0   'False
  315.       Top             =   2040
  316.       Width           =   975
  317.    End
  318.    Begin VB.CheckBox Check2 
  319.       Caption         =   "Enabled"
  320.       Height          =   255
  321.       Left            =   2160
  322.       TabIndex        =   1
  323.       TabStop         =   0   'False
  324.       Top             =   2040
  325.       Value           =   1  'Checked
  326.       Width           =   1095
  327.    End
  328.    Begin VB.CheckBox Check1 
  329.       Caption         =   "Case Sensitive"
  330.       Height          =   255
  331.       Left            =   600
  332.       TabIndex        =   0
  333.       TabStop         =   0   'False
  334.       Top             =   2040
  335.       Width           =   1455
  336.    End
  337.    Begin VB.Label lblResult 
  338.       BorderStyle     =   1  'Fixed Single
  339.       Height          =   495
  340.       Left            =   2040
  341.       TabIndex        =   7
  342.       Top             =   6240
  343.       Width           =   3735
  344.    End
  345.    Begin VB.Label Label5 
  346.       Caption         =   "Results:"
  347.       BeginProperty Font 
  348.          Name            =   "MS Sans Serif"
  349.          Size            =   9.75
  350.          Charset         =   0
  351.          Weight          =   700
  352.          Underline       =   0   'False
  353.          Italic          =   0   'False
  354.          Strikethrough   =   0   'False
  355.       EndProperty
  356.       Height          =   255
  357.       Left            =   1080
  358.       TabIndex        =   6
  359.       Top             =   6240
  360.       Width           =   975
  361.    End
  362.    Begin VB.Label Label4 
  363.       Caption         =   "Whenever the user acknowledges a text by hitting the enter key this text will be considered as worth to memorize."
  364.       Height          =   855
  365.       Left            =   3840
  366.       TabIndex        =   5
  367.       Top             =   840
  368.       Width           =   2775
  369.    End
  370.    Begin VB.Label Label6 
  371.       Caption         =   $"Form1.frx":0000
  372.       Height          =   855
  373.       Left            =   600
  374.       TabIndex        =   4
  375.       Top             =   840
  376.       Width           =   2775
  377.    End
  378.    Begin VB.Label Label3 
  379.       Caption         =   "Version 1.07, how does it work?"
  380.       BeginProperty Font 
  381.          Name            =   "MS Sans Serif"
  382.          Size            =   12
  383.          Charset         =   0
  384.          Weight          =   700
  385.          Underline       =   0   'False
  386.          Italic          =   0   'False
  387.          Strikethrough   =   0   'False
  388.       EndProperty
  389.       Height          =   255
  390.       Left            =   1680
  391.       TabIndex        =   3
  392.       Top             =   240
  393.       Width           =   3975
  394.    End
  395. Attribute VB_Name = "Form1"
  396. Attribute VB_GlobalNameSpace = False
  397. Attribute VB_Creatable = False
  398. Attribute VB_PredeclaredId = True
  399. Attribute VB_Exposed = False
  400. ' From Gan Seng Chai
  401. Option Explicit
  402. Private Sub CareForNewValue(intKeyPressed As Integer)
  403.     Dim cboActiveIEComboBox As IEComBox
  404.     Set cboActiveIEComboBox = Screen.ActiveControl
  405.     If (intKeyPressed = 13) Then
  406.         If (cboActiveIEComboBox.IEFound = True) Then
  407.                 lblResult.Caption = _
  408.                 "The value """ & cboActiveIEComboBox.Text & """ had already been in the list"
  409.             Else
  410.                 ' This sample code line does make the new list value visible again,
  411.                 ' the control's default behaviour would be to get a blank field
  412.                 cboActiveIEComboBox.ListIndex = 0
  413.                 lblResult.Caption = _
  414.                 "The new value """ & cboActiveIEComboBox.Text & """ has been added to the top of the list"
  415.         End If
  416.         ' We need to refresh all the other comboboxes sharing the same file
  417.         If IEComBox1.FilePath = cboActiveIEComboBox.FilePath _
  418.         And Screen.ActiveControl.Name <> "IEComBox1" Then
  419.             IEComBox1.Refresh
  420.         End If
  421.         If IEComBox2.FilePath = cboActiveIEComboBox.FilePath _
  422.         And Screen.ActiveControl.Name <> "IEComBox2" Then
  423.             IEComBox2.Refresh
  424.         End If
  425.         If IEComBox3.FilePath = cboActiveIEComboBox.FilePath _
  426.         And Screen.ActiveControl.Name <> "IEComBox3" Then
  427.             IEComBox3.Refresh
  428.         End If
  429.         If IEComBox4.FilePath = cboActiveIEComboBox.FilePath _
  430.         And Screen.ActiveControl.Name <> "IEComBox4" Then
  431.             IEComBox4.Refresh
  432.         End If
  433.         If IEComBox5.FilePath = cboActiveIEComboBox.FilePath _
  434.         And Screen.ActiveControl.Name <> "IEComBox5" Then
  435.             IEComBox5.Refresh
  436.         End If
  437.         If IEComBox6.FilePath = cboActiveIEComboBox.FilePath _
  438.         And Screen.ActiveControl.Name <> "IEComBox6" Then
  439.             IEComBox6.Refresh
  440.         End If
  441.         If IEComBox7.FilePath = cboActiveIEComboBox.FilePath _
  442.         And Screen.ActiveControl.Name <> "IEComBox7" Then
  443.             IEComBox7.Refresh
  444.         End If
  445.         If IEComBox8.FilePath = cboActiveIEComboBox.FilePath _
  446.         And Screen.ActiveControl.Name <> "IEComBox8" Then
  447.             IEComBox8.Refresh
  448.         End If
  449.         If IEComBox9.FilePath = cboActiveIEComboBox.FilePath _
  450.         And Screen.ActiveControl.Name <> "IEComBox9" Then
  451.             IEComBox9.Refresh
  452.         End If
  453.         If IEComBox10.FilePath = cboActiveIEComboBox.FilePath _
  454.         And Screen.ActiveControl.Name <> "IEComBox10" Then
  455.             IEComBox10.Refresh
  456.         End If
  457.     End If
  458. End Sub
  459. Private Sub Check1_Click()
  460.     IEComBox1.CaseSensitive = Check1.Value
  461.     IEComBox2.CaseSensitive = Check1.Value
  462.     IEComBox3.CaseSensitive = Check1.Value
  463.     IEComBox4.CaseSensitive = Check1.Value
  464.     IEComBox5.CaseSensitive = Check1.Value
  465.     IEComBox6.CaseSensitive = Check1.Value
  466.     IEComBox7.CaseSensitive = Check1.Value
  467.     IEComBox8.CaseSensitive = Check1.Value
  468.     IEComBox9.CaseSensitive = Check1.Value
  469.     IEComBox10.CaseSensitive = Check1.Value
  470. End Sub
  471. Private Sub Check2_Click()
  472.     IEComBox1.Enabled = Check2.Value
  473.     IEComBox2.Enabled = Check2.Value
  474.     IEComBox3.Enabled = Check2.Value
  475.     IEComBox4.Enabled = Check2.Value
  476.     IEComBox5.Enabled = Check2.Value
  477.     IEComBox6.Enabled = Check2.Value
  478.     IEComBox7.Enabled = Check2.Value
  479.     IEComBox8.Enabled = Check2.Value
  480.     IEComBox9.Enabled = Check2.Value
  481.     IEComBox10.Enabled = Check2.Value
  482. End Sub
  483. Private Sub Check3_Click()
  484.     IEComBox1.Locked = Check3.Value
  485.     IEComBox2.Locked = Check3.Value
  486.     IEComBox3.Locked = Check3.Value
  487.     IEComBox4.Locked = Check3.Value
  488.     IEComBox5.Locked = Check3.Value
  489.     IEComBox6.Locked = Check3.Value
  490.     IEComBox7.Locked = Check3.Value
  491.     IEComBox8.Locked = Check3.Value
  492.     IEComBox9.Locked = Check3.Value
  493.     IEComBox10.Locked = Check3.Value
  494. End Sub
  495. Private Sub Check4_Click()
  496.     IEComBox1.BorderStyle = Check4.Value
  497.     IEComBox2.BorderStyle = Check4.Value
  498.     IEComBox3.BorderStyle = Check4.Value
  499.     IEComBox4.BorderStyle = Check4.Value
  500.     IEComBox5.BorderStyle = Check4.Value
  501.     IEComBox6.BorderStyle = Check4.Value
  502.     IEComBox7.BorderStyle = Check4.Value
  503.     IEComBox8.BorderStyle = Check4.Value
  504.     IEComBox9.BorderStyle = Check4.Value
  505.     IEComBox10.BorderStyle = Check4.Value
  506. End Sub
  507. Private Sub Check5_Click()
  508.     IEComBox1.NoAddNew = Check5.Value
  509.     IEComBox2.NoAddNew = Check5.Value
  510.     IEComBox3.NoAddNew = Check5.Value
  511.     IEComBox4.NoAddNew = Check5.Value
  512.     IEComBox5.NoAddNew = Check5.Value
  513.     IEComBox6.NoAddNew = Check5.Value
  514.     IEComBox7.NoAddNew = Check5.Value
  515.     IEComBox8.NoAddNew = Check5.Value
  516.     IEComBox9.NoAddNew = Check5.Value
  517.     IEComBox10.NoAddNew = Check5.Value
  518. End Sub
  519. Private Sub Form_Load()
  520.     IEComBox1.FilePath = App.Path & "\lookup1.txt"
  521.     IEComBox2.FilePath = App.Path & "\lookup1.txt"
  522.     IEComBox3.FilePath = App.Path & "\lookup1.txt"
  523.     IEComBox4.FilePath = App.Path & "\lookup1.txt"
  524.     IEComBox5.FilePath = App.Path & "\lookup1.txt"
  525.     IEComBox6.FilePath = App.Path & "\lookup2.txt"
  526.     IEComBox7.FilePath = App.Path & "\lookup2.txt"
  527.     IEComBox8.FilePath = App.Path & "\lookup2.txt"
  528.     IEComBox9.FilePath = App.Path & "\lookup2.txt"
  529.     IEComBox10.FilePath = App.Path & "\lookup2.txt"
  530. End Sub
  531. Private Sub IEComBox1_KeyPress(KeyAscii As Integer)
  532.     Call CareForNewValue(KeyAscii)
  533. End Sub
  534. Private Sub IEComBox10_KeyPress(KeyAscii As Integer)
  535.     Call CareForNewValue(KeyAscii)
  536. End Sub
  537. Private Sub IEComBox2_KeyPress(KeyAscii As Integer)
  538.     Call CareForNewValue(KeyAscii)
  539. End Sub
  540. Private Sub IEComBox3_KeyPress(KeyAscii As Integer)
  541.     Call CareForNewValue(KeyAscii)
  542. End Sub
  543. Private Sub IEComBox4_KeyPress(KeyAscii As Integer)
  544.     Call CareForNewValue(KeyAscii)
  545. End Sub
  546. Private Sub IEComBox5_KeyPress(KeyAscii As Integer)
  547.     Call CareForNewValue(KeyAscii)
  548. End Sub
  549. Private Sub IEComBox6_KeyPress(KeyAscii As Integer)
  550.     Call CareForNewValue(KeyAscii)
  551. End Sub
  552. Private Sub IEComBox7_KeyPress(KeyAscii As Integer)
  553.     Call CareForNewValue(KeyAscii)
  554. End Sub
  555. Private Sub IEComBox8_KeyPress(KeyAscii As Integer)
  556.     Call CareForNewValue(KeyAscii)
  557. End Sub
  558. Private Sub IEComBox9_KeyPress(KeyAscii As Integer)
  559.     Call CareForNewValue(KeyAscii)
  560. End Sub
  561. Private Sub optFirstBlock_Click(Index As Integer)
  562. ' We are swapping the assigned look-up file for the first 5 controls
  563. ' dynamically at run-time
  564.     If Index = 0 Then
  565.             IEComBox1.FilePath = App.Path & "\lookup1.txt"
  566.             IEComBox2.FilePath = App.Path & "\lookup1.txt"
  567.             IEComBox3.FilePath = App.Path & "\lookup1.txt"
  568.             IEComBox4.FilePath = App.Path & "\lookup1.txt"
  569.             IEComBox5.FilePath = App.Path & "\lookup1.txt"
  570.         Else
  571.             IEComBox1.FilePath = App.Path & "\lookup2.txt"
  572.             IEComBox2.FilePath = App.Path & "\lookup2.txt"
  573.             IEComBox3.FilePath = App.Path & "\lookup2.txt"
  574.             IEComBox4.FilePath = App.Path & "\lookup2.txt"
  575.             IEComBox5.FilePath = App.Path & "\lookup2.txt"
  576.     End If
  577.     IEComBox1.Refresh
  578.     IEComBox2.Refresh
  579.     IEComBox3.Refresh
  580.     IEComBox4.Refresh
  581.     IEComBox5.Refresh
  582. End Sub
  583. Private Sub optSecondBlock_Click(Index As Integer)
  584. ' We are swapping the assigned look-up file for the controls 6 to 10
  585. ' dynamically at run-time
  586.     If Index = 0 Then
  587.             IEComBox6.FilePath = App.Path & "\lookup1.txt"
  588.             IEComBox7.FilePath = App.Path & "\lookup1.txt"
  589.             IEComBox8.FilePath = App.Path & "\lookup1.txt"
  590.             IEComBox9.FilePath = App.Path & "\lookup1.txt"
  591.             IEComBox10.FilePath = App.Path & "\lookup1.txt"
  592.         Else
  593.             IEComBox6.FilePath = App.Path & "\lookup2.txt"
  594.             IEComBox7.FilePath = App.Path & "\lookup2.txt"
  595.             IEComBox8.FilePath = App.Path & "\lookup2.txt"
  596.             IEComBox9.FilePath = App.Path & "\lookup2.txt"
  597.             IEComBox10.FilePath = App.Path & "\lookup2.txt"
  598.     End If
  599.     IEComBox6.Refresh
  600.     IEComBox7.Refresh
  601.     IEComBox8.Refresh
  602.     IEComBox9.Refresh
  603.     IEComBox10.Refresh
  604. End Sub
  605.