Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Заменить TAB на ENTER Добавлено: 06.06.06 22:15  

Автор вопроса:  Seregahome
В VB6 переход от одного элемента к другому (например от поля Text1 к полю Text2) клавишей TAB, а надо ENTERом. Кто знает как?

Ответить

  Ответы Всего ответов: 6  

Номер ответа: 1
Автор ответа:
 HOOLIGAN



Вопросов: 0
Ответов: 1066
 Профиль | | #1 Добавлено: 06.06.06 23:14
Ну примерно так: в Text1_KeyDown вписываешь что-то примерно такое:
If KeyCode = 13 Then Text2.SetFocus

Ответить

Номер ответа: 2
Автор ответа:
 [root]



Вопросов: 45
Ответов: 1212
 Web-сайт: bit.pirit.info
 Профиль | | #2
Добавлено: 07.06.06 07:52
1 вариант

Option Explicit

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
       SendKeys "{tab}"
       KeyAscii = 0
 End If
End Sub


2 вариант

Option Explicit

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then Text2.SetFocus
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then Text1.SetFocus
End Sub


Ответить

Номер ответа: 3
Автор ответа:
 Fever



Вопросов: 60
Ответов: 808
 Профиль | | #3 Добавлено: 07.06.06 12:19
[root] Прямо по MSDN... :)

Ответить

Номер ответа: 4
Автор ответа:
 Z_of_X



ICQ: 997550 

Вопросов: 5
Ответов: 18
 Профиль | | #4 Добавлено: 07.06.06 14:09
SendKeys "{tab}"

Почему бы не заменить на
SendKeys vbTab

Ответить

Номер ответа: 5
Автор ответа:
 [root]



Вопросов: 45
Ответов: 1212
 Web-сайт: bit.pirit.info
 Профиль | | #5
Добавлено: 07.06.06 14:28
Fever - myabe, уже не помню где взял, но смысл улавливается, поймет переделает под себя.
Z_of_X - и что разница влияет на что нить?

Ответить

Номер ответа: 6
Автор ответа:
 Z_of_X



ICQ: 997550 

Вопросов: 5
Ответов: 18
 Профиль | | #6 Добавлено: 09.06.06 17:59
байтов меньше :)
тут строку передаешь, а тут 1 байт таба....
Оптимизация :)))

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам