Страницы: 1
RSS
Событие выбора (активизации) TextBox
 
Хочу повесить календарь на TextBox.  
У ComboBox это DropButtonClick, как в сказке - наступи на кнопочку и календарь откроется.  
Перепробовал кучу вариантов (Click, Selection и проч.) - не выходит сказочка :)  
Где оно? Не там ищу, наверное, т.к. ни Уокенбах, ни Гарнаев не подсказали.
 
Я календарь делаю на MouseUp
 
{quote}{login=vikttur}{date=15.08.2010 09:44}{thema=Событие выбора (активизации) TextBox}{post}Хочу повесить календарь на TextBox.  
У ComboBox это DropButtonClick, как в сказке - наступи на кнопочку и календарь откроется.  
Перепробовал кучу вариантов (Click, Selection и проч.) - не выходит сказочка :)  
Где оно? Не там ищу, наверное, т.к. ни Уокенбах, ни Гарнаев не подсказали.{/post}{/quote}  
а enter ?  
но тогда на следить за setfocus
Спасибо
 
{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  
Что не так?
 
В файле - TextBox1
 
Так срабатычвает?  
Private Sub TextBox1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)  
Form_SelectDate.Show  
End Sub  
Если форма загружается - ищём, что там в коде не так.  
А вообще - обычно я прошу авторов файлы показывать :-)
 
{quote}{login=Юрий М}{date=15.08.2010 10:22}{thema=}{post}  
А вообще - обычно я прошу авторов файлы показывать :-){/post}{/quote}  
Отлучиться пришлось, а файл сразу не прицепил :)
 
{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
Спасибо
 
Вить, у тебя что-то сбойнуло. Скопируй код со второй по предпоследнюю строку, Удали целиком блок Sub TextBox1_MouseUp(...  
и снова создай его, затем вставь туда свой код. Всё работает.
 
Дмитрий, с Вашим вариантом есть небольшая проблема: если понадобится снова вызывать календарь, придётся сначала убежать из ТекстБокса, а потом вернуться.
 
С TextBox1_Enter отрабатывает нормально. Спасибо.  
R Dmitry: <но тогда на следить за setfocus>  
Фокус оставляю на нем же на случай, если нужно удалить данные (Locked=True)
 
{quote}{login=Юрий М}{date=15.08.2010 10:34}{thema=}{post}Дмитрий, с Вашим вариантом есть небольшая проблема: если понадобится снова вызывать календарь, придётся сначала убежать из ТекстБокса, а потом вернуться.{/post}{/quote}  
этого избежать очень просто    
см пример :-)
Спасибо
 
Вот.
 
{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 - и без дополнительных телодвижений.
 
{quote}{login=vikttur}{date=15.08.2010 10:35}{thema=}{post}С TextBox1_Enter отрабатывает нормально. Спасибо.  
R Dmitry: <но тогда на следить за setfocus>  
Фокус оставляю на нем же на случай, если нужно удалить данные (Locked=True){/post}{/quote}  
про удалить я не знал  
_________________  
20800
Спасибо
 
setfocus из примера Юрия уберите....  
остался после моих ухищрений :-)
Спасибо
 
Ну, Дмитрий,- и тут подсунул фокус! :-)
 
{quote}{login=Юрий М}{date=15.08.2010 10:52}{thema=}{post}Ну, Дмитрий,- и тут подсунул фокус! :-){/post}{/quote}  
Я СТАРАЛСЯ!  
:-)
Спасибо
 
Ошибка в том, что имя макроса копировал из Object Browser:  
Event MouseUp(Button As Integer,...) без ByVal.  
А продолбался...! Это не Дмитрий фокус подсунул, а я сам себе :)  
R Dmitry, Юра, спасибо большое. Тема закрыта.
Страницы: 1
Читают тему
Наверх