Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Формат ввода в форму / 5 сообщений из 5, страница 1 из 1
27.07.2009, 12:06
    #36110489
Nik_Koraman
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Формат ввода в форму
Всем доброго времени суток. нужен help. сделана своя форма для заполнения таблицы. в одной из ячеек должна стоять дата

Private Sub TextBox2_Change()
TextBox2 = Date

таким образом он сам выводит сегодняшнюю дату в данный textbox, но её нельзя исправлять. подскажите плиз как сделать так чтобы при вызове формы дата ставилась автоматам как сейчас но её в случае необходимости можно было исправить.
заранее спасибо
...
Рейтинг: 0 / 0
27.07.2009, 13:54
    #36110882
olga zobkov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Формат ввода в форму
Nik_Koraman,

TextBox2 = Date
добавь в событие вызова формы
...
Рейтинг: 0 / 0
27.07.2009, 14:25
    #36111003
Nik_Koraman
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Формат ввода в форму
всё равно не хочет менять руками
...
Рейтинг: 0 / 0
27.07.2009, 17:28
    #36111682
gjghjc
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Формат ввода в форму
Правильно не хочет. Как только ты меняешь в своем текстбоксе значение срабатывает событие Change и у тебя снова в Text2 сегодняшняя дата.

Чтобы можно было менять тебе уже сказали помести в Form_Load

Код: plaintext
TextBox2.Text = CStr(Date)

А из события

TextBox2_Change Удали

Код: plaintext
TextBox2 = Date


С уважением, Николай.
...
Рейтинг: 0 / 0
29.07.2009, 09:43
    #36114801
Nik_Koraman
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Формат ввода в форму
большое спасибо, всё заработало!=)
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Формат ввода в форму / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]