[VB] Frage zu Buttons + OpenFileDialog

[LikeAKev]

Mein Code:

 Spoiler

PHP Code:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'Image Upload - Bilder hinzufügen'
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            Dim imgDatenZumUploaden As New String(OpenFileDialog1.FileName)
            TextBox1.Text = imgDatenZumUploaden
        End If
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            Dim imgDatenZumUploaden As New String(OpenFileDialog1.FileName)
            TextBox3.Text = imgDatenZumUploaden
        End If
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            Dim imgDatenZumUploaden As New String(OpenFileDialog1.FileName)
            TextBox6.Text = imgDatenZumUploaden
        End If
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            Dim imgDatenZumUploaden As New String(OpenFileDialog1.FileName)
            TextBox5.Text = imgDatenZumUploaden
        End If
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            Dim imgDatenZumUploaden As New String(OpenFileDialog1.FileName)
            TextBox8.Text = imgDatenZumUploaden
        End If
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            Dim imgDatenZumUploaden As New String(OpenFileDialog1.FileName)
            TextBox7.Text = imgDatenZumUploaden
        End If
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            Dim imgDatenZumUploaden As New String(OpenFileDialog1.FileName)
            TextBox10.Text = imgDatenZumUploaden
        End If
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            Dim imgDatenZumUploaden As New String(OpenFileDialog1.FileName)
            TextBox9.Text = imgDatenZumUploaden
        End If
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            Dim imgDatenZumUploaden As New String(OpenFileDialog1.FileName)
            TextBox12.Text = imgDatenZumUploaden
        End If
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            Dim imgDatenZumUploaden As New String(OpenFileDialog1.FileName)
            TextBox11.Text = imgDatenZumUploaden
        End If
    End Sub 


Hab das Problem, dass wenn ich eine Datei auswähle und auf OK drücke sich der Dialog nochmal öffnet. Das soll er aber nur wenn, ich nochmal auf den Button drücke. Kann mir jemand helfen?

[Schlüsselbein]

Aus solchen Gründen, meine Freunde, sollte man nicht direkt mit ner Forms-Anwendung in die Programmierung einsteigen.

Fang lieber nochmal mit den Grundlagen an (dafür reicht auch die Konsole).

[dready]

Mother of if clause

Wie Schienbein schon meinte, geh nochmal die Grundlagen an, er macht exakt das was du programmiert hast

[anonymous-f4h279]

Ob das dein Problem lösen wird, keine Ahnung aber du solltest mal mit else if arbeiten und nicht immer die if clause beenden.

[Yinixus]

Du lässt diesen Block doch nacheinander abarbeiten. Ich würde aus dem string ein array machen und einen adder, der immer einen neuen "abschnitt" des arrey öffnet.