home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_demos
/
vbmmde
/
frmsound.fr_
/
frmsound.fr
Wrap
Text File
|
1994-02-16
|
1KB
|
52 lines
VERSION 2.00
Begin Form frmSound
BackColor = &H00400040&
BorderStyle = 1 'Fixed Single
Caption = "MMDemo Sound Player"
ClientHeight = 615
ClientLeft = 1560
ClientTop = 4440
ClientWidth = 5700
ControlBox = 0 'False
Height = 1020
Left = 1500
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 615
ScaleWidth = 5700
Top = 4095
Width = 5820
Begin MMControl mmSound
Height = 375
Left = 120
TabIndex = 1
Top = 120
Width = 4350
End
Begin CommandButton cmdSndExit
Caption = "E&xit"
Height = 375
Left = 4560
TabIndex = 0
Top = 120
Width = 975
End
End
Option Explicit
Sub cmdSndExit_Click ()
Unload frmSound
End Sub
Sub Form_Load ()
' set properties
frmSound.mmSound.Notify = False
frmSound.mmSound.Wait = True
frmSound.mmSound.Shareable = False
frmSound.mmSound.DeviceType = "WaveAudio"
frmSound.mmSound.FileName = "\mmdemo\ahhhhh.wav"
frmSound.mmSound.Command = "Open"
End Sub