Вывод календаря при удержании курсора мыши на текстбоксе

[Blame]

С праздником Труда, Господа программисты!
Подскажите, пожалуйста, можно ли вывести календарь Excel при наведении курсора мыши на текст бокс и осуществлять в нем выбор определенного дня, месяца и т.д.?
У меня в текст боске устанавливается дата, а с боку небольшая кнопочка,по нажатию на которую происходит вывод формы, на которой прикреплен календарь. Для некоторых пользователей каленадрь предпочтительней,чем ввод даты вручную.
Можно ли обойти использование дополнительной формы и осуществление навигации по календарю непосредественно без его расположения на форме, поскольку несколько смущает наслоение форм?))

//Вывод формы с календарем по нажатию на кнопку:

Private Sub CommandButton2_Click()
Calen1.Show
End Sub

// Установление на форме calendar в текстбокс выбранной даты

Private Sub Calendar1_Click()
      With Calendar1
calendar.TextBox1 = Format(Calendar1.Value, "dd/mm/yyyy")
End With
    End Sub

Рисунок прикрепила)


Спасибо.

[DiemonStar]

Можно ли обойти использование дополнительной формы и осуществление навигации по календарю непосредественно без его расположения на форме, поскольку несколько смущает наслоение форм?))

т.е. вы хотите, чтобы календаря нигде не было, но по нему можно было "навигировать"?)

[Blame]

DiemonStar


Нет-нет))
Мой вопрос заключается в том, можно ли НЕ помещать календарь на форму, чтобы не получалась "наслоения" форм. То есть например, при удержании курсора мыши на окошке текстбокса, где стоит системная дата, более, чем на 3 секунды, появлялся бы календарик, как у меня на рисунке, и с ним можно было бы производить действия, но чтобы он не был привязан к форме.. При отсутствии действий/изменений на календаре в течение тех же,например, 3 секунд, он автоматически бы скрывался и последние произведенные действия(дата) заносились бы в текст бокс.
Просто понимаете, обилие форм и кнопок "Ок" смущает. Там нажми, здесь нажми...)) Хотелось бы этого избежать по возможности )) Вот ))

[slan]

в принципе, возможно все - вопрос затрат времени

3сек ждать тоже очень долго - лучше когда мышь наезжает на техкстбокс, сразу показывать календарь, а когда коикаем на день в календаре, то оно убирается( без нажатия ОК). Так же при уходе мыши с текстбокса..

Private Sub TextBox_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
if t then exit sub else t=true:calen1.Show
End Sub
Private Sub userform_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
if t then
  t=false
  unload calen1
endif
End Sub

[Blame]

slan

Вы всё правильно поняли!)
Спасибо огромное!!!)
При наведении курсора на текстбокс, сразу же календарик выпрыгивает, но при изменении положения курсора календарь почему-то не скрывается самостоятельно) В чем же дело?) Может, это потому,что у меня кнопка , вызывающая форму, на котрой расположен текстбокс, находится на Листе?

Единственное,- у пользователя Тогда нет возможности ввода даты вручную)) Было бы великолепно, если можно было бы и с клавиатуры устанавливать дату и с помощью календаря)) Можно Вас попросить добавить задержку на 2 или 3 секунды? Ничего страшного,что пользователю придется подождать, потерпит))