playing midi files 1

[ChrisProg]

can someone plese tell me how i can make a midi file play from clicking a command button
if you can tell me i will be happy as this is the 3rd time i have asked this question.

 

[devinci]

Place this code in a module

Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _
hwndCallback As Long) As Long



open the midi file

i = mciSendString("open c:\music.mid type sequencer alias mid1", 0&, 0, 0)

play the midi file

i = mciSendString("play mid1", 0&, 0, 0)

If you want more explanations...Here's a link that may help you to play midi file with VB

http://www.geocities.com/smigman.geo/mci/mid.html

 

[ChrisProg]

thank you
i am a beginner at vb and only 12 years old
(chrisprog is my dad)

 

[devinci]

well, every one got to start at one point...

Good Luck

 

[ChrisProg]

i have made a note of youre site and will tell others about it

tankyou evry very much

 

[CubeE101]

Nice ;-)

Have a star...

Visit My Site
PROGRAMMER: Red-eyed, mumbling mammal capable of conversing with inanimate objects.