home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / fbifile / instruct.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-08  |  2.4 KB  |  77 lines
  1. VERSION 2.00
  2. Begin Form Instructions 
  3.    Caption         =   "Instructions"
  4.    ClientHeight    =   2640
  5.    ClientLeft      =   1695
  6.    ClientTop       =   2865
  7.    ClientWidth     =   5850
  8.    ControlBox      =   0   'False
  9.    Height          =   3045
  10.    Left            =   1635
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form3"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   2640
  16.    ScaleWidth      =   5850
  17.    Top             =   2520
  18.    Width           =   5970
  19.    Begin CommandButton Command2 
  20.       Caption         =   "Forget it!  It's none of your business"
  21.       Height          =   375
  22.       Left            =   720
  23.       TabIndex        =   3
  24.       Top             =   2160
  25.       Width           =   4335
  26.    End
  27.    Begin CommandButton Command1 
  28.       Caption         =   "Yes, I will be completely honest"
  29.       Height          =   375
  30.       Left            =   720
  31.       TabIndex        =   2
  32.       Top             =   1680
  33.       Width           =   4335
  34.    End
  35.    Begin Label Label2 
  36.       Alignment       =   2  'Center
  37.       Caption         =   "To get the most enjoyment, be honest."
  38.       Height          =   375
  39.       Left            =   360
  40.       TabIndex        =   1
  41.       Top             =   1200
  42.       Width           =   4995
  43.    End
  44.    Begin Label Label1 
  45.       Alignment       =   2  'Center
  46.       Caption         =   "Answer ALL of the following questions."
  47.       Height          =   375
  48.       Left            =   360
  49.       TabIndex        =   0
  50.       Top             =   600
  51.       Width           =   4995
  52.    End
  53. Sub command1_click ()
  54.     Unload Instructions
  55.     fbifile.Hide
  56.     Background.Show
  57. End Sub
  58. Sub Command2_Click ()
  59.     End
  60. End Sub
  61. Sub Form_Activate ()
  62.     'This plays the WAV:
  63.     i% = sndplaysound("intro.wav", 1)
  64.     'The flags work as follows:
  65.     '0 - wait until sound finishes before returning
  66.     '1 - return immediately - sound can be stopped with
  67.     '    i% =sndplaysound(0&, 0)
  68.     '2 - play no default if it can't find the WAV
  69.     '4 - play sound over and over, must be combined with 1 by calling the flag
  70.     '    i% =sndplaysound(snd_async or snd_loop, 0)
  71.     '    it can also be stopped with (0%,0)
  72.     '5 - returns false immediately if sound is already playing.
  73. End Sub
  74. Sub Form_Load ()
  75.     fbifile.Show
  76. End Sub
  77.