Programma in VB

Het programma globaal: Ik ga een programma maken voor een bedrijf (Workshops&Co) dat workshops aanbied. Het programma heeft een lijst van 12 workshops, waarvan je er 8 kunt uitkiezen. Nadat je dat gedaan hebt maakt het programma de juiste dagindeling. ********************************************

Private Sub CmdGenereerKnop_Click() ' Voeg de gegevens in de listbox If CmbSelecteer1 = "" And CmbSelecteer2 = "" And CmbSelecteer3 = "" And CmbSelecteer4 = "" Then ' Als de gebruiker geen enkele workshop heeft gelecteerd dan krijgt hij een foutmelding Msg = "Er zijn GEEN workshops geselecteerd" MsgBox Msg, vbCritical, "Onvoldoende gegevens!" ' Plaats cursor CmbSelecteer1.SetFocus

Else: If CmbSelecteer1 = "" Then ' Als men bij de eerste workshop niets heeft ingevuld krijgt men een foutmelding Msg = "U heeft niets ingevuld bij de Eerste Workshop" MsgBox Msg, vbCritical, "Onvoldoende gegevens!" 'Alle listboxen worden gewist ' Dan word de invoer leeggemaakt en de cursor geplaatst LstUitvoer1.Clear LstUitvoer2.Clear LstUitvoer3.Clear LstUitvoer4.Clear ' Dan word de invoer leeggemaakt CmbSelecteer1.Text = "" 'De cursor word terug geplaatst in de combobox van de derde workshop CmbSelecteer1.SetFocus Else: LstUitvoer1.AddItem ("(8.35 / 10.30) " + CmbSelecteer1)

If CmbSelecteer2 = "" Then ' Als men bij de tweede workshop niets heeft ingevuld krijgt men een foutmelding Msg = "U heeft niets ingevuld bij de Tweede Workshop" MsgBox Msg, vbCritical, "Onvoldoende gegevens!" 'Alle listboxen worden gewist ' Dan word de invoer leeggemaakt en de cursor geplaatst LstUitvoer1.Clear LstUitvoer2.Clear LstUitvoer3.Clear LstUitvoer4.Clear ' Dan word de invoer leeggemaakt CmbSelecteer2.Text = "" 'De cursor word terug geplaatst in de combobox van de derde workshop CmbSelecteer2.SetFocus Else: LstUitvoer2.AddItem ("(11.05 / 13.00)" + CmbSelecteer2)

If CmbSelecteer3 = "" Then ' Als men bij de derde workshop niets heeft ingevuld krijgt men een foutmelding Msg = "U heeft niets ingevuld bij de Derde Workshop" MsgBox Msg, vbCritical, "Onvoldoende gegevens!" 'Alle listboxen worden gewist ' Dan word de invoer leeggemaakt en de cursor geplaatst LstUitvoer1.Clear LstUitvoer2.Clear LstUitvoer3.Clear LstUitvoer4.Clear ' Dan word de invoer leeggemaakt CmbSelecteer3.Text = "" 'De cursor word terug geplaatst in de combobox van de derde workshop CmbSelecteer3.SetFocus Else: LstUitvoer3.AddItem ("(14.05 / 16.00)" + CmbSelecteer3) If CmbSelecteer4 = "" Then ' Als men bij de Vierde workshop niets heeft ingevuld krijgt men een foutmelding Msg = "U heeft niets ingevuld bij de Vierde Workshop" MsgBox Msg, vbCritical, "Onvoldoende gegevens!" 'Alle listboxen worden gewist ' Dan word de invoer leeggemaakt en de cursor geplaatst LstUitvoer1.Clear LstUitvoer2.Clear LstUitvoer3.Clear LstUitvoer4.Clear ' Dan word de invoer leeggemaakt CmbSelecteer4.Text = "" 'De cursor word terug geplaatst in de combobox van de derde workshop CmbSelecteer4.SetFocus Else: LstUitvoer4.AddItem ("(16.35 / 18.30)" + CmbSelecteer4)

End If
End If
End If
End If
End If
End Sub

Private Sub CmdInfo_Click() ' Je gaat naar het tweede gedeelte van het programma
Form2.Show
End Sub

Private Sub CmdWisKnop_Click() 'Er wordt een melding gegeven

Dim Msg As String, Knop As Integer
Msg = "Weet u zeker dat u alles wilt wissen?" Knop = MsgBox(Msg, vbYesNo + vbExclamation, "Let op!") If Knop = vbYes Then ' Alle listboxen en comboboxen worden gewist LstUitvoer1.Clear LstUitvoer2.Clear LstUitvoer3.Clear LstUitvoer4.Clear CmbSelecteer1 = "" CmbSelecteer2 = "" CmbSelecteer3 = "" CmbSelecteer4 = "" 'De cursor word geplaatst CmbSelecteer1.SetFocus
Else Exit Sub
End If
End Sub