Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim Eingabe As String
- Dim FehlerMeldung As System.Windows.Forms.DialogResult
- lblFam.Visible = True
- lblSteuer2.Visible = True
- txtfamstand.Visible = True
- txtstKlasse.Visible = True
- Eingabe = txtSteuerklasse.Text
- Select Case Eingabe
- Case "1"
- txtfamstand.Text = "ledig, geschieden, verwitwet"
- txtstKlasse.Text = "1"
- Case "2"
- txtfamstand.Text = "geschieden mit Kindern"
- txtstKlasse.Text = "2"
- Case "3"
- txtfamstand.Text = "Verheiratet"
- txtstKlasse.Text = "3"
- Case "4"
- txtfamstand.Text = "verheiratet, Ehegatte LstKlasse: 4"
- txtstKlasse.Text = "4"
- Case "5"
- txtfamstand.Text = "verheiratet, Ehegatte LstKlasse: 3"
- txtstKlasse.Text = "5"
- Case "6"
- txtfamstand.Text = "Zusätzliche Lohnsteuerkarte"
- txtstKlasse.Text = "6"
- Case Else
- txtfamstand.Text = "unzulässige Eingabe"
- txtstKlasse.Text = "unzulässige Eingabe"
- FehlerMeldung = "unzulässige Eingabe"
- FehlerMeldung = "unzulässige Eingabe"
- MessageBox.Show(FehlerMeldung, MessageBoxIcon.Warning)
- End Select
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement