vb.net - 为什么当我处理表单并再次返回时 openFileDialog 没有响应？

Question

我在一个表单中有两个openFileDialog工具，当我浏览openFileDialog1并选择一张图片时，没关系，但是当我处理此表单并返回它并单击浏览另一张图片时，它没有响应并且项目停止并且没有错误！ ！！

    Private Sub Browse_Click(sender As Object, e As EventArgs) Handles Browse.Click
        OpenFileDialog1.FileName = ""
        OpenFileDialog1.Filter = "Image Files (*.jpg, *.bmp, *.gif, *.png)|*.jpg; *.bmp; *.gif; *.png"
        If OpenFileDialog1.FileName = "" Then
            If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
                txtFileName.Text = OpenFileDialog1.FileName
                txtFileName.SelectionStart = txtFileName.Text.Length 'to show the last portion of text
                If Trim(txtFileName.Text) <> "" Then picSave.Image = Image.FromFile(txtFileName.Text)
            End If
        Else
            Exit Sub
        End If
    End Sub

    Private Sub Btnclose_Click(sender As Object, e As EventArgs) Handles Btnclose.Click
        Me.Dispose()
    End Sub

标签： vb.net

Answer 1

在项目属性中，确保您已将关闭模式设置为“当最后一个表单关闭时”。这不是默认设置。

在 Form1 中

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    OpenFileDialog1.Filter = "Image Files (*.jpg, *.bmp, *.gif, *.png)|*.jpg; *.bmp; *.gif; *.png"
    If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
        TextBox1.Text = OpenFileDialog1.FileName
        PictureBox1.Image = Image.FromFile(TextBox1.Text)
    End If
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Form2.Show()
    Close()
End Sub

然后在 Form2

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Form1.Show()
    Close()
End Sub

当我返回 Form1 时，OpenFileDialog 行为正常。