home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / iproj / ques3.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-06  |  5.4 KB  |  182 lines
  1. VERSION 2.00
  2. Begin Form Ques3 
  3.    BackColor       =   &H00800080&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Question 3"
  6.    ClientHeight    =   3705
  7.    ClientLeft      =   2025
  8.    ClientTop       =   1605
  9.    ClientWidth     =   6900
  10.    ClipControls    =   0   'False
  11.    ControlBox      =   0   'False
  12.    Height          =   4110
  13.    Left            =   1965
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MDIChild        =   -1  'True
  17.    ScaleHeight     =   3705
  18.    ScaleWidth      =   6900
  19.    Top             =   1260
  20.    Width           =   7020
  21.    Begin CheckBox Check1 
  22.       BackColor       =   &H00800080&
  23.       Caption         =   "Better printers"
  24.       ForeColor       =   &H00FFFFFF&
  25.       Height          =   255
  26.       Left            =   840
  27.       TabIndex        =   9
  28.       Top             =   840
  29.       Width           =   5895
  30.    End
  31.    Begin CheckBox Check2 
  32.       BackColor       =   &H00800080&
  33.       Caption         =   "More data storage, so I don't have to achive to floppies"
  34.       ForeColor       =   &H00FFFFFF&
  35.       Height          =   255
  36.       Left            =   840
  37.       TabIndex        =   8
  38.       Top             =   1080
  39.       Width           =   5895
  40.    End
  41.    Begin CheckBox Check3 
  42.       BackColor       =   &H00800080&
  43.       Caption         =   "Organizing agency documents for easier search and retreival"
  44.       ForeColor       =   &H00FFFFFF&
  45.       Height          =   255
  46.       Left            =   840
  47.       TabIndex        =   7
  48.       Top             =   1320
  49.       Width           =   5895
  50.    End
  51.    Begin CheckBox Check4 
  52.       BackColor       =   &H00800080&
  53.       Caption         =   "E-mail survival software or other solutions"
  54.       ForeColor       =   &H00FFFFFF&
  55.       Height          =   255
  56.       Left            =   840
  57.       TabIndex        =   6
  58.       Top             =   1560
  59.       Width           =   5895
  60.    End
  61.    Begin CheckBox Check5 
  62.       BackColor       =   &H00800080&
  63.       Caption         =   "Faxes to and from computer screen"
  64.       ForeColor       =   &H00FFFFFF&
  65.       Height          =   255
  66.       Left            =   840
  67.       TabIndex        =   5
  68.       Top             =   1800
  69.       Width           =   5895
  70.    End
  71.    Begin CommandButton Command1 
  72.       BackColor       =   &H00FFC0FF&
  73.       Caption         =   "Next Question ->"
  74.       Height          =   495
  75.       Left            =   1920
  76.       TabIndex        =   4
  77.       Top             =   3120
  78.       Width           =   1815
  79.    End
  80.    Begin CommandButton Command2 
  81.       BackColor       =   &H00FFC0FF&
  82.       Cancel          =   -1  'True
  83.       Caption         =   "Cancel"
  84.       Default         =   -1  'True
  85.       Height          =   495
  86.       Left            =   3960
  87.       TabIndex        =   3
  88.       Top             =   3120
  89.       Width           =   1695
  90.    End
  91.    Begin CheckBox Check8 
  92.       BackColor       =   &H00800080&
  93.       Caption         =   "Voice mail"
  94.       ForeColor       =   &H00FFFFFF&
  95.       Height          =   255
  96.       Left            =   840
  97.       TabIndex        =   2
  98.       Top             =   2520
  99.       Width           =   5895
  100.    End
  101.    Begin CheckBox Check7 
  102.       BackColor       =   &H00800080&
  103.       Caption         =   "Electronic distribution of materials to press"
  104.       ForeColor       =   &H00FFFFFF&
  105.       Height          =   255
  106.       Left            =   840
  107.       TabIndex        =   1
  108.       Top             =   2280
  109.       Width           =   5895
  110.    End
  111.    Begin CheckBox Check6 
  112.       BackColor       =   &H00800080&
  113.       Caption         =   "Portable computing, so I can work anywhere"
  114.       ForeColor       =   &H00FFFFFF&
  115.       Height          =   255
  116.       Left            =   840
  117.       TabIndex        =   0
  118.       Top             =   2040
  119.       Width           =   5895
  120.    End
  121.    Begin Label Label1 
  122.       BackColor       =   &H00800080&
  123.       Caption         =   "Mark the 3 projects that are most important for the agency
  124. s success"
  125.       ForeColor       =   &H00FFFFFF&
  126.       Height          =   255
  127.       Left            =   360
  128.       TabIndex        =   10
  129.       Top             =   360
  130.       Width           =   6255
  131.    End
  132. Sub Command1_Click ()
  133. question3 = ""
  134. anscount = 0
  135. If check1 = 1 Then
  136.     question3 = question3 + "1;"
  137.     anscount = anscount + 1
  138. End If
  139. If check2 = 1 Then
  140.     question3 = question3 + "2;"
  141.     anscount = anscount + 1
  142. End If
  143. If check3 = 1 Then
  144.     question3 = question3 + "3;"
  145.     anscount = anscount + 1
  146. End If
  147. If check4 = 1 Then
  148.     question3 = question3 + "4;"
  149.     anscount = anscount + 1
  150. End If
  151. If check5 = 1 Then
  152.     question3 = question3 + "5;"
  153.     anscount = anscount + 1
  154. End If
  155. If check6 = 1 Then
  156.     question3 = question3 + "6;"
  157.     anscount = anscount + 1
  158. End If
  159. If check7 = 1 Then
  160.     question3 = question3 + "7;"
  161.     anscount = anscount + 1
  162. End If
  163. If check8 = 1 Then
  164.     question3 = question3 + "8;"
  165.     anscount = anscount + 1
  166. End If
  167. If anscount > 3 Then
  168.     MsgBox ("You may not select more than three options from the list")
  169.     Exit Sub
  170. End If
  171. If question3 <> "" Then
  172.     ques4.Show
  173.     MsgBox ("Please answer the current question before moving on!")
  174. End If
  175. End Sub
  176. Sub Command2_Click ()
  177.     response = MsgBox("Do you really want to close without sending in your responses?", 1, "Are you sure?")
  178.     If response = 1 Then
  179.         End
  180.     End If
  181. End Sub
  182.