home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Programmer'…arterly (Limited Edition) / Visual_Basic_Programmers_Journal_VB-CD_Quarterly_Limited_Edition_1995.iso / code / ch04code / seek.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-08-15  |  1.5 KB  |  58 lines
  1. VERSION 4.00
  2. Begin VB.Form Form2 
  3.    Caption         =   "Seek Name Entry"
  4.    ClientHeight    =   1305
  5.    ClientLeft      =   2850
  6.    ClientTop       =   2580
  7.    ClientWidth     =   3375
  8.    Height          =   1770
  9.    Left            =   2760
  10.    LinkTopic       =   "Form2"
  11.    ScaleHeight     =   1305
  12.    ScaleWidth      =   3375
  13.    Top             =   2205
  14.    Width           =   3555
  15.    Begin VB.CommandButton Command2 
  16.       Caption         =   "Cancel"
  17.       Height          =   375
  18.       Left            =   1680
  19.       TabIndex        =   3
  20.       Top             =   720
  21.       Width           =   1095
  22.    End
  23.    Begin VB.CommandButton Command1 
  24.       Caption         =   "Seek"
  25.       Height          =   375
  26.       Left            =   240
  27.       TabIndex        =   2
  28.       Top             =   720
  29.       Width           =   1215
  30.    End
  31.    Begin VB.TextBox seek1 
  32.       Height          =   285
  33.       Left            =   1560
  34.       TabIndex        =   1
  35.       Top             =   120
  36.       Width           =   1095
  37.    End
  38.    Begin VB.Label Label1 
  39.       Caption         =   "Name to Find:"
  40.       Height          =   255
  41.       Left            =   360
  42.       TabIndex        =   0
  43.       Top             =   120
  44.       Width           =   1095
  45.    End
  46. Attribute VB_Name = "Form2"
  47. Attribute VB_Creatable = False
  48. Attribute VB_Exposed = False
  49. Private Sub Command1_Click()
  50.     Seeknm = seek1.TEXT
  51.     Seekac = 1
  52.     Unload Form2
  53. End Sub
  54. Private Sub Command2_Click()
  55.     Seekac = 2
  56.     Unload Form2
  57. End Sub
  58.