home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / fldpak / fpdemo2s.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-11-08  |  3.4 KB  |  118 lines
  1. VERSION 2.00
  2. Begin Form SortFrm 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Select Sort Field"
  5.    ClientHeight    =   2745
  6.    ClientLeft      =   3390
  7.    ClientTop       =   3825
  8.    ClientWidth     =   2940
  9.    ClipControls    =   0   'False
  10.    ControlBox      =   0   'False
  11.    Height          =   3150
  12.    Left            =   3330
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   2745
  17.    ScaleWidth      =   2940
  18.    Top             =   3480
  19.    Width           =   3060
  20.    Begin CommandButton cmdCancel 
  21.       Caption         =   "Cancel"
  22.       Height          =   315
  23.       Left            =   1560
  24.       TabIndex        =   8
  25.       Top             =   1800
  26.       Width           =   1155
  27.    End
  28.    Begin CommandButton cmdOK 
  29.       Caption         =   "OK"
  30.       Height          =   315
  31.       Left            =   1560
  32.       TabIndex        =   7
  33.       Top             =   720
  34.       Width           =   1155
  35.    End
  36.    Begin OptionButton optRadioButton 
  37.       Caption         =   "Phone"
  38.       Height          =   255
  39.       Index           =   6
  40.       Left            =   180
  41.       TabIndex        =   6
  42.       Top             =   2340
  43.       Width           =   1215
  44.    End
  45.    Begin OptionButton optRadioButton 
  46.       Caption         =   "Area Code"
  47.       Height          =   255
  48.       Index           =   5
  49.       Left            =   180
  50.       TabIndex        =   5
  51.       Top             =   1980
  52.       Width           =   1215
  53.    End
  54.    Begin OptionButton optRadioButton 
  55.       Caption         =   "Zip"
  56.       Height          =   255
  57.       Index           =   4
  58.       Left            =   180
  59.       TabIndex        =   4
  60.       Top             =   1620
  61.       Width           =   1215
  62.    End
  63.    Begin OptionButton optRadioButton 
  64.       Caption         =   "State"
  65.       Height          =   255
  66.       Index           =   3
  67.       Left            =   180
  68.       TabIndex        =   3
  69.       Top             =   1260
  70.       Width           =   1215
  71.    End
  72.    Begin OptionButton optRadioButton 
  73.       Caption         =   "City"
  74.       Height          =   255
  75.       Index           =   2
  76.       Left            =   180
  77.       TabIndex        =   2
  78.       Top             =   900
  79.       Width           =   1215
  80.    End
  81.    Begin OptionButton optRadioButton 
  82.       Caption         =   "Address"
  83.       Height          =   255
  84.       Index           =   1
  85.       Left            =   180
  86.       TabIndex        =   1
  87.       Top             =   540
  88.       Width           =   1215
  89.    End
  90.    Begin OptionButton optRadioButton 
  91.       Caption         =   "Name"
  92.       Height          =   255
  93.       Index           =   0
  94.       Left            =   180
  95.       TabIndex        =   0
  96.       Top             =   180
  97.       Width           =   1215
  98.    End
  99. Option Explicit
  100. Dim selected_field As Integer
  101. Sub cmdCancel_Click ()
  102.     SortForm_OK_or_Cancel = 1
  103.     Unload SortFrm
  104. End Sub
  105. Sub cmdOK_Click ()
  106.     SortField = selected_field
  107.     EditFrm.lblCurrentSortField.Caption = optRadioButton(selected_field - 1).Caption
  108.     SortForm_OK_or_Cancel = 0
  109.     Unload SortFrm
  110. End Sub
  111. Sub Form_Load ()
  112.     selected_field = SortField
  113.     optRadioButton(selected_field - 1).Value = True
  114. End Sub
  115. Sub optRadioButton_Click (Index As Integer)
  116.     selected_field = Index + 1
  117. End Sub
  118.