Public Class Opdracht4
Private Sub ListBoxMunteenheden_SelectedIndexChanged(sender As Object, e As EventArgs) Handles
ListBoxMunteenheden.SelectedIndexChanged
'De Cases worden aangemaakt om de verschillende Munteenheden aan ListBox Wisselkoersen toe te voegen.
Select Case ListBoxMunteenheden.SelectedIndex
Case 0
'De Amerikaanse Dollar wordt toegevoegd aan ListBoxWisselkoersen
Dim AmerikaanseDollar As Decimal
AmerikaanseDollar = InputBox("Geef de wisselkoers >0 en <500 voor de Euro tov Amerikaanse dollars (1 Euro
= .... Amerikaanse Dollar): ")
ListBoxWisselkoersen.Items.Add("1 Euro = " & AmerikaanseDollar & " Amerikaanse dollars")
ListBoxWisselkoersen.Items.Add(" ")
If AmerikaanseDollar <= 0 Then ListBoxWisselkoersen.Items.Clear()
If AmerikaanseDollar <= 0 Then MsgBox("U dient een andere waarde op te geven")
If AmerikaanseDollar >= 500 Then ListBoxWisselkoersen.Items.Clear()
If AmerikaanseDollar >= 500 Then MsgBox("U dient een andere waarde op te geven")
Case 1
'Wanneer er op een lege regel wordt geklikt, verschijnt er een melding.
ListBoxMunteenheden.Text = " "
MsgBox("U dient op een munteenheid te klikken")
Case 2
'De Britse Pond wordt toegevoegd aan ListBoxWisselkoersen
Dim BritsePonden As Decimal
BritsePonden = InputBox("Geef de wisselkoers >0 en <500 voor de Euro tov Britse Ponden (1 Euro = .... Britse Pond)")
ListBoxWisselkoersen.Items.Add("1 Euro = " & BritsePonden & " Britse Ponden")
ListBoxWisselkoersen.Items.Add(" ")
If BritsePonden <= 0 Then ListBoxWisselkoersen.Items.Clear()
If BritsePonden <= 0 Then MsgBox("U dient een andere waarde op te geven")
If BritsePonden >= 500 Then ListBoxWisselkoersen.Items.Clear()
If BritsePonden >= 500 Then MsgBox("U dient een andere waarde op te geven")
Case 3
'Wanneer er op een lege regel wordt geklikt, verschijnt er een melding.
ListBoxMunteenheden.Text = " "
MsgBox("U dient op een munteenheid te klikken")
Case 4
'Wanneer er op de Euro wordt geklikt, verschijnt er een melding.
Dim Euro As Decimal
Euro = MsgBox("U heeft gekozen voor de Euro. Hiervan is de waarde altijd 1. Kies een andere munteenheid uit
de lijst.")
Case 5
'Wanneer er op een lege regel wordt geklikt, verschijnt er een melding.
ListBoxMunteenheden.Text = " "
MsgBox("U dient op een munteenheid te klikken")
Case 6
'De Russische Roebel wordt toegevoegd aan ListBoxWisselkoersen
Dim RussischeRoebel As Decimal
RussischeRoebel = InputBox("Geef de wisselkoers >0 en <500 voor de Euro tov Russische Roebel (1 Euro = .... Russische Roebel)")
ListBoxWisselkoersen.Items.Add("1 Euro = " & RussischeRoebel & " Russische Robel")
ListBoxWisselkoersen.Items.Add(" ")
If RussischeRoebel <= 0 Then ListBoxWisselkoersen.Items.Clear()
If RussischeRoebel <= 0 Then MsgBox("U dient een andere waarde op te geven")
If RussischeRoebel >= 500 Then ListBoxWisselkoersen.Items.Clear()
If RussischeRoebel >= 500 Then MsgBox("U dient een andere waarde op te geven")
Case 7
'Wanneer er op een lege regel wordt geklikt, verschijnt er een melding.
ListBoxMunteenheden.Text = " "
MsgBox("U dient op een munteenheid te klikken")
Case 8
'De Japanse Yen wordt toegevoegd aan ListBoxWisselkoersen
Dim JapanseYen As Decimal
JapanseYen = InputBox("Geef de wisselkoers >0 en <500 voor de Euro tov Japanse Yen (1 Euro = .... Japanse Yen)")
ListBoxWisselkoersen.Items.Add("1 Euro = " & JapanseYen & " Japanse Yen")
ListBoxWisselkoersen.Items.Add(" ")
If JapanseYen <= 0 Then ListBoxWisselkoersen.Items.Clear()
If JapanseYen <= 0 Then MsgBox("U dient een andere waarde op te geven")
If JapanseYen >= 500 Then ListBoxWisselkoersen.Items.Clear()
If JapanseYen >= 500 Then MsgBox("U dient een andere waarde op te geven")
Case 9
'Wanneer er op een lege regel wordt geklikt, verschijnt er een melding.
ListBoxMunteenheden.Text = " "
MsgBox("U dient op een munteenheid te klikken")
End Select