Дипломная работа: Автошкола "Кадиллак"

CreateGroupForm.Hide

GroupForm.Show (0)

End If

End If

If ed_date.Text <> CDate(ed_date.Text) Or ed_enddate.Text <> CDate(ed_enddate.Text) Or CDate(ed_enddate.Text) <= CDate(ed_date.Text) Or ListBox1.ListCount = 0 Then

erin:

If ListBox1.ListCount = 0 Then

x = MsgBox("Группа пуста!", vbCritical + vbOKOnly, "Автошкола")

Else

x = MsgBox("Ошибка в дате!", vbCritical + vbOKOnly, "Автошкола")

End If

End If

End Sub

Кнопка “==>>”:

Private Sub CommandButton1_Click()

Dim i As Integer

For i = ListBox1.ListCount - 1 To 0 Step -1

If ListBox1.Selected(i) Then

ListBox2.AddItem ListBox1.List(i)

ListBox1.RemoveItem i

End If

Next i

End Sub

Кнопка “<<==”:

Private Sub CommandButton2_Click()

Dim i As Integer

For i = ListBox2.ListCount - 1 To 0 Step -1

If ListBox2.Selected(i) Then

ListBox1.AddItem ListBox2.List(i)