Убить звук TextBox'a

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Enet
Новичок
Новичок
 
Сообщения: 26
Зарегистрирован: 28.05.2006 (Вс) 11:38

Убить звук TextBox'a

Сообщение Enet » 21.08.2006 (Пн) 22:14

когда жмешь enter и фокус на текстбоксе производится звук beep. сделать мультилайн не имеется возможным, как другим способом избавиться от этого? буду очень благодарен :)

DirectXManiac
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1543
Зарегистрирован: 03.11.2005 (Чт) 13:32
Откуда: из DirectX SDK

Сообщение DirectXManiac » 21.08.2006 (Пн) 22:33

Запретить нажатие Enter?
#define ROFL 0xDDDD

vvs_adm
Гуру
Гуру
Аватара пользователя
 
Сообщения: 1492
Зарегистрирован: 03.02.2005 (Чт) 3:45
Откуда: оттуда ;)

Сообщение vvs_adm » 21.08.2006 (Пн) 22:48

Код: Выделить всё
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If (KeyAscii = VBRUN.vbKeyReturn) Then KeyAscii = 0
End Sub
Никогда не откладывай на завтра то, что можно ... отложить на послезавтра!

Enet
Новичок
Новичок
 
Сообщения: 26
Зарегистрирован: 28.05.2006 (Вс) 11:38

Сообщение Enet » 22.08.2006 (Вт) 7:07

у меня на нажатие ентера происходят действия, вариант отменяется =(

vvs_adm
Гуру
Гуру
Аватара пользователя
 
Сообщения: 1492
Зарегистрирован: 03.02.2005 (Чт) 3:45
Откуда: оттуда ;)

Сообщение vvs_adm » 22.08.2006 (Вт) 7:18

Код: Выделить всё
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If (KeyAscii = VBRUN.vbKeyReturn) Then
        KeyAscii = 0
        Movement.Execute
    End If
End Sub
Никогда не откладывай на завтра то, что можно ... отложить на послезавтра!

Enet
Новичок
Новичок
 
Сообщения: 26
Зарегистрирован: 28.05.2006 (Вс) 11:38

Сообщение Enet » 22.08.2006 (Вт) 7:53

vvs_adm писал(а):
Код: Выделить всё
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If (KeyAscii = VBRUN.vbKeyReturn) Then
        KeyAscii = 0
        Movement.Execute
    End If
End Sub

сенкс, я торможу чето :(


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Mail.ru [бот], SemrushBot, Yandex-бот и гости: 38

    TopList