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

  • Автор темы Randol111
  • Дата начала
Статус
Закрыто для дальнейших ответов.
R

Randol111

#1
начинаю изучать 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
думаю все зделал как описано
но поемуто музыка не играет.
вчем причина?
 
G

Guest

#2
Попробуй воспроизвести звук при помощи функции 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
 
S

Shtirlits

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