Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Событие выбора (активизации) TextBox
 
#1
15.08.2010 21:44:56
Хочу повесить календарь на TextBox.  
У ComboBox это DropButtonClick, как в сказке - наступи на кнопочку и календарь откроется.  
Перепробовал кучу вариантов (Click, Selection и проч.) - не выходит сказочка :)  
Где оно? Не там ищу, наверное, т.к. ни Уокенбах, ни Гарнаев не подсказали.
 
 
 
#2
15.08.2010 21:54:42
Я календарь делаю на MouseUp
 
 
 
#3
15.08.2010 21:54:57
{quote}{login=vikttur}{date=15.08.2010 09:44}{thema=Событие выбора (активизации) TextBox}{post}Хочу повесить календарь на TextBox.  
У ComboBox это DropButtonClick, как в сказке - наступи на кнопочку и календарь откроется.  
Перепробовал кучу вариантов (Click, Selection и проч.) - не выходит сказочка :)  
Где оно? Не там ищу, наверное, т.к. ни Уокенбах, ни Гарнаев не подсказали.{/post}{/quote}  
а enter ?  
но тогда на следить за setfocus
Спасибо
 
 
 
#4
15.08.2010 22:12:05
{quote}{login=Юрий М}{date=15.08.2010 09:54}{thema=}{post}Я календарь делаю на MouseUp{/post}{/quote}  
Пробовал. При открытии формы ругается:  
Private Sub TextBox1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)  
 On Error GoTo err1  
   If dt_1 = 0 Then dt_1 = FormatDateTime(Now)  
       Form_SelectDate.Show  
       TextBox1 = Format(dt_1, "dd/mm/yyyy")  
'        Me.OptionButton1.SetFocus  
 Exit Sub  
err1:  
End Sub  
Что не так?
 
 
 
#5
15.08.2010 22:22:22
В файле - TextBox1
 
 
 
#6
15.08.2010 22:22:57
Так срабатычвает?  
Private Sub TextBox1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)  
Form_SelectDate.Show  
End Sub  
Если форма загружается - ищём, что там в коде не так.  
А вообще - обычно я прошу авторов файлы показывать :-)
 
 
 
#7
15.08.2010 22:24:58
{quote}{login=Юрий М}{date=15.08.2010 10:22}{thema=}{post}  
А вообще - обычно я прошу авторов файлы показывать :-){/post}{/quote}  
Отлучиться пришлось, а файл сразу не прицепил :)
 
 
 
#8
15.08.2010 22:26:41
{quote}{login=vikttur}{date=15.08.2010 10:22}{thema=}{post}В файле - TextBox1{/post}{/quote}  
а так?  
Private Sub TextBox1_Enter()  
On Error GoTo err1  
   If dt_1 = 0 Then dt_1 = FormatDateTime(Now)  
       Form_SelectDate.Show  
       TextBox1 = Format(dt_1, "dd/mm/yyyy")  
'        Me.OptionButton1.SetFocus  
 Exit Sub  
err1:  
End Sub
Спасибо
 
 
 
#9
15.08.2010 22:32:17
Вить, у тебя что-то сбойнуло. Скопируй код со второй по предпоследнюю строку, Удали целиком блок Sub TextBox1_MouseUp(...  
и снова создай его, затем вставь туда свой код. Всё работает.
 
 
 
#10
15.08.2010 22:34:31
Дмитрий, с Вашим вариантом есть небольшая проблема: если понадобится снова вызывать календарь, придётся сначала убежать из ТекстБокса, а потом вернуться.
 
 
 
#11
15.08.2010 22:35:02
С TextBox1_Enter отрабатывает нормально. Спасибо.  
R Dmitry: <но тогда на следить за setfocus>  
Фокус оставляю на нем же на случай, если нужно удалить данные (Locked=True)
 
 
 
#12
15.08.2010 22:38:33
{quote}{login=Юрий М}{date=15.08.2010 10:34}{thema=}{post}Дмитрий, с Вашим вариантом есть небольшая проблема: если понадобится снова вызывать календарь, придётся сначала убежать из ТекстБокса, а потом вернуться.{/post}{/quote}  
этого избежать очень просто    
см пример :-)
Спасибо
 
 
 
#13
15.08.2010 22:40:23
Вот.
 
 
 
#14
15.08.2010 22:42:43
{quote}{login=R Dmitry}{date=15.08.2010 10:38}{thema=Re: }{post}{quote}{login=Юрий М}{date=15.08.2010 10:34}{thema=}{post}{/post}{/quote}  
этого избежать очень просто {/post}{/quote}  
И кому нужны эти ухищрения? Сделать на мышку_Up - и без дополнительных телодвижений.
 
 
 
#15
15.08.2010 22:44:11
{quote}{login=vikttur}{date=15.08.2010 10:35}{thema=}{post}С TextBox1_Enter отрабатывает нормально. Спасибо.  
R Dmitry: <но тогда на следить за setfocus>  
Фокус оставляю на нем же на случай, если нужно удалить данные (Locked=True){/post}{/quote}  
про удалить я не знал  
_________________  
20800
Спасибо
 
 
 
#16
15.08.2010 22:49:06
setfocus из примера Юрия уберите....  
остался после моих ухищрений :-)
Спасибо
 
 
 
#17
15.08.2010 22:52:28
Ну, Дмитрий,- и тут подсунул фокус! :-)
 
 
 
#18
15.08.2010 22:53:43
{quote}{login=Юрий М}{date=15.08.2010 10:52}{thema=}{post}Ну, Дмитрий,- и тут подсунул фокус! :-){/post}{/quote}  
Я СТАРАЛСЯ!  
:-)
Спасибо
 
 
 
#19
15.08.2010 22:55:01
Ошибка в том, что имя макроса копировал из Object Browser:  
Event MouseUp(Button As Integer,...) без ByVal.  
А продолбался...! Это не Дмитрий фокус подсунул, а я сам себе :)  
R Dmitry, Юра, спасибо большое. Тема закрыта.
 
 
 
Страницы: 1
Читают тему
Наверх