|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
20.06.2009, 15:48 | #11 |
Пользователь
Регистрация: 16.05.2009
Сообщений: 64
|
|
23.06.2009, 05:16 | #12 | |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Цитата:
Скопируйте файл "mscomct2.ocx" в папку "C:\Windows\System32" (для XP) и зарегистрируйте его в реестре.
Чем шире угол зрения, тем он тупее.
|
|
07.07.2009, 10:08 | #13 |
Регистрация: 18.03.2009
Сообщений: 6
|
Во вложении необходимый файл библиотеки для колендаря для 2003 и для 2007 офисов, файл для соответствующего офиса надо скопировать в папку с:\windows\system32 для windows xp и vista и в папку с:\winnt\system32 для windows 2000. В текстовом файле текст, который надо ввести в поле команды "Выполнить" в windows, не забыв указать соответствующую папку windows или winnt для соответствующей системы.
|
14.07.2009, 13:32 | #14 |
Форумчанин
Регистрация: 13.06.2009
Сообщений: 691
|
Календарь отличный. В чистом виде данный календарь есть. Текущая дата, месяц, год , время. В VB грубоватый календарь.
|
14.07.2009, 19:15 | #15 |
Форумчанин
Регистрация: 13.06.2009
Сообщений: 691
|
У вас применяется код открытия календаря
Private Sub CommandButton1_Click(): Me.TextBox1 = Get_Date(Me.TextBox1, Now): End Sub Мне необходимо чтобы после клика по кнопке Private Sub CommandButton2_Click() (у меня выходит информационное сообщение), после закрытия сообщения должен открыться календарь |
14.07.2009, 20:03 | #16 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Цитата:
Куда должна попасть выбранная пользователем дата? |
|
14.07.2009, 20:18 | #17 |
Форумчанин
Регистрация: 13.06.2009
Сообщений: 691
|
Пока ни куда. Там не только дата там целый набор значений. Надо все продумать. В календарь надо будет еще добавить кое какие объекты.
|
14.07.2009, 20:22 | #18 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Попробуй так:
Код:
|
14.07.2009, 20:29 | #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. |
14.07.2009, 20:31 | #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 |