Элемент управления календарь

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Аватара пользователя
AlexZZZ
Сообщения: 237
Зарегистрирован: 01 июн 2007, 00:27
Откуда: Москва и область

&quot писал(а):Этот календарик тоже от Avsha
А ему отдельное спасибо!
Teslenko_EA
Сообщения: 526
Зарегистрирован: 04 фев 2007, 18:37
Откуда: Сургут
Контактная информация:

Здравствуйте VictorM.
Что касается идеи, да Вы правы ее автор Avsha.
Но ссылка от Евгения родилась без его участия.
http://forum.developing.ru/showthread.php?t=9254&page=2
Евгений.
Аватара пользователя
Mint86
Сообщения: 127
Зарегистрирован: 04 мар 2008, 11:47

AlexZZZ писал(а):Date Picker видел, действительно красив и удобен, но только как персональная надстройка, к сожалению, не более. В своих проектах использовать её проблематично, да и доступ к неё запаролен. Взломать конечно всё можно, но зачем?
Вот без парольный Date Picker http://slil.ru/25554805
Аватара пользователя
AlexZZZ
Сообщения: 237
Зарегистрирован: 01 июн 2007, 00:27
Откуда: Москва и область

&quot писал(а):Вот без парольный Date Picker
Ну тогда Вот русификация: http://slil.ru/25559987
Да простят меня авторы сего календарика, логику немного поменял для корректного отображения слов по правилам орфографии.
Аватара пользователя
VictorM
Сообщения: 794
Зарегистрирован: 23 окт 2006, 01:44
Откуда: Lugansk, Ukraine
Контактная информация:

В соседней теме http://forum.developing.ru/showthread.php?t=13231 "выпадающий" календарь от Avsha
Teslenko_EA
Сообщения: 526
Зарегистрирован: 04 фев 2007, 18:37
Откуда: Сургут
Контактная информация:

Здравствуйте VictorM.
Вы опять используете "магическое слово" от Avsha.
Уверяю Вас существуют и другие календари, например:
в библиотеке MSCOMCT2.OCX (тоже бесплатной, но от Microcoft :) ) два контрола MonthView и DTPicker
MonthView я использовал для создания калентаря http://woodash.ifolder.ru/5088130
Вы заявляли "Этот календарик тоже от Avsha"

В соседней теме ("Выпадающий" Label на форме) Ваша конструкция "выпадающий" календарь, больше похожа на демонстрацию умения изобретать велосипед ;) . Или конструкция незакончена и потому не функциональна.?

Евгений.
Аватара пользователя
VictorM
Сообщения: 794
Зарегистрирован: 23 окт 2006, 01:44
Откуда: Lugansk, Ukraine
Контактная информация:

Здравствуйте Teslenko_EA
Или конструкция незакончена и потому не функциональна.?
есессно, это только пример использования "выпадающего" Label. По поводу велосипедов, что ж, у каждого свой велосипед. И поэтому, из опыта жизни на форуме, знаю, что не все такие профессионалы как Вы. Может кому пригодится и мой пример. Я ведь тоже учусь на чужих примерах, что же тут плохого? А
Вы опять используете "магическое слово" от Avsha.
что поделаешь, я привык ссылаться на авторов и не вижу в этом ничего предосудительного.
С Уважением, Виктор.
Аватара пользователя
Mint86
Сообщения: 127
Зарегистрирован: 04 мар 2008, 11:47

AlexZZZ писал(а):Date Picker видел, действительно красив и удобен, но только как персональная надстройка, к сожалению, не более. В своих проектах использовать её проблематично. От Avsha календарик, действительно, симпатичный и довольно функциональный, спасибо! Кстати ссылка от Евгения http://woodash.ifolder.ru/5088130 мне тоже очень понравилась. Календарик там ещё более простой, но не менее функциональный и симпатичный. Несмотря на то, что это тоже надстройка, вставить её в любой проект не составит труда.
Всем большое спасибо!
Согласен, Date Picker в проектах использовать проблематично...
Позвольте спросить, как можно вывести календарь при активации определенной ячейки. В примере использовал один из предложенных календарей:
http://slil.ru/255628901
Прошу подсказать что делается неправильно, и как надо правильно :)
Аватара пользователя
VictorM
Сообщения: 794
Зарегистрирован: 23 окт 2006, 01:44
Откуда: Lugansk, Ukraine
Контактная информация:

Mint86, у Вас там небольшие ошибочки в коде.
Пропишите вот так:

Код: Выделить всё

Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$A$2" Then
          Form_SelectDate.Show
    End If
End Sub
теперь все работает.
Аватара пользователя
Mint86
Сообщения: 127
Зарегистрирован: 04 мар 2008, 11:47

VictorM, Огромное спасибо, работает.
Ответить