Public Class Form1
Public selectedOber = ""
Public Value1 As Double
Public Oper As Char
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Form2.Hide()
Form3.Hide()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Artikel_Verwijderen.Click
ListView1.Items.Clear()
End Sub
Private Sub Artikel_Toevoegen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Artikel_Toevoegen.Click
Form3.Show()
Me.Hide()
End Sub
Private Sub Ober_wijzigen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ober_wijzigen.Click
Dim Obers As String() = {"Ober1", "Ober2", "Ober3", "Ober4", "Ober5", "Ober6", "Ober7", "Ober8", "Ober9", "Ober10"}
If Ober.Text.Length > 14 Then selectedOber = Ober.Text.Split(":")(1).TrimStart(" ")
Dim frm As New Form2
frm.ListBox1.Items.AddRange(Obers)
If selectedOber <> "" Then frm.ListBox1.SelectedIndex = Array.IndexOf(Obers, selectedOber)
frm.ShowDialog()
Ober.Text = "Ober: " & selectedOber
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
Calculate()
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
TextBox2.Text = TextBox2.Text & ","
End Sub
Private Sub GetalButtons(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click, Button6.Click, Button7.Click, Button8.Click, Button9.Click, Button10.Click
Dim Bt As Button = CType(sender, Button)
ShowValue(Bt)
End Sub
Private Sub TekenButtons(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click, Button14.Click, Button15.Click, Button16.Click
Dim Bt As Button = CType(sender, Button)
arithmetic(Bt)
End Sub
End Class
