home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / source / chap25 / mdi / find.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-07-26  |  3.5 KB  |  125 lines
  1. VERSION 4.00
  2. Begin VB.Form frmFind 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Find"
  5.    ClientHeight    =   1395
  6.    ClientLeft      =   2655
  7.    ClientTop       =   3585
  8.    ClientWidth     =   4950
  9.    BeginProperty Font 
  10.       name            =   "MS Sans Serif"
  11.       charset         =   1
  12.       weight          =   700
  13.       size            =   8.25
  14.       underline       =   0   'False
  15.       italic          =   0   'False
  16.       strikethrough   =   0   'False
  17.    EndProperty
  18.    Height          =   1800
  19.    Left            =   2595
  20.    LinkTopic       =   "Form2"
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    ScaleHeight     =   1395
  24.    ScaleWidth      =   4950
  25.    Top             =   3240
  26.    Width           =   5070
  27.    Begin VB.Frame Frame1 
  28.       Caption         =   "Direction"
  29.       Height          =   612
  30.       Left            =   1560
  31.       TabIndex        =   3
  32.       Top             =   720
  33.       Width           =   2052
  34.       Begin VB.OptionButton optDirection 
  35.          Caption         =   "&Down"
  36.          Height          =   252
  37.          Index           =   1
  38.          Left            =   960
  39.          TabIndex        =   5
  40.          Top             =   240
  41.          Value           =   -1  'True
  42.          Width           =   852
  43.       End
  44.       Begin VB.OptionButton optDirection 
  45.          Caption         =   "&Up"
  46.          Height          =   252
  47.          Index           =   0
  48.          Left            =   240
  49.          TabIndex        =   4
  50.          Top             =   240
  51.          Width           =   612
  52.       End
  53.    End
  54.    Begin VB.CheckBox chkCase 
  55.       Caption         =   "Match &Case"
  56.       Height          =   495
  57.       Left            =   120
  58.       TabIndex        =   2
  59.       Top             =   720
  60.       Width           =   1335
  61.    End
  62.    Begin VB.TextBox Text1 
  63.       Height          =   500
  64.       Left            =   1200
  65.       TabIndex        =   1
  66.       Top             =   120
  67.       Width           =   2415
  68.    End
  69.    Begin VB.CommandButton cmdcancel 
  70.       Cancel          =   -1  'True
  71.       Caption         =   "Cancel"
  72.       Height          =   372
  73.       Left            =   3720
  74.       TabIndex        =   7
  75.       Top             =   600
  76.       Width           =   1092
  77.    End
  78.    Begin VB.CommandButton cmdFind 
  79.       Caption         =   "&Find"
  80.       Default         =   -1  'True
  81.       Height          =   372
  82.       Left            =   3720
  83.       TabIndex        =   6
  84.       Top             =   120
  85.       Width           =   1092
  86.    End
  87.    Begin VB.Label Label1 
  88.       Caption         =   "Fi&nd What:"
  89.       Height          =   255
  90.       Left            =   120
  91.       TabIndex        =   0
  92.       Top             =   240
  93.       Width           =   975
  94.    End
  95. Attribute VB_Name = "frmFind"
  96. Attribute VB_Creatable = False
  97. Attribute VB_Exposed = False
  98. Private Sub chkCase_Click()
  99.     gFindCase = chkCase.VALUE
  100. End Sub
  101. Private Sub cmdcancel_Click()
  102.     gFindString = Text1.TEXT
  103.     gFindCase = chkCase.VALUE
  104.     Unload frmFind
  105. End Sub
  106. Private Sub cmdFind_Click()
  107.     gFindString = Text1.TEXT
  108.     FindIt
  109. End Sub
  110. Private Sub Form_Load()
  111.     cmdFind.Enabled = False
  112.     optDirection(gFindDirection).VALUE = 1
  113. End Sub
  114. Private Sub optDirection_Click(index As Integer)
  115.     gFindDirection = index
  116. End Sub
  117. Private Sub Text1_Change()
  118.     FirstTime = True
  119.     If Text1.TEXT = "" Then
  120.         cmdFind.Enabled = False
  121.     Else
  122.         cmdFind.Enabled = True
  123.     End If
  124. End Sub
  125.