Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите с событием на TextBox / 15 сообщений из 15, страница 1 из 1
01.04.2012, 20:50
    #37733746
Valll
Valll
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с событием на TextBox
Проблема такая. У меня в форме есть TextBox. В него я ввожу дату (21.03.12) на Текстбоксе висит событие "change" и запускается процедура:

Код: vbnet
1.
2.
3.
4.
5.
Private Sub Calendar1_change() 

    Valuta ' запускается макрос валют

End Sub



Проблема в том, что макрос Valuta начинает запускаться сразу, как только я начинаю вводить первую цифру даты и выскакивает ошибка. А хотелось бы, чтобы макрос Valuta запускался после ухода из Текстбокса TAB или Enter или просто активировав другой элемент управления. Пробовал цеплять различные события на TextBox, но кроме change ничего не работает.

Книги:
VB 6.0 Microsoft
VBA 2003 Кузьменко

Не помогли...
Может посоветуете что с фокусом?
Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.04.2012, 20:56
    #37733754
скукотища
скукотища
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с событием на TextBox
LostFocus
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.04.2012, 21:52
    #37733803
Valll
Valll
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с событием на TextBox
Попробовал,

Код: vbnet
1.
2.
3.
4.
5.
Private Sub Calendar1_LostFocus () 

    Valuta ' запускается макрос валют

End Sub



не срабатывает... Я правильно сделал?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.04.2012, 22:03
    #37733813
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с событием на TextBox
Сделал правильно, должно срабатывать на уход по Tab и мышой. Для Enter-а надо отдельно отрабатывать KeyDown
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.04.2012, 22:26
    #37733847
Valll
Valll
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с событием на TextBox
У меня поле TextBox имеет 8 знаков (04.03.12) Как только я набираю 8-й знак активируется следующее поле (фокус на него перекидывается). Поэтому клавишей ТАБ воспользоваться не могу... А мне бы как раз на это событие процедуру бы запустить... Если будут мысли, озучьте пожалуйста.

За ответы спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.04.2012, 22:28
    #37733849
скуоктища
скуоктища
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с событием на TextBox
> Valll
> не срабатывает... Я правильно сделал?

Если "не срабатывает" == "процедура Calendar1_LostFocus не вызывается", то неправильно.

Алёшенька, а ты где камушек взял? (с)

TextBox из какой библиотеки, не Microsoft Forms 2.0 Object Library часом ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.04.2012, 22:29
    #37733850
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с событием на TextBox
а с какого перепугу перекидывается фокус? Вообще, начнем с того, о какой среде речь идет, а то текстбоксы - они ведь разные в разных средах, а тот помянуто почему-то и VB6 и VBA
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.04.2012, 22:30
    #37733851
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с событием на TextBox
скуоктища, ага, вот и я о том
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.04.2012, 22:45
    #37733868
Valll
Valll
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с событием на TextBox
Форма сделана в VBA. TextBox c панели ToolBox (Controls)... Вы меня пугаете... со времён разработки календаря меня дёргает от упоминания

"TextBox из какой библиотеки, не Microsoft Forms 2.0 Object Library часом ? "

или опять что не так?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.04.2012, 22:51
    #37733876
Valll
Valll
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с событием на TextBox
Вот, на всякий случай все параметры Текстбокса в картинке.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.04.2012, 22:59
    #37733886
скукотища
скукотища
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с событием на TextBox
> Valll
> или опять что не так?

Угу. Не так. Не занешь, с какими элементами управления работаешь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.04.2012, 23:30
    #37733927
Valll
Valll
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с событием на TextBox
Спасибо за ликбез.

Сделал так...

Код: vbnet
1.
2.
3.
Private Sub Calendar1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Valuta
End Sub



Не работает... Ладно, что вам со мной время терять. Туплю видимо сильно...

Спасибо за ответы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.04.2012, 23:38
    #37733940
Valll
Valll
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с событием на TextBox
Победа!!!

Скукотище, спасибо тебе за показанный список событий!

Заработало так:

Код: vbnet
1.
2.
3.
4.
5.
Private Sub Calendar1_AfterUpdate()

Valuta

end sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.04.2012, 23:43
    #37733947
скукотища
скукотища
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с событием на TextBox
Valll,
поздравлямс! ))

ЗЫ: странно, что onExit не сработало.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.04.2012, 01:29
    #37734012
TpaBka
TpaBka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с событием на TextBox
[quot Valll]У меня поле TextBox имеет 8 знаков (04.03.12) [quot]
да же после хорошо проведенных выходных у меня получается 10 знаков
наверно надо идти спать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите с событием на TextBox / 15 сообщений из 15, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 119ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2157932]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 27ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 13ms
total:  119ms
x
x
Закрыть


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