home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / fbifile / backgrou.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-08  |  3.5 KB  |  121 lines
  1. VERSION 2.00
  2. Begin Form Background 
  3.    Caption         =   "Background"
  4.    ClientHeight    =   4020
  5.    ClientLeft      =   1050
  6.    ClientTop       =   1890
  7.    ClientWidth     =   7365
  8.    ControlBox      =   0   'False
  9.    Height          =   4425
  10.    Left            =   990
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   4020
  16.    ScaleWidth      =   7365
  17.    Top             =   1545
  18.    Width           =   7485
  19.    Begin CommandButton Command2 
  20.       Cancel          =   -1  'True
  21.       Caption         =   "Quit"
  22.       Height          =   495
  23.       Left            =   5640
  24.       TabIndex        =   9
  25.       Top             =   2160
  26.       Width           =   1575
  27.    End
  28.    Begin TextBox state 
  29.       Height          =   300
  30.       Left            =   2400
  31.       TabIndex        =   4
  32.       Top             =   2160
  33.       Width           =   2500
  34.    End
  35.    Begin TextBox city 
  36.       Height          =   300
  37.       Left            =   2400
  38.       TabIndex        =   3
  39.       Top             =   1560
  40.       Width           =   2505
  41.    End
  42.    Begin CommandButton Command1 
  43.       Caption         =   "Continue"
  44.       Height          =   495
  45.       Left            =   5640
  46.       TabIndex        =   5
  47.       Top             =   960
  48.       Width           =   1575
  49.    End
  50.    Begin TextBox street 
  51.       Height          =   300
  52.       Left            =   2400
  53.       TabIndex        =   2
  54.       Top             =   960
  55.       Width           =   2500
  56.    End
  57.    Begin TextBox username 
  58.       Height          =   300
  59.       Left            =   2400
  60.       TabIndex        =   1
  61.       Top             =   360
  62.       Width           =   2505
  63.    End
  64.    Begin Label Label4 
  65.       Caption         =   "Your state"
  66.       Height          =   255
  67.       Left            =   600
  68.       TabIndex        =   8
  69.       Top             =   2200
  70.       Width           =   975
  71.    End
  72.    Begin Label Label3 
  73.       Caption         =   "Your city"
  74.       Height          =   250
  75.       Left            =   600
  76.       TabIndex        =   7
  77.       Top             =   1600
  78.       Width           =   855
  79.    End
  80.    Begin Label Label2 
  81.       Caption         =   "Your street address"
  82.       Height          =   250
  83.       Left            =   600
  84.       TabIndex        =   6
  85.       Top             =   1000
  86.       Width           =   1695
  87.    End
  88.    Begin Label Label1 
  89.       Caption         =   "Your name"
  90.       Height          =   250
  91.       Left            =   600
  92.       TabIndex        =   0
  93.       Top             =   400
  94.       Width           =   1095
  95.    End
  96. Sub command1_click ()
  97.     Background.Hide
  98.     Nickname.Show
  99. End Sub
  100. Sub Command2_Click ()
  101.     End
  102. End Sub
  103. Sub Form_Activate ()
  104.     'The following command plays the .wav sound.
  105.     'The function MUST be declared in the global module.
  106.     'The flags (number in parantheses) work as follows:
  107.     '0  wait until sound finishes before returning
  108.     '1  return immediately - sound can be stopped with
  109.     '   i% =sndplaysound(0&, 0)
  110.     '2  play no default if it can't find the WAV
  111.     '4  play sound over and over, must be combined with 1 by calling the flag
  112.     '   i% =sndplaysound(snd_async or snd_loop, 0) it can also be stopped with '(0%,0)
  113.     '5 returns false immediately if sound is already playing.
  114.     i% = sndplaysound("backgrnd.wav", 1)
  115.     username.text = ""
  116.     street.text = ""
  117.     city.text = ""
  118.     state.text = ""
  119.     username.SetFocus
  120. End Sub
  121.