home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MORE-MultiMedia
/
mmultimedia.iso
/
midplay
/
playwav.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1992-11-29
|
3KB
|
66 lines
Form1
PLAYWAV
Form1
Picture1
Name1
Name2
Form_Click
SoundName
wFlagL
SND_ASYNC
SND_NODEFAULT
sndPlaySound
MaxId
OptButton
Visible
Command1_ClickM
index
Text1_Change
Form_DblClick
Picture1
Pict7
vsize
Bottom
Picture
hsize
Right
Height
Width>
BackColor
@ Form_Load
Picture1_Click
Name1E
Name1_Change
PictureName
Name2
filenumber5
reclen
ICONS^
Arraym
ActualIcons
ActualWavs
remaining
entries
Name2_Change
Form_Load
ICONS.DAT"
Open file for input.
Check for end of file.t
Read data.r
Increment index.a
Close data file.d
WAVS.DAT
Open file for input.t
Check for end of file.t
Read data.r
Increment index.a
Close data file.d
if we have less than 114, use what we have to
fill the remaining entries.
Picture1_Click
make each series of icons different (yeah, there are better ways to do this...)
drop the .ICO
drop the path, if there is one
drop the .WAV
drop the path, if there is ones