Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 176365
28.01.2010, 18:04
35.77 руб.
0 6 1
Компьютеры Программирование
Уважаемые эксперты, подскажите в следующем: как сделать, чтобы при открытии формы в имеющейся на ней текстбоксе была введена текущая дата во всевозможных форматах, а также части этой даты, то есть в трёх тексбоксах отдельно, день, месяц год в разных форматах.
Спасибо Эндрю

Обсуждение

давно
Megaloman
Модератор
137394
1850
29.01.2010, 00:05
общий
это ответ
Здравствуйте, Ципихович Эндрю.
В пользовательской форме для события инициализации можно прописать все элементы текущей даты, а затем присвоить их свойствам Text соответствующих текстбоксов.
Вот здесь пример 7777.doc (30.5 кб).
Вот код.
Код:
 Private Sub UserForm_Initialize()
   Текущая_дата = Date
   Дата_в_формате = Format(Текущая_дата, "dd mmmm yyyy г.")
   День = Day(Текущая_дата)
   День_недели_номер = Weekday(Текущая_дата, vbMonday)
   День_недели_название = WeekdayName(День_недели_номер, False, vbMonday)
   Месяц_номер = Month(Текущая_дата)
   Месяц_название = MonthName(Месяц_номер)
   Год = Year(Текущая_дата)
   
   TextBox1.Text = Текущая_дата
   TextBox2.Text = Дата_в_формате
   TextBox3.Text = День
   TextBox4.Text = CStr(День_недели_номер)
   TextBox5.Text = День_недели_название
   TextBox6.Text = CStr(Месяц_номер)
   TextBox7.Text = Месяц_название
   TextBox8.Text = CStr(Год)

End Sub

5
Об авторе:
Понеже не словес красных бог слушает, но дел наших хощет
Неизвестный
30.01.2010, 03:31
общий
Megaloman:
Также подскажите пожалуйста, например на форме имеется Кнопка1, надпись Label1 как сделать при помощи ВБА
чтобы когда открывалась форма на кнопке была надпись по моему усмотрению.
Спасибо Эндрю
давно
Megaloman
Модератор
137394
1850
30.01.2010, 12:57
общий
Пример здесь.77772.doc (40.5 кб) В свойствах кнопки Пример на странице документа, вызывающей форму, на клик написан код, в котором определяется надпись Caption на кнопке CommandButton1 формы Проба_даты.
Код:
 Private Sub CommandButton1_Click()
   Проба_даты.CommandButton1.Caption = "Глокая куздра бадланула бокра"
   Проба_даты.Show
End Sub

Об авторе:
Понеже не словес красных бог слушает, но дел наших хощет
Неизвестный
30.01.2010, 17:47
общий
Megaloman:
Скачал ваш пример 7772, увы не работает, подскажите почему ??, подскажите в следующем имелся у меня Шаблон с именем 00, в нём множество кнопок, которые добавляются Элементы управления => Кнопка, на его основе я создал документ, всё было хорошо, а со временем эти кнопки перестали работать, почему ??, как этого предотвратить в дальнейшем ?? Може как в Вашем случае.
Укажите ссылку, где можно посмотреть на русском языке свойства элементов, которые можно добавить в форму. Можно ли программно у одного из элементов добавлять свойства, которых у него нет. Можно ли и где скачать элементы, которые можно добавить на форму ??
давно
Megaloman
Модератор
137394
1850
30.01.2010, 18:52
общий
Ципихович Эндрю:
увы не работает, подскажите почему ??,
-теряюсь в догадках У себя проверял, работает. А 7777.doc у Вас работает?
Может быть у Вас в меню Word - Сервис - Макрос- Безопасность стоит птица на высокой безопасности? Попробуйте поставить на среднюю.
Об авторе:
Понеже не словес красных бог слушает, но дел наших хощет
Неизвестный
30.01.2010, 21:08
общий
Megaloman:
Изменил "птицу" всё работает. Спасибо большое
Форма ответа