home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / iproj / ques5.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-06  |  4.4 KB  |  145 lines
  1. VERSION 2.00
  2. Begin Form QUES5 
  3.    BackColor       =   &H00800080&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Question 5"
  6.    ClientHeight    =   5685
  7.    ClientLeft      =   510
  8.    ClientTop       =   1470
  9.    ClientWidth     =   7785
  10.    ClipControls    =   0   'False
  11.    ControlBox      =   0   'False
  12.    Height          =   6090
  13.    Left            =   450
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MDIChild        =   -1  'True
  17.    MinButton       =   0   'False
  18.    ScaleHeight     =   5685
  19.    ScaleWidth      =   7785
  20.    Top             =   1125
  21.    Width           =   7905
  22.    Begin CommandButton Command2 
  23.       Cancel          =   -1  'True
  24.       Caption         =   "Cancel"
  25.       Default         =   -1  'True
  26.       Height          =   495
  27.       Left            =   3000
  28.       TabIndex        =   8
  29.       Top             =   4920
  30.       Width           =   2055
  31.    End
  32.    Begin CommandButton Command1 
  33.       Caption         =   "Other"
  34.       Height          =   375
  35.       Index           =   7
  36.       Left            =   240
  37.       TabIndex        =   7
  38.       Top             =   4320
  39.       Width           =   7455
  40.    End
  41.    Begin CommandButton Command1 
  42.       Caption         =   "Technical Specialist, Financial Specialist, Editor, or other Professional Specialist"
  43.       Height          =   375
  44.       Index           =   6
  45.       Left            =   240
  46.       TabIndex        =   6
  47.       Top             =   3840
  48.       Width           =   7455
  49.    End
  50.    Begin CommandButton Command1 
  51.       Caption         =   "Clerk or receptionist"
  52.       Height          =   375
  53.       Index           =   5
  54.       Left            =   240
  55.       TabIndex        =   5
  56.       Top             =   3360
  57.       Width           =   7455
  58.    End
  59.    Begin CommandButton Command1 
  60.       Caption         =   "Administrative Assistant, or Production Specialist"
  61.       Height          =   375
  62.       Index           =   4
  63.       Left            =   240
  64.       TabIndex        =   4
  65.       Top             =   2880
  66.       Width           =   7455
  67.    End
  68.    Begin CommandButton Command1 
  69.       Caption         =   "Acct.Coordinator, Asst Account Exec., Project Coordinator, or Exec. Asst."
  70.       Height          =   375
  71.       Index           =   3
  72.       Left            =   240
  73.       TabIndex        =   3
  74.       Top             =   2400
  75.       Width           =   7455
  76.    End
  77.    Begin CommandButton Command1 
  78.       Caption         =   "Account Executive or Project Manager"
  79.       Height          =   375
  80.       Index           =   2
  81.       Left            =   240
  82.       TabIndex        =   2
  83.       Top             =   1920
  84.       Width           =   7455
  85.    End
  86.    Begin CommandButton Command1 
  87.       Caption         =   "Account Supervisor, Account Manager, or Department manager"
  88.       Height          =   375
  89.       Index           =   1
  90.       Left            =   240
  91.       TabIndex        =   1
  92.       Top             =   1440
  93.       Width           =   7455
  94.    End
  95.    Begin CommandButton Command1 
  96.       Caption         =   "Senior Executive"
  97.       Height          =   375
  98.       Index           =   0
  99.       Left            =   240
  100.       TabIndex        =   0
  101.       Top             =   960
  102.       Width           =   7455
  103.    End
  104.    Begin Label Label1 
  105.       BackColor       =   &H00800080&
  106.       Caption         =   "We have guessed at the title hierarchy at WE, and there are too many titles at the agency to list them all.  Select a job title that approximates your level of responsibility."
  107.       ForeColor       =   &H00FFFFFF&
  108.       Height          =   495
  109.       Left            =   240
  110.       TabIndex        =   9
  111.       Top             =   240
  112.       Width           =   7455
  113.    End
  114. Sub Command1_Click (index As Integer)
  115. Question5 = ""
  116. Select Case index
  117.     Case 0
  118.         Question5 = "1"
  119.     Case 1
  120.         Question5 = "2"
  121.     Case 2
  122.         Question5 = "3"
  123.     Case 3
  124.         Question5 = "4"
  125.     Case 4
  126.         Question5 = "5"
  127.     Case 5
  128.         Question5 = "6"
  129.     Case 6
  130.         Question5 = "7"
  131.     Case 7
  132.         Question5 = "8"
  133. End Select
  134. If Question5 <> "" Then
  135.     ques6.Show
  136.     MsgBox ("Please answer the current question before moving on!")
  137. End If
  138. End Sub
  139. Sub Command2_Click ()
  140.     response = MsgBox("Do you really want to close without sending in your responses?", 1, "Are you sure?")
  141.     If response = 1 Then
  142.         End
  143.     End If
  144. End Sub
  145.