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