home *** CD-ROM | disk | FTP | other *** search
/ Super Net 1 / SUPERNET_1.iso / PC / OTROS / EXTRAS / WINWAIS / VB / SETUP.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-08-30  |  3.6 KB  |  120 lines
  1. VERSION 2.00
  2. Begin Form maxdocs_form 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Max Documents"
  6.    ClientHeight    =   1050
  7.    ClientLeft      =   3015
  8.    ClientTop       =   3390
  9.    ClientWidth     =   3195
  10.    Height          =   1455
  11.    Left            =   2955
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   1050
  17.    ScaleWidth      =   3195
  18.    Top             =   3045
  19.    Width           =   3315
  20.    Begin SSPanel Panel3D3 
  21.       BackColor       =   &H00C0C0C0&
  22.       Caption         =   "Panel3D3"
  23.       Font3D          =   1  'Raised w/light shading
  24.       ForeColor       =   &H00000000&
  25.       Height          =   525
  26.       Left            =   0
  27.       Outline         =   -1  'True
  28.       TabIndex        =   2
  29.       Top             =   0
  30.       Width           =   3195
  31.       Begin SSPanel Panel3D2 
  32.          BackColor       =   &H00C0C0C0&
  33.          Font3D          =   1  'Raised w/light shading
  34.          ForeColor       =   &H00000000&
  35.          Height          =   345
  36.          Left            =   2730
  37.          Outline         =   -1  'True
  38.          TabIndex        =   5
  39.          Top             =   90
  40.          Width           =   315
  41.          Begin SpinButton spin_docs 
  42.             BorderThickness =   0
  43.             Height          =   285
  44.             Left            =   30
  45.             Top             =   30
  46.             Width           =   225
  47.          End
  48.       End
  49.       Begin SSPanel Panel3D1 
  50.          BackColor       =   &H00C0C0C0&
  51.          BevelOuter      =   1  'Inset
  52.          Caption         =   "Max Docs to Retrieve"
  53.          Font3D          =   0  'None
  54.          ForeColor       =   &H00000000&
  55.          Height          =   285
  56.          Left            =   90
  57.          Outline         =   -1  'True
  58.          TabIndex        =   4
  59.          Top             =   120
  60.          Width           =   2055
  61.       End
  62.       Begin SSPanel num_docs 
  63.          BackColor       =   &H00FFFFFF&
  64.          BevelOuter      =   1  'Inset
  65.          Caption         =   "75"
  66.          Font3D          =   1  'Raised w/light shading
  67.          ForeColor       =   &H00000000&
  68.          Height          =   285
  69.          Left            =   2130
  70.          Outline         =   -1  'True
  71.          TabIndex        =   3
  72.          Top             =   120
  73.          Width           =   615
  74.       End
  75.    End
  76.    Begin CommandButton setup_cancel 
  77.       Caption         =   "Cancel"
  78.       Height          =   375
  79.       Left            =   1650
  80.       TabIndex        =   1
  81.       Top             =   600
  82.       Width           =   1095
  83.    End
  84.    Begin CommandButton setup_ok 
  85.       BackColor       =   &H00C0C0FF&
  86.       Caption         =   "Ok"
  87.       Height          =   375
  88.       Left            =   450
  89.       TabIndex        =   0
  90.       Top             =   600
  91.       Width           =   1095
  92.    End
  93. Sub Form_Load ()
  94.     num_docs.Caption = LTrim$(Str$(max_docs))
  95. End Sub
  96. Sub setup_cancel_Click ()
  97.     maxdocs_form.hide
  98. End Sub
  99. Sub setup_ok_Click ()
  100.     max_docs = Val(num_docs.Caption)
  101.     i = set_maxdocs(max_docs)
  102.     maxdocs_form.Hide
  103. End Sub
  104. Sub spin_docs_SpinDown ()
  105.     docs = Val(num_docs.Caption)
  106.     If docs > 5 Then
  107.       docs = docs - 5
  108.     End If
  109.     num_docs.Caption = Str$(docs)
  110.     num_docs.Refresh
  111. End Sub
  112. Sub spin_docs_SpinUp ()
  113.     docs = Val(num_docs.Caption)
  114.     If docs < 96 Then
  115.       docs = docs + 5
  116.     End If
  117.     num_docs.Caption = Str$(docs)
  118.     num_docs.Refresh
  119. End Sub
  120.