Programming Tool Box/SIMS_2.iso/code/various/listsr/listcode.txt

Text File | 1995-02-26 | 906b | 44 lines

Option Explicit

Sub cmdClose_Click ()
  Call LISTSRCH_cmdClose_Click
End Sub

Sub Form_Activate ()
  LISTSRCH_Activate
End Sub

Sub Form_Load ()
  LISTSRCH_Load
End Sub

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

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

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

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

Sub txtSearch_GotFocus ()
  LISTSRCH_txtSearch_GotFocus
End Sub

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

Sub txtSearch_KeyPress (KeyAscii As Integer)
  LISTSRCH_txtSearch_KeyPress KeyAscii
End Sub