Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
17.05.2007, 20:28
|
|||
|---|---|---|---|
|
|||
Проблема отлова текстбокса |
|||
|
#18+
Извините за мою навящивость.. Нужно,чтобы после нажатия кнопки добавить: 1.очищались тестбоксы 2. активировался первый 3 в него вводилась информация 4 затем после нажатия Enter следовал следующий текстбокс (не знаю как сделать это после Text.setfocus) Set currentrange = ObjExc.ActiveSheet.Cells(1, 1).CurrentRegion a = currentrange.Rows.Count Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" xyz = 0 Text1.SetFocus With ObjExc .ActiveSheet.Cells(a + 1, 1) = Text1.Text .ActiveSheet.Cells(a + 1, 2) = Text2.Text .ActiveSheet.Cells(a + 1, 3) = Text3.Text .ActiveSheet.Cells(a + 1, 4) = Text4.Text .ActiveSheet.Cells(a + 1, 5) = Text5.Text .ActiveSheet.Cells(a + 1, 6) = Text6.Text .ActiveSheet.Cells(a + 1, 7) = Text7.Text .ActiveWorkbook.Close True .SheetsInNewWorkbook = 1 .Workbooks.Open ("business\comp.xls") Set currentrange = .ActiveSheet.Cells(1, 1).CurrentRegion a = currentrange.Rows.Count .ActiveSheet.Range(.ActiveSheet.Cells(2, 2), .ActiveSheet.Cells(a, 2)).Sort _ Key1:=.Cells(2, 2), Order1:=xlAscending .ActiveWorkbook.Close True End With ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
17.05.2007, 20:49
|
|||
|---|---|---|---|
|
|||
Проблема отлова текстбокса |
|||
|
#18+
Inputbox ы не предлагать - сам так делал, но преподу не понравилось ему надо как всегда все через жопу ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
17.05.2007, 22:12
|
|||
|---|---|---|---|
Проблема отлова текстбокса |
|||
|
#18+
Пример для трех техт боксов (SetFocus не существует): Private Sub CommandButton1_Click() TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox1.Activate End Sub Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = vbKeyReturn Then TextBox2.Activate End Sub Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = vbKeyReturn Then TextBox3.Activate End Sub Private Sub TextBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = vbKeyReturn Then TextBox1.Activate End Sub А с Inputbox действительно будет хуже. Они устарели и существуют для "порядку". ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
17.05.2007, 22:52
|
|||
|---|---|---|---|
|
|||
Проблема отлова текстбокса |
|||
|
#18+
Text1.Activate не работает Выдает, что метод или дата не найдены ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
18.05.2007, 00:01
|
|||
|---|---|---|---|
Проблема отлова текстбокса |
|||
|
#18+
Пример показан для текстбоксов, расположенных на листе. Для текстбоксов на форме замените Activate на SetFocus и поместите этот код в форму: Private Sub CommandButton1_Click() TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox1.SetFocus End Sub Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = vbKeyReturn Then TextBox2.SetFocus End Sub Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = vbKeyReturn Then TextBox3.SetFocus End Sub Private Sub TextBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = vbKeyReturn Then TextBox1.SetFocus End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
18.05.2007, 00:07
|
|||
|---|---|---|---|
|
|||
Проблема отлова текстбокса |
|||
|
#18+
Спасибо за помощь, но я уже решил проблему))) вышел через setfocus затем Text_change после отлов Enter ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
18.05.2007, 11:51
|
|||
|---|---|---|---|
Проблема отлова текстбокса |
|||
|
#18+
На этапе размещения элементов расположи их TabIndex в порядке возрастания у остальных элементов которые присутсвуют на форме TabStop = False и у тебя курсор будет по нажатию энтера скакать с одного текстбокса на следующий... когда дойдет до последнего автоматом перейдет на первый ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
18.05.2007, 15:07
|
|||
|---|---|---|---|
Проблема отлова текстбокса |
|||
|
#18+
IngvarpoСпасибо за помощь, но я уже решил проблему))) вышел через setfocus затем Text_change после отлов Enter Ingvarpo, Text_change не самый лучший вариант. Это событие слишком часто срабатывает. Оно не предназначено для перехвата нажатия клавиш. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=60&mobile=1&tid=2164007]: |
0ms |
get settings: |
5ms |
get forum list: |
9ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
61ms |
get topic data: |
6ms |
get forum data: |
2ms |
get page messages: |
27ms |
get tp. blocked users: |
1ms |
| others: | 218ms |
| total: | 333ms |
| 0 / 0 |
