![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#11 |
Пользователь
Регистрация: 16.05.2009
Сообщений: 64
|
![]() |
![]() |
![]() |
![]() |
#12 | |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
![]() Цитата:
Скопируйте файл "mscomct2.ocx" в папку "C:\Windows\System32" (для XP) и зарегистрируйте его в реестре.
Чем шире угол зрения, тем он тупее.
|
|
![]() |
![]() |
![]() |
#13 |
Регистрация: 18.03.2009
Сообщений: 6
|
![]()
Во вложении необходимый файл библиотеки для колендаря для 2003 и для 2007 офисов, файл для соответствующего офиса надо скопировать в папку с:\windows\system32 для windows xp и vista и в папку с:\winnt\system32 для windows 2000. В текстовом файле текст, который надо ввести в поле команды "Выполнить" в windows, не забыв указать соответствующую папку windows или winnt для соответствующей системы.
|
![]() |
![]() |
![]() |
#14 |
Форумчанин
Регистрация: 13.06.2009
Сообщений: 691
|
![]()
Календарь отличный. В чистом виде данный календарь есть. Текущая дата, месяц, год , время. В VB грубоватый календарь.
|
![]() |
![]() |
![]() |
#15 |
Форумчанин
Регистрация: 13.06.2009
Сообщений: 691
|
![]()
У вас применяется код открытия календаря
Private Sub CommandButton1_Click(): Me.TextBox1 = Get_Date(Me.TextBox1, Now): End Sub Мне необходимо чтобы после клика по кнопке Private Sub CommandButton2_Click() (у меня выходит информационное сообщение), после закрытия сообщения должен открыться календарь |
![]() |
![]() |
![]() |
#16 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
![]() Цитата:
Куда должна попасть выбранная пользователем дата? |
|
![]() |
![]() |
![]() |
#17 |
Форумчанин
Регистрация: 13.06.2009
Сообщений: 691
|
![]()
Пока ни куда. Там не только дата там целый набор значений. Надо все продумать. В календарь надо будет еще добавить кое какие объекты.
|
![]() |
![]() |
![]() |
#18 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
![]()
Попробуй так:
Код:
|
![]() |
![]() |
![]() |
#19 |
Форумчанин
Регистрация: 13.06.2009
Сообщений: 691
|
![]()
Это конечная часть кода. Что то не то. Не открывается
Private Sub CommandButton2_Click() ................................... ..................... Application.Goto Reference:="К_Сброс" MsgBox " Данные сохранены ", 64, "Сохранение данных" Дата = Get_Date(Now) End If. End Sub Последний раз редактировалось segail; 14.07.2009 в 21:00. |
![]() |
![]() |
![]() |
#20 |
Форумчанин
Регистрация: 13.06.2009
Сообщений: 691
|
![]()
Кнопка открытия находится на другой форме. Сообщение уже есть. Второго не надо
Что вместо даты поставить UserForm2 ? Не подходит. Me.Date = Get_Date(Now) тоже не подходит. Не знаю Последний раз редактировалось segail; 14.07.2009 в 22:35. |
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Рамка на форме... | Deight | Общие вопросы Delphi | 6 | 30.12.2008 12:19 |
Фопрос по форме. | yura-cat | Помощь студентам | 1 | 15.10.2008 20:02 |
Кнопки на форме | forzi | Помощь студентам | 5 | 10.05.2008 11:56 |
Gif на форме | SnakeMan | Помощь студентам | 3 | 04.04.2008 15:05 |
Gif'ы на форме | GAGARIN-NEW | Общие вопросы Delphi | 3 | 11.11.2007 11:22 |