home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l405 / 4.ddi / SEEK4.FR_ / SEEK4.bin (.txt)
Encoding:
Visual Basic Form  |  1993-04-28  |  4.3 KB  |  155 lines
  1. VERSION 2.00
  2. Begin Form fSeek 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Seek Parameters"
  6.    ClientHeight    =   1455
  7.    ClientLeft      =   1440
  8.    ClientTop       =   2595
  9.    ClientWidth     =   4335
  10.    Height          =   1860
  11.    Left            =   1380
  12.    LinkTopic       =   "Form2"
  13.    ScaleHeight     =   1455
  14.    ScaleWidth      =   4335
  15.    Top             =   2250
  16.    Width           =   4455
  17.    Begin CommandButton CancelBtn 
  18.       Cancel          =   -1  'True
  19.       Caption         =   "&Cancel"
  20.       Height          =   375
  21.       Left            =   2520
  22.       TabIndex        =   8
  23.       Top             =   960
  24.       Width           =   1215
  25.    End
  26.    Begin CommandButton OKBtn 
  27.       Caption         =   "&OK"
  28.       Default         =   -1  'True
  29.       Height          =   375
  30.       Left            =   600
  31.       TabIndex        =   7
  32.       Top             =   960
  33.       Width           =   1215
  34.    End
  35.    Begin OptionButton cSeekOp 
  36.       BackColor       =   &H00C0C0C0&
  37.       Caption         =   "="
  38.       ForeColor       =   &H00000000&
  39.       Height          =   255
  40.       Index           =   0
  41.       Left            =   1080
  42.       TabIndex        =   5
  43.       Top             =   120
  44.       Value           =   -1  'True
  45.       Width           =   495
  46.    End
  47.    Begin OptionButton cSeekOp 
  48.       BackColor       =   &H00C0C0C0&
  49.       Caption         =   ">="
  50.       ForeColor       =   &H00000000&
  51.       Height          =   255
  52.       Index           =   1
  53.       Left            =   1680
  54.       TabIndex        =   4
  55.       TabStop         =   0   'False
  56.       Top             =   120
  57.       Width           =   615
  58.    End
  59.    Begin OptionButton cSeekOp 
  60.       BackColor       =   &H00C0C0C0&
  61.       Caption         =   "<="
  62.       ForeColor       =   &H00000000&
  63.       Height          =   255
  64.       Index           =   2
  65.       Left            =   2400
  66.       TabIndex        =   3
  67.       TabStop         =   0   'False
  68.       Top             =   120
  69.       Width           =   615
  70.    End
  71.    Begin OptionButton cSeekOp 
  72.       BackColor       =   &H00C0C0C0&
  73.       Caption         =   ">"
  74.       ForeColor       =   &H00000000&
  75.       Height          =   255
  76.       Index           =   3
  77.       Left            =   3120
  78.       TabIndex        =   2
  79.       TabStop         =   0   'False
  80.       Top             =   120
  81.       Width           =   495
  82.    End
  83.    Begin OptionButton cSeekOp 
  84.       BackColor       =   &H00C0C0C0&
  85.       Caption         =   "<"
  86.       ForeColor       =   &H00000000&
  87.       Height          =   255
  88.       Index           =   4
  89.       Left            =   3720
  90.       TabIndex        =   1
  91.       TabStop         =   0   'False
  92.       Top             =   120
  93.       Width           =   495
  94.    End
  95.    Begin TextBox cSeekValue 
  96.       Height          =   285
  97.       Left            =   1080
  98.       TabIndex        =   0
  99.       Top             =   480
  100.       Width           =   3135
  101.    End
  102.    Begin Label ValLabel 
  103.       BackColor       =   &H00C0C0C0&
  104.       Caption         =   "Value:"
  105.       Height          =   255
  106.       Left            =   120
  107.       TabIndex        =   9
  108.       Top             =   480
  109.       Width           =   735
  110.    End
  111.    Begin Label OpLabel 
  112.       BackColor       =   &H00C0C0C0&
  113.       Caption         =   "Operator:"
  114.       Height          =   255
  115.       Left            =   120
  116.       TabIndex        =   6
  117.       Top             =   120
  118.       Width           =   855
  119.    End
  120. Sub CancelBtn_Click ()
  121.   gstSeekValue = ""
  122.   cSeekValue.SetFocus
  123.   Me.Hide
  124. End Sub
  125. Sub cSeekOp_Click (Index As Integer)
  126.   cSeekValue.SetFocus
  127. End Sub
  128. Sub cSeekValue_Change ()
  129.   If cSeekValue = "" Then
  130.     OKBtn.Enabled = False
  131.   Else
  132.     OKBtn.Enabled = True
  133.   End If
  134. End Sub
  135. Sub Form_Load ()
  136.   Left = (Screen.Width - Width) / 2
  137.   Top = (Screen.Height - Height) / 2
  138. End Sub
  139. Sub OKBtn_Click ()
  140.   If cSeekOp(0) = True Then
  141.     gstSeekOperator = "="
  142.   ElseIf cSeekOp(1) = True Then
  143.     gstSeekOperator = ">="
  144.   ElseIf cSeekOp(2) = True Then
  145.     gstSeekOperator = "<="
  146.   ElseIf cSeekOp(3) = True Then
  147.     gstSeekOperator = ">"
  148.   ElseIf cSeekOp(4) = True Then
  149.     gstSeekOperator = "<"
  150.   End If
  151.   gstSeekValue = cSeekValue
  152.   cSeekValue.SetFocus
  153.   Me.Hide
  154. End Sub
  155.