Исходники.Ру - Программирование
Исходники
Статьи
Книги и учебники
Скрипты
Новости RSS
Магазин программиста

Ishodniki.Ru » Online книги » Visual Basic по шагам

Шаг 78 - Разрешения продолжение работы при условии заполнении полей

Одной из задач может быть гарантия того, что пользователь заполнил все поля. Давайте создадим форму в на которой есть кнопка и элементы управления без заполненных полей. Задача в том, что бы кнопка далее загорелась только при условии, что все данные хоть чем нибуть заполнены.

gif/78_1.gif (2845 b)

Решим мы эту задаче так, в момент отпуская клавиши в элементе будет проверят что в элементах что-то есть. Как только во все введены, кнопка далее должна загореться.

Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)

Test

End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)

Test

End Sub

Private Sub Text3_KeyUp(KeyCode As Integer, Shift As Integer)

Test

End Sub



Sub Test()

For Each contl In Controls

	If TypeOf contl Is TextBox Then

		If contl.Text = "" Then

			Command1.Enabled = False

			Exit Sub

		End If

	End If

Next contl

Command1.Enabled = True

Command1.Caption = "Далее pleas"

End Sub

Мы при каждом нажатии клавиши, в момент отпускания проверяем, что все поля заполнены. Просто пробегаемся по все элементам управления и, если этот элемент управления TextBox, то смотрим заполнен он или нет. В момент ввода загорается кнопка Далее.

gif/78_2.gif (3305 b)

 

Предыдущий шаг | Оглавление | Следующий шаг

Рассылка новостей
Рейтинги
© 2007, Программирование Исходники.Ру