powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ComboBox&Enter
17 сообщений из 17, страница 1 из 1
ComboBox&Enter
    #36952156
BKulik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Добрый день!
Помогите, пожалуйста, настроить ComboBox таким образом, чтобы после нажатия клавиши Enter:
1) переход на другой элемент не происходил (фокус оставался на ComboBox)
2) весь текст в поле ComboBox был выделен

Заранее спасибо!
...
Рейтинг: 0 / 0
ComboBox&Enter
    #36952161
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
KeyDown
KeyUp
KeyPress
...
Рейтинг: 0 / 0
ComboBox&Enter
    #36952177
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
BKulik1) переход на другой элемент не происходил (фокус оставался на ComboBox)
убрать причину, почему он переходит, ибо штатно фокус не должен никуда деваться
BKulik2) весь текст в поле ComboBox был выделен
SelStart, SelLen
...
Рейтинг: 0 / 0
ComboBox&Enter
    #36952232
BKulik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Konst_One,

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub ComboBox_Cur_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode =  13  Then
    If ComboBox_Cur.Value <> "" Then
        ComboBox_Cur.AddItem ComboBox_Cur.Value
    End If
    ComboBox_Cur.SetFocus
End If
End Sub

После нажатия клавиши Enter все равно переходит на другой элемент((((
...
Рейтинг: 0 / 0
ComboBox&Enter
    #36952234
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
BKulikKonst_One,

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub ComboBox_Cur_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode =  13  Then
    If ComboBox_Cur.Value <> "" Then
        ComboBox_Cur.AddItem ComboBox_Cur.Value
    End If
    ComboBox_Cur.SetFocus
End If
End Sub

После нажатия клавиши Enter все равно переходит на другой элемент((((

сказали А, так говорите уж Б. я вам перчислил все события, которые надо проконтролировать
...
Рейтинг: 0 / 0
ComboBox&Enter
    #36952244
BKulik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Konst_One,

у меня только KeyDown реагирует на Enter. Другие по Entery ничего не выполняют(хотя для других клавиш нормально работают).
...
Рейтинг: 0 / 0
ComboBox&Enter
    #36952247
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
кстати, так и не понятно поведение по ENTER. стандартно переход по TAB межку контролами на форме. вы что-то не договариваете
...
Рейтинг: 0 / 0
ComboBox&Enter
    #36952249
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
KeyCode = 0

надо делать
...
Рейтинг: 0 / 0
ComboBox&Enter
    #36952256
BKulik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Табуляция выключена
TabStop=False

Я не по на счет KeyCode=0
...
Рейтинг: 0 / 0
ComboBox&Enter
    #36952264
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
BKulikТабуляция выключена
TabStop=False

Я не по на счет KeyCode=0

не могу воспроизвести вашу ситуацию. у меня по ENTER в combobox ничего не происходит и фокус не теряется, как ,в прочем, и для любых других типов контролов на форме
...
Рейтинг: 0 / 0
ComboBox&Enter
    #36952392
BKulik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Попробовал еще раз с нуля
Создал форму, затем два ComboBoxa. Когда нажимаю Enter, курсор появляется на другому ComboBoxе...и наоборот
...
Рейтинг: 0 / 0
ComboBox&Enter
    #36952405
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
BKulikПопробовал еще раз с нуля
Создал форму, затем два ComboBoxa. Когда нажимаю Enter, курсор появляется на другому ComboBoxе...и наоборот

вы точно это делаете в Visual Studio 6.0 Visual Basic?
...
Рейтинг: 0 / 0
ComboBox&Enter
    #36952425
BKulik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
))))))))))))))))
Извините, но как то не упомянул, что тружусь на Microsoft Visul Basic 6.5 (внедрен в Excel 2003)
...
Рейтинг: 0 / 0
ComboBox&Enter
    #36952430
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
BKulik))))))))))))))))
Извините, но как то не упомянул, что тружусь на Microsoft Visul Basic 6.5 (внедрен в Excel 2003)

это VBA for MS Office Excel
и скорее всего вы юзаете MS Forms. Там другие правила, смотрите описание контролов и их свойства.
...
Рейтинг: 0 / 0
ComboBox&Enter
    #36952431
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Konst_OneBKulikПопробовал еще раз с нуля
Создал форму, затем два ComboBoxa. Когда нажимаю Enter, курсор появляется на другому ComboBoxе...и наоборот


вы точно это делаете в Visual Studio 6.0 Visual Basic?
Костя! Не заметил в событии MSForms?
я-то сразу отключился, как понял
...
Рейтинг: 0 / 0
ComboBox&Enter
    #36952441
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro+
Konst_Oneпропущено...


вы точно это делаете в Visual Studio 6.0 Visual Basic?

Костя! Не заметил в событии MSForms?
я-то сразу отключился, как понял

да не глянул внимательно. ох уж эти офисники. есть же ветка у них по их вопросам :
Microsoft Office

там быстрее ответят.
...
Рейтинг: 0 / 0
ComboBox&Enter
    #36953261
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Konst_One KeyCode = 0

надо делать
BKulikТабуляция выключена
TabStop=False

Я не по на счет KeyCode=0

имелось ввиду надо делать
Код: plaintext
1.
2.
Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode =  13  Then KeyCode =  0 
End Sub
...
Рейтинг: 0 / 0
17 сообщений из 17, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ComboBox&Enter
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]