| Вопрос: Как убрать звук на Enter в текстовом поле? | Добавлено: 27.08.05 22:55 |
Автор вопроса:  П.С. | Web-сайт: psbatishev.narod.ru | ICQ: 225019134 |
| В программе, написанной на VB6, сделано, что при нажатии Enter происходит переход к следующему полю ввода. Практически нажатие Enter заменяется на нажатие Tab, однако если в фокусе находится текстовое поле (однострочное), то при нажатии Enter издается звук в динамике, как его отключить? Заранее спасибо. |
| Ответы | Всего ответов: 18 |
|
Номер ответа: 1 Автор ответа:  Master Cheat'$ Вопросов: 14 Ответов: 102 |
Профиль | | #1 | Добавлено: 28.08.05 00:19 |
| смотря из какого динамика. напиши код я посмотрю. | ||
|
Номер ответа: 2 Автор ответа: ProgosICQ: 311715784 Вопросов: 39 Ответов: 157 |
Web-сайт: Профиль | | #2 | Добавлено: 28.08.05 06:07 |
| В Text_KeyDown написать Keycode=0 | ||
|
Номер ответа: 3 Автор ответа: ProgosICQ: 311715784 Вопросов: 39 Ответов: 157 |
Web-сайт: Профиль | | #3 | Добавлено: 28.08.05 06:11 |
|
Тьфу, блин, то есть вот так Private Sub Text_KeyDown(Keycode as Integer,Shift as Integer)
Или если поле многострочноеIf KeyCode=vbKeyReturn then KeyCode=0 Private Sub Text_KeyDown(Keycode as Integer,Shift as Integer)
If KeyCode=vbKeyReturn then KeyCode=0 Text.SelText=vbCrLf End If |
||
|
Номер ответа: 4 Автор ответа: П.С. ICQ: 225019134 Вопросов: 36 Ответов: 41 |
Web-сайт: Профиль | | #4 | Добавлено: 28.08.05 09:57 |
|
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'Нажатие клавиши On Error Resume Next Select Case KeyCode Case vbKeyReturn If Shift = 0 Then If Me.ActiveControl.Name = "Cm1" Or Me.ActiveControl.Name = "  T1" Or Me.ActiveControl.Name = "Ch1" Or Me.ActiveControl.Name = "Text1" Or _
 Me.ActiveControl.Name = "Text2" And Me.ActiveControl.index = 0) Then
SendKeys "{TAB}" End If здесь еще что-то..... End Sub |
||
|
Номер ответа: 5 Автор ответа: Black DragonICQ: 321186096 Вопросов: 30 Ответов: 347 |
Web-сайт: Профиль | | #5 | Добавлено: 28.08.05 12:33 |
| 2 П.С., надо было Text'ы (Cm1, DT1, Ch1, Text1) - во-первых, назвать по нормальному, а во-вторых, сделать массив полей, а дальше высчитывать новый Index и делать SetFocus, а не посылать <Tab> | ||
|
Номер ответа: 6 Автор ответа: П.С.ICQ: 225019134 Вопросов: 36 Ответов: 41 |
Web-сайт: Профиль | | #6 | Добавлено: 28.08.05 14:22 |
| TextBox здесь только Text1, остальные - это другие элементы управления. В любом случае звук возникает не от посылки Tab, а от нажатия Enter и только в текстовом поле. KeyCode=0 не помогает... | ||
|
Номер ответа: 7 Автор ответа: Black DragonICQ: 321186096 Вопросов: 30 Ответов: 347 |
Web-сайт: Профиль | | #7 | Добавлено: 28.08.05 22:23 |
|
В любом случае звук возникает не от посылки Tab, а от нажатия Enter и только в текстовом поле
Я знаю, я когда-то прогу писал, в ней тоже надо было Enter нажимать, причем этот beep тоже был... Я не стал мучиться. |
||
|
Номер ответа: 8 Автор ответа: mzxICQ: 259560026 Вопросов: 21 Ответов: 143 |
Профиль | | #8 | Добавлено: 29.08.05 17:17 |
| Если звуковухи нет он так и будет пикать сколько ты KeyCode=0 не пиши. В устройствах есть скрытое устройство в "Драйверах устройств не Plug and Play" "Beep". Его отруби. Больше никак. | ||
|
Номер ответа: 9 Автор ответа: Black DragonICQ: 321186096 Вопросов: 30 Ответов: 347 |
Web-сайт: Профиль | | #9 | Добавлено: 29.08.05 22:27 |
|
Если звуковухи нет он так и будет пикать сколько ты KeyCode=0 не пиши
Да, потому что beep'ает не звуковуха, а системная "писчалка" |
||
|
Номер ответа: 10 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #10 | Добавлено: 30.08.05 02:32 |
|
Больше никак.
Вырвать нах сис. динамик, как я  Он меня раздражает ночью когда за компом сижу
|
||
|
Номер ответа: 11 Автор ответа: ListerICQ: 298621256 Вопросов: 57 Ответов: 304 |
Профиль | | #11 | Добавлено: 11.11.05 17:26 |
| Стандартный звук Windows раздается при нажатии {ENTER} в однострочном текстовом поле. Раздражает ужасно. Как этот звук можно убрать? | ||
|
Номер ответа: 12 Автор ответа: GSergВопросов: 0 Ответов: 1876 
|
Профиль | | #12 | Добавлено: 11.11.05 17:35 |
| Приведённые выше ответы (особенно номер 3) не устраивают? | ||
|
Номер ответа: 13 Автор ответа: ListerICQ: 298621256 Вопросов: 57 Ответов: 304 |
Профиль | | #13 | Добавлено: 11.11.05 17:44 |
| Здесь нет ни одного правильного ответа!!! | ||
|
Номер ответа: 14 Автор ответа: ListerICQ: 298621256 Вопросов: 57 Ответов: 304 |
Профиль | | #14 | Добавлено: 11.11.05 17:45 |
|
Пока писал, все сам вспомнил.
Правильно так: Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then KeyAscii = 0 End Sub Но и этот не всегда срабатывает... есть тонкости |
||
|
Номер ответа: 15 Автор ответа: GSergВопросов: 0 Ответов: 1876
|
Профиль | | #15 | Добавлено: 11.11.05 18:46 |
|
Точно сам вспомнил?
http://bbs.vbstreets.ru/viewtopic.php?p=164363#164363 |
||