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 / ch05code / seek.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-10-04  |  1.8 KB  |  67 lines
  1. VERSION 4.00
  2. Begin VB.Form Form2 
  3.    Caption         =   "Seek Item Code Entry"
  4.    ClientHeight    =   1305
  5.    ClientLeft      =   2850
  6.    ClientTop       =   2580
  7.    ClientWidth     =   3285
  8.    BeginProperty Font 
  9.       name            =   "MS Sans Serif"
  10.       charset         =   0
  11.       weight          =   400
  12.       size            =   8.25
  13.       underline       =   0   'False
  14.       italic          =   0   'False
  15.       strikethrough   =   0   'False
  16.    EndProperty
  17.    Height          =   1770
  18.    Left            =   2760
  19.    LinkTopic       =   "Form2"
  20.    ScaleHeight     =   1305
  21.    ScaleWidth      =   3285
  22.    Top             =   2205
  23.    Width           =   3465
  24.    Begin VB.CommandButton Command2 
  25.       Caption         =   "Cancel"
  26.       Height          =   375
  27.       Left            =   1800
  28.       TabIndex        =   3
  29.       Top             =   720
  30.       Width           =   1095
  31.    End
  32.    Begin VB.CommandButton Command1 
  33.       Caption         =   "Seek"
  34.       Height          =   375
  35.       Left            =   360
  36.       TabIndex        =   2
  37.       Top             =   720
  38.       Width           =   1215
  39.    End
  40.    Begin VB.TextBox seek1 
  41.       Height          =   285
  42.       Left            =   1800
  43.       TabIndex        =   1
  44.       Top             =   120
  45.       Width           =   1095
  46.    End
  47.    Begin VB.Label Label1 
  48.       Caption         =   "Item Code to Find:"
  49.       Height          =   255
  50.       Left            =   360
  51.       TabIndex        =   0
  52.       Top             =   120
  53.       Width           =   1335
  54.    End
  55. Attribute VB_Name = "Form2"
  56. Attribute VB_Creatable = False
  57. Attribute VB_Exposed = False
  58. Private Sub Command1_Click()
  59.     Seeknm = seek1.Text
  60.     Seekac = 1
  61.     Unload Form2
  62. End Sub
  63. Private Sub Command2_Click()
  64.     Seekac = 0
  65.     Unload Form2
  66. End Sub
  67.