home *** CD-ROM | disk | FTP | other *** search
/ Tools / WinSN5.0Ver.iso / PVb5.0 / VB / SAMPLES / VISDATA / SEEK.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-01-09  |  5.5 KB  |  192 lines
  1. VERSION 5.00
  2. Begin VB.Form frmSeek 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "
  5.    ClientHeight    =   1950
  6.    ClientLeft      =   1440
  7.    ClientTop       =   2595
  8.    ClientWidth     =   3390
  9.    BeginProperty Font 
  10.       Name            =   "
  11.       Size            =   9
  12.       Charset         =   0
  13.       Weight          =   400
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    Height          =   2415
  19.    HelpContextID   =   2016143
  20.    Icon            =   "SEEK.frx":0000
  21.    Left            =   1380
  22.    LinkTopic       =   "Form2"
  23.    LockControls    =   -1  'True
  24.    MaxButton       =   0   'False
  25.    MinButton       =   0   'False
  26.    ScaleHeight     =   1950
  27.    ScaleWidth      =   3390
  28.    ShowInTaskbar   =   0   'False
  29.    StartUpPosition =   1  'CenterOwner
  30.    Top             =   2190
  31.    Width           =   3510
  32.    Begin VB.CommandButton cmdCancel 
  33.       Cancel          =   -1  'True
  34.       Caption         =   "
  35. (&C)"
  36.       Height          =   375
  37.       Left            =   1800
  38.       MaskColor       =   &H00000000&
  39.       TabIndex        =   8
  40.       Top             =   1440
  41.       Width           =   1455
  42.    End
  43.    Begin VB.CommandButton cmdOK 
  44.       Caption         =   "
  45. (&O)"
  46.       Default         =   -1  'True
  47.       Height          =   375
  48.       Left            =   120
  49.       MaskColor       =   &H00000000&
  50.       TabIndex        =   7
  51.       Top             =   1440
  52.       Width           =   1455
  53.    End
  54.    Begin VB.OptionButton optSeekOperator 
  55.       Caption         =   "="
  56.       Height          =   255
  57.       Index           =   0
  58.       Left            =   120
  59.       MaskColor       =   &H00000000&
  60.       TabIndex        =   0
  61.       Top             =   360
  62.       Value           =   -1  'True
  63.       Width           =   495
  64.    End
  65.    Begin VB.OptionButton optSeekOperator 
  66.       Caption         =   ">="
  67.       Height          =   255
  68.       Index           =   1
  69.       Left            =   720
  70.       MaskColor       =   &H00000000&
  71.       TabIndex        =   1
  72.       TabStop         =   0   'False
  73.       Top             =   360
  74.       Width           =   615
  75.    End
  76.    Begin VB.OptionButton optSeekOperator 
  77.       Caption         =   "<="
  78.       Height          =   255
  79.       Index           =   2
  80.       Left            =   1440
  81.       MaskColor       =   &H00000000&
  82.       TabIndex        =   2
  83.       TabStop         =   0   'False
  84.       Top             =   360
  85.       Width           =   615
  86.    End
  87.    Begin VB.OptionButton optSeekOperator 
  88.       Caption         =   ">"
  89.       Height          =   255
  90.       Index           =   3
  91.       Left            =   2160
  92.       MaskColor       =   &H00000000&
  93.       TabIndex        =   3
  94.       TabStop         =   0   'False
  95.       Top             =   360
  96.       Width           =   495
  97.    End
  98.    Begin VB.OptionButton optSeekOperator 
  99.       Caption         =   "<"
  100.       Height          =   255
  101.       Index           =   4
  102.       Left            =   2760
  103.       MaskColor       =   &H00000000&
  104.       TabIndex        =   4
  105.       TabStop         =   0   'False
  106.       Top             =   360
  107.       Width           =   495
  108.    End
  109.    Begin VB.TextBox txtSeekValue 
  110.       Height          =   285
  111.       Left            =   120
  112.       TabIndex        =   6
  113.       Top             =   960
  114.       Width           =   3135
  115.    End
  116.    Begin VB.Label lblLabels 
  117.       AutoSize        =   -1  'True
  118.       Caption         =   "
  119.       Height          =   195
  120.       Index           =   1
  121.       Left            =   120
  122.       TabIndex        =   5
  123.       Top             =   720
  124.       Width           =   495
  125.    End
  126.    Begin VB.Label lblLabels 
  127.       AutoSize        =   -1  'True
  128.       Caption         =   "
  129.       Height          =   195
  130.       Index           =   0
  131.       Left            =   120
  132.       TabIndex        =   9
  133.       Top             =   120
  134.       Width           =   765
  135.    End
  136. Attribute VB_Name = "frmSeek"
  137. Attribute VB_Base = "0{529A44C5-C9E1-11CF-9ED2-00AA00574745}"
  138. Attribute VB_GlobalNameSpace = False
  139. Attribute VB_Creatable = False
  140. Attribute VB_TemplateDerived = False
  141. Attribute VB_PredeclaredId = True
  142. Attribute VB_Exposed = False
  143. Attribute VB_Customizable = False
  144. Option Explicit
  145. '>>>>>>>>>>>>>>>>>>>>>>>>
  146. Const FORMCAPTION = "
  147. Const BUTTON1 = "
  148. (&O)"
  149. Const BUTTON2 = "
  150. (&C)"
  151. Const Label1 = "
  152. Const Label2 = "
  153. '>>>>>>>>>>>>>>>>>>>>>>>>
  154. Private Sub cmdCancel_Click()
  155.   gsSeekValue = vbNullString
  156.   txtSeekValue.SetFocus
  157.   Me.Hide
  158. End Sub
  159. Private Sub optSeekOperator_Click(Index As Integer)
  160.   txtSeekValue.SetFocus
  161. End Sub
  162. Private Sub txtSeekValue_Change()
  163.   If Len(txtSeekValue.Text) = 0 Then
  164.     cmdOK.Enabled = False
  165.   Else
  166.     cmdOK.Enabled = True
  167.   End If
  168. End Sub
  169. Private Sub Form_Load()
  170.   Me.Caption = FORMCAPTION
  171.   cmdOK.Caption = BUTTON1
  172.   cmdCancel.Caption = BUTTON2
  173.   lblLabels(0).Caption = Label1
  174.   lblLabels(1).Caption = Label2
  175. End Sub
  176. Private Sub cmdOK_Click()
  177.   If optSeekOperator(0).Value Then
  178.     gsSeekOperator = "="
  179.   ElseIf optSeekOperator(1).Value Then
  180.     gsSeekOperator = ">="
  181.   ElseIf optSeekOperator(2).Value Then
  182.     gsSeekOperator = "<="
  183.   ElseIf optSeekOperator(3).Value Then
  184.     gsSeekOperator = ">"
  185.   ElseIf optSeekOperator(4).Value Then
  186.     gsSeekOperator = "<"
  187.   End If
  188.   gsSeekValue = txtSeekValue
  189.   txtSeekValue.SetFocus
  190.   Me.Hide
  191. End Sub
  192.