Hier mal das Problem um das es geht
Es müssen noch viel mehr Case kommen.
Schöner wäre sowas wie
PictureBox(Zaehler+1).Image = Ausschnit(PictureBox1.Image, 1 * j, 1 * i, X_Teil, Y_Teil)
dann könnte ich mir die ganze Select Case Sache sparen.
VB.NET-Quellcode
- For i = 0 To 13 * Y_Teil Step Y_Teil
- For j = 0 To 9 * X_Teil Step X_Teil
- Zaehler += 1
- Select Case Zaehler
- Case 1
- PictureBox2.Image = Ausschnit(PictureBox1.Image, 1 * j, 1 * i, X_Teil, Y_Teil)
- Case 2
- PictureBox3.Image = Ausschnit(PictureBox1.Image, 1 * j, 1 * i, X_Teil, Y_Teil)
- Case 3
- PictureBox4.Image = Ausschnit(PictureBox1.Image, 1 * j, 1 * i, X_Teil, Y_Teil)
- Case 4
- PictureBox5.Image = Ausschnit(PictureBox1.Image, 1 * j, 1 * i, X_Teil, Y_Teil)
- Case 5
- PictureBox6.Image = Ausschnit(PictureBox1.Image, 1 * j, 1 * i, X_Teil, Y_Teil)
- Case 6
- PictureBox7.Image = Ausschnit(PictureBox1.Image, 1 * j, 1 * i, X_Teil, Y_Teil)
- Case 7
- PictureBox8.Image = Ausschnit(PictureBox1.Image, 1 * j, 1 * i, X_Teil, Y_Teil)
- Case 8
- PictureBox9.Image = Ausschnit(PictureBox1.Image, 1 * j, 1 * i, X_Teil, Y_Teil)
- Case 9
- PictureBox10.Image = Ausschnit(PictureBox1.Image, 1 * j, 1 * i, X_Teil, Y_Teil)
- Case 10
- PictureBox11.Image = Ausschnit(PictureBox1.Image, 1 * j, 1 * i, X_Teil, Y_Teil)
- Case 11
- PictureBox12.Image = Ausschnit(PictureBox1.Image, 1 * j, 1 * i, X_Teil, Y_Teil)
- Case Else
- MessageBox.Show("Unerwartete Zahl" & vbCrLf & "Verarbeitung existiert nicht!", "Problem", MessageBoxButtons.OK, MessageBoxIcon.Error) 'Warning)'Fehlermeldung
- Exit Sub
- End Select
- Next
- Next
Es müssen noch viel mehr Case kommen.
Schöner wäre sowas wie
PictureBox(Zaehler+1).Image = Ausschnit(PictureBox1.Image, 1 * j, 1 * i, X_Teil, Y_Teil)
dann könnte ich mir die ganze Select Case Sache sparen.