home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / various / listsr / listsrch.frm < prev    next >
Text File  |  1995-02-11  |  3KB  |  104 lines
  1. VERSION 2.00
  2. Begin Form frmListSearch 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Quicken Style Incremental Search Demo"
  5.    ClientHeight    =   2805
  6.    ClientLeft      =   1095
  7.    ClientTop       =   1845
  8.    ClientWidth     =   6780
  9.    ClipControls    =   0   'False
  10.    ControlBox      =   0   'False
  11.    Height          =   3210
  12.    Left            =   1035
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   2805
  17.    ScaleWidth      =   6780
  18.    Top             =   1500
  19.    Width           =   6900
  20.    Begin ListBox lstSearch 
  21.       BackColor       =   &H00FFFFFF&
  22.       Height          =   1980
  23.       Left            =   150
  24.       Sorted          =   -1  'True
  25.       TabIndex        =   0
  26.       TabStop         =   0   'False
  27.       Top             =   645
  28.       Width           =   5100
  29.    End
  30.    Begin TextBox txtSearch 
  31.       BackColor       =   &H00FFFFFF&
  32.       Height          =   300
  33.       HideSelection   =   0   'False
  34.       Left            =   1380
  35.       MaxLength       =   65
  36.       MousePointer    =   3  'I-Beam
  37.       TabIndex        =   1
  38.       Top             =   195
  39.       Width           =   3840
  40.    End
  41.    Begin CommandButton cmdClose 
  42.       Caption         =   "&Close"
  43.       Height          =   330
  44.       Left            =   5400
  45.       TabIndex        =   3
  46.       TabStop         =   0   'False
  47.       Top             =   150
  48.       Width           =   1200
  49.    End
  50.    Begin Label Label1 
  51.       AutoSize        =   -1  'True
  52.       BackStyle       =   0  'Transparent
  53.       Caption         =   "&Search Text:"
  54.       Height          =   195
  55.       Left            =   150
  56.       TabIndex        =   2
  57.       Top             =   255
  58.       Width           =   1110
  59.    End
  60. End
  61.  
  62. Option Explicit
  63.  
  64. Sub cmdClose_Click ()
  65.   Call LISTSRCH_cmdClose_Click
  66. End Sub
  67.  
  68. Sub Form_Activate ()
  69.   LISTSRCH_Activate
  70. End Sub
  71.  
  72. Sub Form_Load ()
  73.   LISTSRCH_Load
  74. End Sub
  75.  
  76. Sub lstSearch_Click ()
  77.   LISTSRCH_lstSearch_Click lstSearch, txtSearch
  78. End Sub ' lstSearch_Click
  79.  
  80. Sub lstSearch_KeyDown (KeyCode As Integer, Shift As Integer)
  81.   LISTSRCH_lstSearch_KeyDown
  82. End Sub
  83.  
  84. Sub lstSearch_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  85.   LISTSRCH_lstSearch_MouseDown
  86. End Sub
  87.  
  88. Sub txtSearch_Change ()
  89.   LISTSRCH_txtSearch_Change lstSearch, txtSearch
  90. End Sub ' txtSearch_Change
  91.  
  92. Sub txtSearch_GotFocus ()
  93.   LISTSRCH_txtSearch_GotFocus
  94. End Sub
  95.  
  96. Sub txtSearch_KeyDown (KeyCode As Integer, Shift As Integer)
  97.   LISTSRCH_txtSearch_KeyDown KeyCode
  98. End Sub
  99.  
  100. Sub txtSearch_KeyPress (KeyAscii As Integer)
  101.   LISTSRCH_txtSearch_KeyPress KeyAscii
  102. End Sub
  103.  
  104.