home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l405 / 1.ddi / FIND1.FR_ / FIND1.bin (.txt)
Encoding:
Visual Basic Form  |  1993-04-28  |  2.9 KB  |  110 lines
  1. VERSION 2.00
  2. Begin Form frmFind 
  3.    Caption         =   "Find"
  4.    ClientHeight    =   1395
  5.    ClientLeft      =   2655
  6.    ClientTop       =   3585
  7.    ClientWidth     =   4950
  8.    Height          =   1800
  9.    Left            =   2595
  10.    LinkTopic       =   "Form2"
  11.    ScaleHeight     =   1395
  12.    ScaleWidth      =   4950
  13.    Top             =   3240
  14.    Width           =   5070
  15.    Begin Frame Frame1 
  16.       Caption         =   "Direction"
  17.       Height          =   612
  18.       Left            =   1560
  19.       TabIndex        =   3
  20.       Top             =   720
  21.       Width           =   2052
  22.       Begin OptionButton optDirection 
  23.          Caption         =   "&Down"
  24.          Height          =   252
  25.          Index           =   1
  26.          Left            =   960
  27.          TabIndex        =   5
  28.          Top             =   240
  29.          Value           =   -1  'True
  30.          Width           =   852
  31.       End
  32.       Begin OptionButton optDirection 
  33.          Caption         =   "&Up"
  34.          Height          =   252
  35.          Index           =   0
  36.          Left            =   240
  37.          TabIndex        =   4
  38.          Top             =   240
  39.          Width           =   612
  40.       End
  41.    End
  42.    Begin CheckBox chkCase 
  43.       Caption         =   "Match &Case"
  44.       Height          =   495
  45.       Left            =   120
  46.       TabIndex        =   2
  47.       Top             =   720
  48.       Width           =   1335
  49.    End
  50.    Begin TextBox Text1 
  51.       Height          =   375
  52.       Left            =   1200
  53.       TabIndex        =   1
  54.       Top             =   240
  55.       Width           =   2415
  56.    End
  57.    Begin CommandButton cmdcancel 
  58.       Cancel          =   -1  'True
  59.       Caption         =   "Cancel"
  60.       Height          =   372
  61.       Left            =   3720
  62.       TabIndex        =   7
  63.       Top             =   600
  64.       Width           =   1092
  65.    End
  66.    Begin CommandButton cmdFind 
  67.       Caption         =   "&Find"
  68.       Default         =   -1  'True
  69.       Height          =   372
  70.       Left            =   3720
  71.       TabIndex        =   6
  72.       Top             =   120
  73.       Width           =   1092
  74.    End
  75.    Begin Label Label1 
  76.       Caption         =   "Fi&nd What:"
  77.       Height          =   255
  78.       Left            =   120
  79.       TabIndex        =   0
  80.       Top             =   240
  81.       Width           =   975
  82.    End
  83. Sub chkCase_Click ()
  84.     gFindCase = chkCase.Value
  85. End Sub
  86. Sub cmdcancel_Click ()
  87.     gFindString = Text1.Text
  88.     gFindCase = chkCase.Value
  89.     Unload frmFind
  90. End Sub
  91. Sub cmdFind_Click ()
  92.     gFindString = Text1.Text
  93.     FindIt
  94. End Sub
  95. Sub Form_Load ()
  96.     cmdFind.Enabled = False
  97.     gFindDirection = 1
  98. End Sub
  99. Sub optDirection_Click (index As Integer)
  100.     gFindDirection = index
  101. End Sub
  102. Sub Text1_Change ()
  103.     FirstTime = True
  104.     If Text1.Text = "" Then
  105.         cmdFind.Enabled = False
  106.     Else
  107.         cmdFind.Enabled = True
  108.     End If
  109. End Sub
  110.