помагите новичку в Vbasic

[Randol111]

начинаю изучать VBasic из книги С. Н. Лукина
задача было такой: нужно свтавить музыка на калькулятор и чтобы музыка играла при вкльючений калькулятора.

и код

Private Sub Form_Load()
media.DeviceType = "Sequencer"
media.FileName = "c:\Windows\Media\Canyon.mid"
media.Command = "Open"
media.Command = "Play"
End Sub

Private Sub Form_Terminate()
media.Command = "Close"
End Sub

думаю все зделал как описано
но поемуто музыка не играет.
вчем причина?

 

[Guest]

Попробуй воспроизвести звук при помощи функции api sndPlaySound
-------------------------------------------------------------------------------------
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA"(ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long

Public Const SND_ALIAS = &H10000 'реальное имя файла находится в win.ini
'или в реестре
Public Const SND_ASYNC = &H1 'Асинхронное воспроизведение
Public Const SND_SYNC = &H0 'Синхронное воспроизведение
Public Const SND_NOWAIT = &H2000 ' Не ждать, если драйвер занят
Public Const SND_LOOP = &H8 'Циклическое воспроизведение до следующего вызова

Sub SoundCheck()
Dim lRetVal As Long
lRetVal = sndPlaySound("C:\WINDOWS\MEDIA\CHIMES.wav", SND_SYNC)
lRetVal = sndPlaySound("SystemStart", SND_ALIAS + SND_ASYNC + SND_ NOWAIT)
'SystemStart - представляет собой псевдоним систмного звука. Имя реального файла находится
'в реестре(где, кстати, описаны и остальные системные звуки.)
End Sub

 

[Shtirlits]

и даже с собственным кодом ты можешь проиграть любой media файл, только не забудь добавить на форму компонент MMControl (Microsoft Multimedia Control), который у тебя в коде называется media