PictureBox 的图像不会出现在新表单中，该表单应在停用时关闭

Question

PictureEdit 或 PictureBox 的图像未在新表单 (Form2) 中显示。
此外，当单击父窗体（form1）中的不同控件时，这个新窗体应该自动关闭。

使用我的代码，当我双击 Form1 中的图像时，仅出现第三个图像。

有没有办法让我不需要根据Form1中的图像数量创建3个新表单？

作为记录，我使用 Visual Studio 2010

Public Class Form1
   Private Sub PictureEdit1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureEdit1.DoubleClick
        Dim yourForm As New Form2()
        yourForm.ShowDialog()
    End Sub

    Private Sub PictureEdit2_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureEdit2.DoubleClick
        Dim yourForm As New Form2()
        yourForm.ShowDialog()
    End Sub
    Private Sub PictureEdit3_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureEdit3.DoubleClick
        Dim yourForm As New Form2()
        yourForm.ShowDialog()
    End Sub
End Class

Public Class Form2
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Form_One As Form1 = CType(Application.OpenForms("form1"), Form1)
        Me.PictureEdit1.Image = Form_One.PictureEdit1.Image
        Me.PictureEdit1.Image = Form_One.PictureEdit2.Image
        Me.PictureEdit1.Image = Form_One.PictureEdit3.Image
    End Sub
End Class

Answer 1

所需的小更改：

• 向 Form2 添加一个接受图像作为参数的构造函数。
• 覆盖OnDeactivate，以便在您单击表单外部时关闭表单。
• 使用 Show(Me) 而不是 ShowDialog()：这将使调用 Form 成为 Form2 的所有者，因此它位于其所有者之上，但它不是模态窗口，当您在窗口外部单击时，该窗口不会被停用。

Public Class Form1
   ' [...]
   Private Sub PictureEdit1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureEdit1.DoubleClick
        Dim f2 As New Form2(PictureEdit1.Image)
        f2.Show(Me)
    End Sub
    ' [...]
End Class

Public Class Form2
    Public Sub New()
        Me.New(Nothing)
    End Sub
    Public Sub New(img As Image)
        InitializeComponent()
        PictureEdit1.Image = img
    End Sub

    Protected Overrides Sub OnDeactivate(e As EventArgs)
        MyBase.OnDeactivate(e)
        BeginInvoke(New Action(Sub() Close()))
    End Sub
End Class 

Answer 2

完成 Jimi 建议的更改后，您还可以通过在“Handles”关键字后列出多个控件/事件，使用 ONE sub 来处理所有三个 PictureEdit 控件：

Private Sub PictureEditAll_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureEdit1.DoubleClick, PictureEdit2.DoubleClick, PictureEdit3.DoubleClick
    Dim picEdit As PictureEdit = DirectCast(sender, PictureEdit)
    Dim f2 As New Form2(picEdit.Image)
    f2.Show(Me)
End Sub