Как убрать звук при нажатии Enter в текстовом поле?

[lister]

При нажатии {ENTER} в однострочном текстовом поле раздается стандартный звук Windows. Раздражает ужасно. Как этот звук можно убрать?

[PARTYzan]

в звуковых настройках винды... где звуки...иначе никак

[Amed]

Учим матчасть

Код: Выделить всё

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then KeyAscii = 0
End Sub

[Andrey Fedorov]

Учим матчасть

Код: Выделить всё

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then KeyAscii = 0
End Sub

Добавить на форму кнопочку OK с Default = True - должен же кто-то Enter обрабатывать...

[lister]

Хм... Понял... Но тут тонкости есть...

[lister]

Хм... Понял... Но тут тонкости есть...

У меня по энтеру навигация по контролам и в т.ч. по текстовым полям идет...

И вот в связи с этим тонкость есть: я создал процедуру навигации

Код: Выделить всё

Private Sub OnActiveControlKeyPress(KeyAscii As Integer)
  Select Case KeyAscii
    Case vbKeyReturn
      KeyAscii = 0
      SendKeys "{Tab}"
     
  End Select

А в Text1_KeyPress добавил:

Код: Выделить всё

Private Sub Text1_KeyPress(KeyAscii As Integer)
  OnActiveControlKeyPress (KeyAscii)
 
End Sub

Это не работало, поле "звучало"

Теперб, понял, что нужно так:

Код: Выделить всё

Private Sub Text1_KeyPress(KeyAscii As Integer)
  if KeyAscii = vbKeyReturn Then KeyAscii = 0
  OnActiveControlKeyPress (vbKeyReturn)
 
End Sub

[Andrey Fedorov]

Хм... Понял... Но тут тонкости есть...

У меня по энтеру навигация по контролам и в т.ч. по текстовым полям идет...

Сам себе злой буратино.

Ибо не надо нарушать стандартного поведения компонентов на форме и изобретать собственные стандарты. На клавише Enter написано Enter, значит это должно быть Enter а не Tab.

P.S Серъезно - не пытайся реализовать DOS-овскую функциональность клавишь под Windows...

[dima_C++]

Хм... Понял... Но тут тонкости есть...

У меня по энтеру навигация по контролам и в т.ч. по текстовым полям идет...

Сам себе злой буратино.

Ибо не надо нарушать стандартного поведения компонентов на форме и изобретать собственные стандарты. На клавише Enter написано Enter, значит это должно быть Enter а не Tab.

P.S Серъезно - не пытайся реализовать DOS-овскую функциональность клавишь под Windows...

ерунда.... что значит стандарты и кто их придумал....
"Ибо не надо нарушать стандартного поведения компонентов на форме " глубокомысленно....

[dima_C++]

а что по-существу вопроса то функция SystemParametersInfo...
WM_SETFOCUS выключаешь
SystemParametersInfo(SPI_SETBEEP, 0, NULL, 0)
WM_KILLFOCUS воссатнавливаешь виндовую кликалку
SysTemparametersInfo(SPI_SETBEEP, 1, NULL, 0)

[Andrey Fedorov]

ерунда.... что значит стандарты и кто их придумал....

Вообще-то их придумал не я.
И во всех нормальных коммерческих продуктах их соблюдают.

Но ты, конечно, можешь изобрести свой лисапед... По Enter переходить на другое поле, по клавише Tab открывать ComboBox и сохранять по Escape... Твое право. Правда что подумают о таком программере...

[dima_C++]

ерунда.... что значит стандарты и кто их придумал....

Вообще-то их придумал не я.
И во всех нормальных коммерческих продуктах их соблюдают.

Но ты, конечно, можешь изобрести свой лисапед... По Enter переходить на другое поле, по клавише Tab открывать ComboBox и сохранять по Escape... Твое право. Правда что подумают о таком программере...

гы а что обо мне подумает заказачик? мне хоть по пробелу, мне по-барабану.... а если серьезно то может понадабится такая штука при бустром монотонном набивании данных, сам делал....

[tyomitch]

а что по-существу вопроса то функция SystemParametersInfo...
WM_SETFOCUS выключаешь
SystemParametersInfo(SPI_SETBEEP, 0, NULL, 0)
WM_KILLFOCUS воссатнавливаешь виндовую кликалку
SysTemparametersInfo(SPI_SETBEEP, 1, NULL, 0)

Угу-угу.
А чтобы не маяться с десятичной запятой - SetLocaleInfo(LOCALE_SDECIMAL, ".")
А чтобы прога красивее выглядела - включим темы. И ещё фон на рабочий стол в тему своей проги поставим.
Мы ведь лучше юзера знаем, как у него должна быть система настроена, верно?

[dima_C++]

а что по-существу вопроса то функция SystemParametersInfo...
WM_SETFOCUS выключаешь
SystemParametersInfo(SPI_SETBEEP, 0, NULL, 0)
WM_KILLFOCUS воссатнавливаешь виндовую кликалку
SysTemparametersInfo(SPI_SETBEEP, 1, NULL, 0)

Угу-угу.
А чтобы не маяться с десятичной запятой - SetLocaleInfo(LOCALE_SDECIMAL, ".")
А чтобы прога красивее выглядела - включим темы. И ещё фон на рабочий стол в тему своей проги поставим.
Мы ведь лучше юзера знаем, как у него должна быть система настроена, верно?

мне катца начинаем лить из пустого в порожнее... человек спросил, значит надо, его проблема что дальше делать....

[lister]

ерунда.... что значит стандарты и кто их придумал....

Вообще-то их придумал не я.
И во всех нормальных коммерческих продуктах их соблюдают.

Но ты, конечно, можешь изобрести свой лисапед... По Enter переходить на другое поле, по клавише Tab открывать ComboBox и сохранять по Escape... Твое право. Правда что подумают о таком программере...

гы а что обо мне подумает заказачик? мне хоть по пробелу, мне по-барабану.... а если серьезно то может понадабится такая штука при бустром монотонном набивании данных, сам делал....

Ты абсолютно прав - я делаю программу для интенсивного ввода данных! И навигация по Enter - требование заказчика!

[PARTYzan]

проще удали, точнее убери звук в настройках винды...

[lister]

проще удали, точнее убери звук в настройках винды...

Ой как остроумно и смешно...

Я конечно понимаю, что смеяться никто не запрещал... Но я же все таки спрашивал ответ а не насмешки какие-то...

Уж если не знаешь, так и молчи, пожалуйста...

К тому же, все серьезные ответы уже прозвучали!

Безобразная ситуация!!!