Отправляет email-рассылки с помощью сервиса Sendsay

Функции API для Visual Basic 6.0

Подписаться Бесплатная новостная рассылка Подписчиков 23 RSS
  Ноябрь 2003   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30


За последние 60 дней ни разу не выходила


Сайт рассылки: http://www.Iqsoft.narod.ru
Открыта: 02-11-2003

Автор
Кузмич

Статистика

23 подписчиков
0 за неделю
←   Все выпуски   →

Функции API для Visual Basic 6.0 Функция Beep и MessageBeep


Информационный Канал Subscribe.Ru
2003 ОКТЯБРЬ

                                                

2003 НОЯБРЬ. #03                                             
 

 

Код моей кнопки:

 

Раскрутимся!
Приглашаю авторов рассылок обменяться формами для быстрой подписки. Раскрутим друг-друга! :)
  ЧАТ |  Гостевая книга | ФОРУМ | Помощь
 

Добро пожаловать на страницы руководства по функциям API. Это руководство имеет дело с API для всех 32-разрядных версий Windows: Windows 95/98, Windows NT, а так же частично для 64-разрядных WindowsXP.           

Мы  искренне рады видеть Вас в рядах наших подписчиков.

Функция Beep

Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Платформа

  • Windows 95/98: Поддерживается
  • Windows NT: Требуется Windows NT 3.1 или выше
  • Windows 2000: Поддерживается
  • Windows CE: Не поддерживается

Beep воспроизводит звук.В зависимости от платформы воспроизводит звук по разному. Windows 95/98: Функция всегда воспроизводит системный (SystemDefault) звук. Windows NT/2000: Функция воспроизводит тоновый звук через внутренний динамик с различной частотой

Возвращаемое значение

В случае ошибки возвращается 0 (используйте GetLastError для получения кода ошибки). В успешном случае функция возвращает значение,отличное от нуля

 

Параметры

dwFreq
Windows NT/2000: Частота в герцах (Hz). Windows 95/98: Игнорируется
dwDuration
Windows NT/2000: Продолжительность звука в миллисекундах.Windows 95/98: Игнорируется

Пример 

' Воспроизводим сигнал частотой 800 Hz в течении 2 секунд
' только для Windows NT/2000; пользователи Windows 95/98
'услышает звук по умолчанию

Dim retval As Long  ' возвращаемое значение

retval = Beep(800, 2000)

Потому как функция Beep слишком мола, я решил представить вашему вниманию схожию функцию Message Beep

Функция MessageBeep

Declare Function MessageBeep Lib "user32" (ByVal wType As Long) As Long

Платформа: Win 95/98, Win NT

MessageBeep воспроизводит один из системных звуков. Также,фукция может воспроизводить звук встроенного динамика компьютера.В успешном случае функция возвращает 1,при ошибке-возвращается 0

wType
Если установлен в -1 (или &HFFFFFFFF), воспроизводит звук с помощью внутреннего динамика компьютера. В других случаях,воспроизводится звук в соответствии с флагом:
MB_ICONASTERISK = &H40
Звук Звездочка
MB_ICONEXCLAMATION = &H30
Звук Восклицание
MB_ICONHAND = &H10
Play the SystemHand sound
MB_ICONQUESTION = &H20
Звук Вопрос
MB_OK = &H0
Стандартный звук

Пример: 

' Воспроизводим системный звук Вопрос.
Dim retval As Long  ' возвращаемое значение

retval = MessageBeep(MB_ICONQUESTION)

 

Новости проэкта www.IqSoft.narod.ru                                                                      

[ 27 сентября 2003 ]  Состоялось открытие www.IqSoft.narod.ru

[ 15 октября 2003 ]  Открылся Чат

[ 25 октября 2003 ]  Начали существования  Гостевая книга, Форум

[ 28 октября 2003 ]  Открылись рассылки на них вы можете подписаться на сайте

[ 28 октября 2003 ]  Открылся клуб "РАСКРУТИСЬ" подробнее Вы прочтёте на сайте

Все ваши рекомендации, предложения, советы жду на E-mail Serweradmin@mail.ru 

Более подробную информацию о программировании на Visual Basic 6.0 Вы найдёте на сайте www.IqSoft.narod.ru


Удачи!
С уважением,                                                                                                                     Администратор рассылки.

 

 

http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное