Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.221.129.19] |
|
Сообщ.
#1
,
|
|
|
Как сделать, что бы когда я кликал по какому либо объекту в моей проге, проигрывался бы короткий звук. То бишь мне надо что бы при клике открывался звуковой файл.
С Уважением Mihruta |
Сообщ.
#2
,
|
|
|
А тут сложного особо ничего нету...
Берешь Ф-цию API "PlaySound", декларируешь в модуле её и её константы... Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long Private Const SND_APPLICATION = &H80 ' look for application specific association Private Const SND_ALIAS = &H10000 ' name is a WIN.INI [sounds] entry Private Const SND_ALIAS_ID = &H110000 ' name is a WIN.INI [sounds] entry identifier Private Const SND_ASYNC = &H1 ' play asynchronously Private Const SND_FILENAME = &H20000 ' name is a file name Private Const SND_LOOP = &H8 ' loop the sound until next sndPlaySound Private Const SND_MEMORY = &H4 ' lpszSoundName points to a memory file Private Const SND_NODEFAULT = &H2 ' silence not default, if sound not found Private Const SND_NOSTOP = &H10 ' don't stop any currently playing sound Private Const SND_NOWAIT = &H2000 ' don't wait if the driver is busy Private Const SND_PURGE = &H40 ' purge non-static events for task Private Const SND_RESOURCE = &H40004 ' name is a resource name or atom Private Const SND_SYNC = &H0 ' play synchronously (default) после этого в событие кнопки вставляешь: PlaySound FileName, ByVal 0&, SND_FILENAME Or SND_ASYNC Где FileName полный путь к твоему WAV-файлу... (Только незабудь в кавычки взять, строка всетаки... ) |
Сообщ.
#3
,
|
|
|
Всё очень просто и без API!!! К примеру клик на Command1 будет проигрывать звук C:\AlexR\Sound.wav: добавляем на форму Multimaedia Control (Project/Components/Microsoft Multimedia Control 6.0)
Private Sub Command1_Click() MMControl1.FileName = "C:\AlexR\Sound.wav" MMControl1.Command = "Open" MMControl1.Command = "Play" End Sub |