Шаг 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)


Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем - 13.12.2001