VB.NET-Quellcode
- Dim lehrerzahl As String = NumericUpDown1.Value.ToString
- Controls("RichTextBox" & lehrerzahl.ToString()).Text = TextBox1.Text ' fehler zeile
- Select Case True
- Case CheckBox1.Checked : Controls("RichTextBox" & lehrerzahl.ToString()).Text = Controls("RichTextBox" + lehrerzahl.ToString()).Text + " Ma_"
- Case CheckBox2.Checked : Controls("RichTextBox" & lehrerzahl.ToString()).Text = Controls("RichTextBox" + lehrerzahl.ToString()).Text + " D_"
- Case CheckBox3.Checked : Controls("RichTextBox" & lehrerzahl.ToString()).Text = Controls("RichTextBox" + lehrerzahl.ToString()).Text + " Eng_"
- Case CheckBox3.Checked : Controls("RichTextBox" & lehrerzahl.ToString()).Text = Controls("RichTextBox" + lehrerzahl.ToString()).Text + " Ph_"
- Case CheckBox4.Checked : Controls("RichTextBox" & lehrerzahl.ToString()).Text = Controls("RichTextBox" + lehrerzahl.ToString()).Text + " Ch_"
- Case CheckBox5.Checked : Controls("RichTextBox" & lehrerzahl.ToString()).Text = Controls("RichTextBox" + lehrerzahl.ToString()).Text + " Mu_"
- Case CheckBox6.Checked : Controls("RichTextBox" & lehrerzahl.ToString()).Text = Controls("RichTextBox" + lehrerzahl.ToString()).Text + " Ku_"
- Case CheckBox7.Checked : Controls("RichTextBox" & lehrerzahl.ToString()).Text = Controls("RichTextBox" + lehrerzahl.ToString()).Text + " Info_"
- Case CheckBox8.Checked : Controls("RichTextBox" & lehrerzahl.ToString()).Text = Controls("RichTextBox" + lehrerzahl.ToString()).Text + " Sp_"
- Case CheckBox9.Checked : Controls("RichTextBox" & lehrerzahl.ToString()).Text = Controls("RichTextBox" + lehrerzahl.ToString()).Text + " WAT_"
- Case CheckBox10.Checked : Controls("RichTextBox" & lehrerzahl.ToString()).Text = Controls("RichTextBox" + lehrerzahl.ToString()).Text + " Bio".ToString
- End Select
- NumericUpDown1.Value += 1