listsrch.frm

在Text中实现快速增量查询 用VB编 的,希望大家喜欢

VERSION 4.00
Begin VB.Form frmListSearch 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Quicken Style Incremental Search Demo"
   ClientHeight    =   2805
   ClientLeft      =   1095
   ClientTop       =   1845
   ClientWidth     =   6780
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   BeginProperty Font 
      name            =   "MS Sans Serif"
      charset         =   0
      weight          =   700
      size            =   8.25
      underline       =   0   'False
      italic          =   0   'False
      strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H80000008&
   Height          =   3210
   Left            =   1035
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2805
   ScaleWidth      =   6780
   Top             =   1500
   Width           =   6900
   Begin VB.ListBox lstSearch 
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      Height          =   1980
      Left            =   150
      Sorted          =   -1  'True
      TabIndex        =   0
      TabStop         =   0   'False
      Top             =   645
      Width           =   5100
   End
   Begin VB.TextBox txtSearch 
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      Height          =   300
      HideSelection   =   0   'False
      Left            =   1380
      MaxLength       =   65
      MousePointer    =   3  'I-Beam
      TabIndex        =   1
      Top             =   195
      Width           =   3840
   End
   Begin VB.CommandButton cmdClose 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "&Close"
      Height          =   330
      Left            =   5400
      TabIndex        =   3
      TabStop         =   0   'False
      Top             =   150
      Width           =   1200
   End
   Begin VB.Label Label1 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   "&Search Text:"
      ForeColor       =   &H80000008&
      Height          =   195
      Left            =   150
      TabIndex        =   2
      Top             =   255
      Width           =   1110
   End
End
Attribute VB_Name = "frmListSearch"
Attribute VB_Creatable = False
Attribute VB_Exposed = False

Option Explicit

Private Sub cmdClose_Click()
  Call LISTSRCH_cmdClose_Click
End Sub

Private Sub Form_Activate()
  LISTSRCH_Activate
End Sub

Private Sub Form_Load()
  LISTSRCH_Load
End Sub

Private Sub lstSearch_Click()
  LISTSRCH_lstSearch_Click lstSearch, txtSearch
End Sub ' lstSearch_Click

Private Sub lstSearch_KeyDown(KeyCode As Integer, Shift As Integer)
  LISTSRCH_lstSearch_KeyDown
End Sub

Private Sub lstSearch_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  LISTSRCH_lstSearch_MouseDown
End Sub

Private Sub txtSearch_Change()
  LISTSRCH_txtSearch_Change lstSearch, txtSearch
End Sub ' txtSearch_Change

Private Sub txtSearch_GotFocus()
  LISTSRCH_txtSearch_GotFocus
End Sub

Private Sub txtSearch_KeyDown(KeyCode As Integer, Shift As Integer)
  LISTSRCH_txtSearch_KeyDown KeyCode
End Sub

Private Sub txtSearch_KeyPress(KeyAscii As Integer)
  LISTSRCH_txtSearch_KeyPress KeyAscii
End Sub