home *** CD-ROM | disk | FTP | other *** search
/ Tools / WinSN5.0Ver.iso / PVb5.0 / VB / SAMPLES / PGUIDE / MDI / FIND.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-01-20  |  4.4 KB  |  159 lines
  1. VERSION 5.00
  2. Begin VB.Form frmFind 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "
  5.    ClientHeight    =   1395
  6.    ClientLeft      =   2655
  7.    ClientTop       =   3585
  8.    ClientWidth     =   5745
  9.    LinkTopic       =   "Form2"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   1395
  13.    ScaleWidth      =   5745
  14.    Begin VB.Frame Frame1 
  15.       Caption         =   "
  16.       Height          =   612
  17.       Left            =   1920
  18.       TabIndex        =   3
  19.       Top             =   720
  20.       Width           =   2535
  21.       Begin VB.OptionButton optDirection 
  22.          Caption         =   "
  23. (&D)"
  24.          Height          =   252
  25.          Index           =   1
  26.          Left            =   1320
  27.          TabIndex        =   5
  28.          ToolTipText     =   "
  29.          Top             =   240
  30.          Value           =   -1  'True
  31.          Width           =   1095
  32.       End
  33.       Begin VB.OptionButton optDirection 
  34.          Caption         =   "
  35. (&U)"
  36.          Height          =   252
  37.          Index           =   0
  38.          Left            =   240
  39.          TabIndex        =   4
  40.          ToolTipText     =   "
  41.          Top             =   240
  42.          Width           =   1095
  43.       End
  44.    End
  45.    Begin VB.CheckBox chkCase 
  46.       Caption         =   "
  47. (&C)"
  48.       Height          =   495
  49.       Left            =   120
  50.       TabIndex        =   2
  51.       ToolTipText     =   "
  52.       Top             =   720
  53.       Width           =   1695
  54.    End
  55.    Begin VB.TextBox Text1 
  56.       BeginProperty Font 
  57.          Name            =   "
  58.          Size            =   9
  59.          Charset         =   134
  60.          Weight          =   700
  61.          Underline       =   0   'False
  62.          Italic          =   0   'False
  63.          Strikethrough   =   0   'False
  64.       EndProperty
  65.       Height          =   500
  66.       Left            =   1680
  67.       TabIndex        =   1
  68.       ToolTipText     =   "
  69.       Top             =   120
  70.       Width           =   2775
  71.    End
  72.    Begin VB.CommandButton cmdcancel 
  73.       Cancel          =   -1  'True
  74.       Caption         =   "
  75.       Height          =   372
  76.       Left            =   4560
  77.       TabIndex        =   7
  78.       ToolTipText     =   "
  79.       Top             =   600
  80.       Width           =   1092
  81.    End
  82.    Begin VB.CommandButton cmdFind 
  83.       Caption         =   "
  84. (&F)"
  85.       Default         =   -1  'True
  86.       Height          =   372
  87.       Left            =   4560
  88.       TabIndex        =   6
  89.       ToolTipText     =   "
  90.       Top             =   120
  91.       Width           =   1092
  92.    End
  93.    Begin VB.Label Label1 
  94.       Caption         =   "
  95. (&N):"
  96.       Height          =   255
  97.       Left            =   120
  98.       TabIndex        =   0
  99.       Top             =   240
  100.       Width           =   1335
  101.    End
  102. Attribute VB_Name = "frmFind"
  103. Attribute VB_GlobalNameSpace = False
  104. Attribute VB_Creatable = False
  105. Attribute VB_PredeclaredId = True
  106. Attribute VB_Exposed = False
  107. '*** 
  108.                ***
  109. '*** 
  110.  MDI 
  111.           ***
  112. '*** 
  113.  gFindCase (
  114. ); ***
  115. '*** gFindString (
  116. );                    ***
  117. '*** gFindDirection (
  118. );             ***
  119. '*** gFirstTime (
  120. )            ***
  121. '**************************************************
  122. Option Explicit
  123. Private Sub chkCase_Click()
  124.     ' 
  125.     gFindCase = chkCase.Value
  126. End Sub
  127. Private Sub cmdCancel_Click()
  128.     ' 
  129.     gFindString = Text1.Text
  130.     gFindCase = chkCase.Value
  131.     ' 
  132.     Unload frmFind
  133. End Sub
  134. Private Sub cmdFind_Click()
  135.     ' 
  136.     gFindString = Text1.Text
  137.     FindIt
  138. End Sub
  139. Private Sub Form_Load()
  140.     ' 
  141.     cmdFind.Enabled = False
  142.     ' 
  143.     optDirection(gFindDirection).Value = 1
  144. End Sub
  145. Private Sub optDirection_Click(index As Integer)
  146.     ' 
  147.     gFindDirection = index
  148. End Sub
  149. Private Sub Text1_Change()
  150.     ' 
  151.     gFirstTime = True
  152.     ' 
  153.     If Text1.Text = "" Then
  154.         cmdFind.Enabled = False
  155.     Else
  156.         cmdFind.Enabled = True
  157.     End If
  158. End Sub
  159.