Как вернуться в состояние до нажатия кнопки?

@kOS_77 · Регистрация: 14.06.2011

Студворк — интернет-сервис помощи студентам

Подскажите как мне вернуться в состояние ДО нажатие кнопки...

VB.NET
1
2
3
4
5
6
7
8
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim d1, d2 As Date
        Dim d3 As Integer
        d1 = DateTimePicker1.Value
        d2 = DateTimePicker2.Value
        d3 = DateDiff(DateInterval.Day, d1, d2) + 1
        If d3 <= 1 Then MsgBox("Вы не выбрали числа командировки !", vbCritical)

Данное вычисление календарных дней происходит ПОСЛЕ нажатия кнопки, как бы, в случае ошибки(d3<=1), мне вернуться в исходное состояние ? Операторы GoTo и ему подобные работают только "внутри"

И еще вопрос, у меня есть 20 CheckBox'ов, один из них полюбому должен быть выбран, если галочки нигде нет, то MsgBox и возврат в начало до "нажатия кнопки". Оператор if отказывается это делать, я его пробывал уговаривать... не получается. Все CheckBox'ы в операторе if не перечислишь, ругается.

Подскажите пожалуйста...

@Vlanib · 22.06.2011, 04:54

Что вы называете "исходным состоянием" и непонятно совсем что там с вашими Check Box'ами?

@Alex77755 · 22.06.2011, 08:03

до "нажатия кнопки". так просто вйти из процедуры!
В цикле просмотреть чекбоксы. Можно какому-то флагу до цикла присвоить True. В цикле исли чек чекнутый - флаг False. После цикла Если флаг exit sub

@kOS_77 · 22.06.2011, 11:02 **[ТС]**

Болбшое спасибо за "Exit sub", с ним получилось!

Сообщение от Vlanib

Что вы называете "исходным состоянием" и непонятно совсем что там с вашими Check Box'ами?

Есть к примеру 3 CheckBox'а и кнопка - код нужен следующий - После нажатия кнопки если на всех троих галочка НЕ стоит тогда Exit sub

Вот так не получается

Visual Basic
1
2
3
4
5
IF 
          CheckBox1.checked = false
          CheckBox2.checked = false
          CheckBox3.checked = false  
                                                Then exit sub

Кто подскажет с помощью кого (оператора) сделать ?

@Ципихович Эндрю · 22.06.2011, 21:58

Visual Basic
1
IF CheckBox1.checked = false And CheckBox2.checked = false And  CheckBox3.checked = false Then exit sub

@kOS_77 · 22.06.2011, 23:08 **[ТС]**

Огромное спасибо !

Везде в справочниках при форматировании даты (Format("dd mm yyyy")) месяц указывается как "m". У меня в visual basic 2010 "m" - это минуты...

Народ, как в 2010'ом месяц обозначается ?

@Ципихович Эндрю · 23.06.2011, 04:43

Вы выложите строку полностью где у Вас минуты вместо месяца
Ветка по Визуал Бейсику, он что у Вас 2010??

@Alex77755 · 23.06.2011, 09:39

Действительно в NET не так работает форматирование даты-время
"m" показывает дату с днём (типа "июня 23")
а вот минуты показывает "mm"

@kOS_77 · 23.06.2011, 19:37 **[ТС]**

У меня не NET, у меня Visual Basic 2010......

Вот скриншоты:

@kOS_77 · 23.06.2011, 19:49 **[ТС]**

Вот еще так...

@kOS_77 · 23.06.2011, 20:53 **[ТС]**

Все, разобрался... Оказывается в Visual Basic 2010 для обозначения месяца используется большая "M", а маленькая "m" используется для обозначения минут. На сколько я знаю, раньше минуты обозначались "n".

@Alex77755 · 23.06.2011, 23:03

У меня не NET, у меня Visual Basic 2010
А это разве не NET??

@kOS_77 · 23.06.2011, 23:52 **[ТС]**

А я и не знаю NET или нет. я... как бы себя не обидеть... чайник еще. Я занимаюсь VB ровно 9 дней и уже дописываю (осталось только набить данные в списки, все работает) свою первую программу - Модуль по автоматическому созданию командировочных удостоверений.

И мне очень помогли советы и примеры которые мне давали форумчане. К примеру с элементарными функциями как date, datePart, datediff я возился дня два или три.

Огромное всем спасибо !

Не могу воспользоваться случаем и спросить - как сделать combobox который
1) Имеет свой список
2) Позволяет дополнять новые строки
3) Запоминает новые строки
4) Позволяет редактировать существующие
5) Имеет поиск по первым введенным символам.

Можно по кусочкам... я уж соберу как нибудь)))

@Vlanib · 24.06.2011, 05:30

Вы читали учебники? В частности об элементе управления ComboBox? В любом из них, даже самом простом, есть ответы как минимум на первые 3 вопроса. А с оставшимися двумя на основе вашего кода поможем.

@kOS_77 · 24.06.2011, 07:34 **[ТС]**

Да я уже понял что поторопился с вопросом... большинство заложено в стандартном comboBox'e))))

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .

@Vlanib Частенько бываю 750 / 331 / 42 Регистрация: 20.06.2007 Сообщений: 854
	22.06.2011, 04:54
	Что вы называете "исходным состоянием" и непонятно совсем что там с вашими Check Box'ами? 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	22.06.2011, 08:03
	до "нажатия кнопки". так просто вйти из процедуры! В цикле просмотреть чекбоксы. Можно какому-то флагу до цикла присвоить True. В цикле исли чек чекнутый - флаг False. После цикла Если флаг exit sub 1

@kOS_77 196 / 188 / 9 Регистрация: 14.06.2011 Сообщений: 495
	22.06.2011, 23:08 [ТС]
	Огромное спасибо ! Везде в справочниках при форматировании даты (Format("dd mm yyyy")) месяц указывается как "m". У меня в visual basic 2010 "m" - это минуты... Народ, как в 2010'ом месяц обозначается ? 0

@Ципихович Эндрю 1711 / 578 / 76 Регистрация: 10.04.2009 Сообщений: 9,307
	23.06.2011, 04:43
	Вы выложите строку полностью где у Вас минуты вместо месяца Ветка по Визуал Бейсику, он что у Вас 2010?? 1

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	23.06.2011, 09:39
	Действительно в NET не так работает форматирование даты-время "m" показывает дату с днём (типа "июня 23") а вот минуты показывает "mm" 1

@kOS_77 196 / 188 / 9 Регистрация: 14.06.2011 Сообщений: 495
	23.06.2011, 19:37 [ТС]
	У меня не NET, у меня Visual Basic 2010...... Вот скриншоты: Миниатюры 0

@kOS_77 196 / 188 / 9 Регистрация: 14.06.2011 Сообщений: 495
	23.06.2011, 19:49 [ТС]
	Вот еще так... Миниатюры 0

@kOS_77 196 / 188 / 9 Регистрация: 14.06.2011 Сообщений: 495
	23.06.2011, 20:53 [ТС]
	Все, разобрался... Оказывается в Visual Basic 2010 для обозначения месяца используется большая "M", а маленькая "m" используется для обозначения минут. На сколько я знаю, раньше минуты обозначались "n". Миниатюры 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	23.06.2011, 23:03
	У меня не NET, у меня Visual Basic 2010 А это разве не NET?? 1

@kOS_77 196 / 188 / 9 Регистрация: 14.06.2011 Сообщений: 495
	23.06.2011, 23:52 [ТС]
	А я и не знаю NET или нет. я... как бы себя не обидеть... чайник еще. Я занимаюсь VB ровно 9 дней и уже дописываю (осталось только набить данные в списки, все работает) свою первую программу - Модуль по автоматическому созданию командировочных удостоверений. И мне очень помогли советы и примеры которые мне давали форумчане. К примеру с элементарными функциями как date, datePart, datediff я возился дня два или три. Огромное всем спасибо ! Не могу воспользоваться случаем и спросить - как сделать combobox который 1) Имеет свой список 2) Позволяет дополнять новые строки 3) Запоминает новые строки 4) Позволяет редактировать существующие 5) Имеет поиск по первым введенным символам. Можно по кусочкам... я уж соберу как нибудь))) 0

@Vlanib Частенько бываю 750 / 331 / 42 Регистрация: 20.06.2007 Сообщений: 854
	24.06.2011, 05:30
	Вы читали учебники? В частности об элементе управления ComboBox? В любом из них, даже самом простом, есть ответы как минимум на первые 3 вопроса. А с оставшимися двумя на основе вашего кода поможем. 0

@kOS_77 196 / 188 / 9 Регистрация: 14.06.2011 Сообщений: 495
	24.06.2011, 07:34 [ТС]
	Да я уже понял что поторопился с вопросом... большинство заложено в стандартном comboBox'e)))) 0