VB.NET创建一个附加到窗体的预览窗口

Question

我想创建一个小窗口，当我按下按钮并将其附加到主窗体（如下面的shwon）时，该窗口可见。我想使用此窗口显示图像的预览（我将有一个列表框，并根据选择的条目，显示图片）我该怎么做？如何确保窗口始终附加到主窗体（不依赖于分辨率）。我尝试用第二种形式来做，但我无法将其固定在正确的位置。

问候

Answer 1

假设您的预览表单类为frmPreview并以这种方式打开它：

Private mPreviewForm As frmPreview Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click mPreviewForm = New frmPreview mPreviewForm.Show() AttachPreviewForm() End Sub

然后，每次主窗体更改大小或位置时，您必须重新定位它：

Private Sub AttachPreviewForm()
    If mPreviewForm IsNot Nothing Then
        mPreviewForm.AttachForm(Me)
    End If
End Sub
Private Sub Form1_SizeChanged(sender As Object, e As EventArgs) Handles Me.SizeChanged
    AttachPreviewForm()
End Sub
Private Sub Form1_LocationChanged(sender As Object, e As EventArgs) Handles Me.LocationChanged
    AttachPreviewForm()
End Sub

在frmPreview：

Public Sub AttachForm(parent As Form)
    Location = New Point(parent.Left + parent.Width, parent.Top)
    Size = New Size(200, parent.Height)
End Sub