| Вопрос: Генерация TAB | Добавлено: 18.04.07 16:11 |
Автор вопроса:  Ivanko
|
| Господа-товарищи, спасайте, запарился... Есть у меня форма (VB6.0), на форме до х... полей ввода, можно ли на клавишу ENTER повесить функцию клавиши TAB для прехода между полями по TAB индексу, потому что отслеживать нажатие ENTER в каждом поле и давать SETFOCUS следующему полю, извините, геморрой..., а мои бухгалтера привыкли к старой CLIPPERовской программе и TABом пользоваться отказываются напрочь. Заранее спасибо. |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  User Unknown Вечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302 |
Профиль | | #1 | Добавлено: 18.04.07 17:29 |
|
На память не помню, но всё просто. Вроде:
в функции BeforeKeyDown пишем что-то вроде vbKey=0 SendKeys {TAB} |
||
|
Номер ответа: 2 Автор ответа:  Sur ICQ: 1249088 Вопросов: 10 Ответов: 304 |
Web-сайт: Профиль | | #2 | Добавлено: 18.04.07 17:56 |
|
В каждом поле не надо.
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then EnterTab KeyAscii End Sub Private Sub EnterTab(KeyAscii As Integer) If TypeOf Me.ActiveControl Is TextBox Then SendKeys "{TAB}" KeyAscii = 0 End If End Sub Private Sub Form_Load() Me.KeyPreview = True End Sub Это если поле не мультилайн... Иначе проверки пиши. |
||
|
Номер ответа: 3 Автор ответа: KVU Вопросов: 10 Ответов: 32 |
Профиль | | #3 | Добавлено: 14.04.08 04:05 |
|
Можно ещё так.
Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeyReturn Then SendKeys "{tab}" End If End Sub А кто подскажет как отследить нажатии этой клавиши (т.е. tab)? С уважением, Владислав. |
||
|
Номер ответа: 4 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #4 | Добавлено: 14.04.08 18:31 |
|
А кто подскажет как отследить нажатии этой клавиши (т.е. tab)?
If KeyAscii = vbKeyTab ?.. |
||
Страница: 1 |