Also ich habe als erstes mit den Bildern und der Checkbox angefangen das sieht dann so aus
Public Class Form1
Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
' SetItemString(ComboBox1, ComboBox1.Items.Count, "B")
'Me.ComboBox1.SelectedItem = ("Gelbes Reich Map 2")
Dim PixName As String = CStr(ComboBox1.SelectedItem)
If PixName = "" Then
PictureBox1.Image = System.Drawing.Bitmap.FromFile("")
End If
If PixName = "Gelbes Reich Map1" Then
PictureBox1.Image = System.Drawing.Bitmap.FromFile("Hier muss stehen wo her du die datei bezieht z.b C/user....")
End If
If PixName = "Gelbes Reich Map2" Then
PictureBox1.Image = System.Drawing.Bitmap.FromFile("Hier muss stehen wo her du die datei bezieht z.b C/user....")
End If
If PixName = "Rotes Reich Map1" Then
PictureBox1.Image = System.Drawing.Bitmap.FromFile("Hier muss stehen wo her du die datei bezieht z.b C/user....")
End If
If PixName = "Rotes Reich Map2" Then
PictureBox1.Image = System.Drawing.Bitmap.FromFile("Hier muss stehen wo her du die datei bezieht z.b C/user....")
End If
If PixName = "Blaues Reich Map2 " Then
PictureBox1.Image = System.Drawing.Bitmap.FromFile("Hier muss stehen wo her du die datei bezieht z.b C/user....")
End If
If PixName = "Eisland" Then
PictureBox1.Image = System.Drawing.Bitmap.FromFile("Hier muss stehen wo her du die datei bezieht z.b C/user....")
End If
If PixName = "Yangobi-Wüste" Then
PictureBox1.Image = System.Drawing.Bitmap.FromFile("Hier muss stehen wo her du die datei bezieht z.b C/user....")
End If
If PixName = "Orktal" Then
PictureBox1.Image = System.Drawing.Bitmap.FromFile("Hier muss stehen wo her du die datei bezieht z.b C/user....")
End If
If PixName = "Geisterwald" Then
PictureBox1.Image = System.Drawing.Bitmap.FromFile("Hier muss stehen wo her du die datei bezieht z.b C/user....")
End If
If PixName = "Hwang-Tempel" Then
PictureBox1.Image = System.Drawing.Bitmap.FromFile("Hier muss stehen wo her du die datei bezieht z.b C/user....")
End If
If PixName = "Feuerland" Then
PictureBox1.Image = System.Drawing.Bitmap.FromFile("Hier muss stehen wo her du die datei bezieht z.b C/user....")
End If
End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class