VBNet - Форум - Как сделать BEEP

Вопрос: Как сделать BEEP Добавлено: 19.05.04 11:10

Автор вопроса: someone | Web-сайт: 123

Ответить

Ответы Всего ответов: 24

Номер ответа: 16
Автор ответа:

LamerOnLine

ICQ: 334781088

Вопросов: 108
Ответов: 2822

Профиль | | #16

Добавлено: 19.05.04 12:45

Возможно у тебя отключен динамик. Ну, запусти следующий код:

Option Explicit

Private Const SPI_SETBEEP = 2

Private Const SPI_GETBEEP = 1

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long

Private Sub Command1_Click()

Dim bp As Boolean

SystemParametersInfo SPI_SETBEEP, ByVal 1&, ByVal 0&, ByVal 0&

SystemParametersInfo SPI_GETBEEP, ByVal 0&, ByVal VarPtr(bp), ByVal 0&

Me.Caption = bp

End Sub

Private Sub Command2_Click()

Beep

End Sub

Я раньше сам отключал динамик, типа таким образом

Ответить

Номер ответа: 17
Автор ответа:

someone

Вопросов: 215
Ответов: 1596

Web-сайт: 123
Профиль | | #17

Добавлено: 19.05.04 12:49

На окошке высвечивается "правильно" НО НЕ БИПАЕТ!!!!!!!!!!!!!!!!!!

Ладно, считайте, что тема закрыта. Я завтра еще наведаюсь

Ответить

Номер ответа: 18
Автор ответа:

LamerOnLine

ICQ: 334781088

Вопросов: 108
Ответов: 2822

Профиль | | #18

Добавлено: 19.05.04 12:57

Странно, у меня работал. Возможно, у тебя звуковая карта стоит, но колонки отключены? Тогда конечно бипать не будет!

Ответить

Номер ответа: 19
Автор ответа:

__Сергей__

Вопросов: 7
Ответов: 23

Профиль | | #19

Добавлено: 19.05.04 22:01

Попробуй длительность Beep поставь

Dim b

For b = 1 To 350

Beep

Next b

Ответить

Номер ответа: 20
Автор ответа:

__Сергей__

Вопросов: 7
Ответов: 23

Профиль | | #20

Добавлено: 19.05.04 22:11

попробуй измени длительность

Dim b

For b = 1 To 50

Beep

Next b

у меня работает

Ответить

Номер ответа: 21 Автор ответа: Агент Смит ICQ: 147404128 Вопросов: 12 Ответов: 128	Web-сайт: www.bbsoftware.ru Профиль \| \| #21	Добавлено: 20.05.04 20:44
	Дядь, а громкость в микшере и факт включённости звука бипера ты смотрел? Ответить

Номер ответа: 22 Автор ответа: someone Вопросов: 215 Ответов: 1596	Web-сайт: 123 Профиль \| \| #22	Добавлено: 22.05.04 10:09
	Разумеется!!! Ответить

Номер ответа: 23 Автор ответа: KVU Вопросов: 10 Ответов: 32	Профиль \| \| #23	Добавлено: 29.07.06 12:22
	А как его выключить? Допусти при нажатии Enter в textBox’e что бы он не бикал Ответить

Номер ответа: 24 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #24	Добавлено: 29.07.06 12:58
	KVU, ну это не проблема — чтоб не бикал и не печатал. Option Explicit Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeyReturn Then KeyAscii = 0 End Sub Ответить

Страница: 1 | 2 |