Question

我在表格上有3个PictureBox，它们相互平铺。该表格的最小值为（502,416），最大值为（502,1080）。

因为用户可以从MenuStrip中选择显示'1'，'2'0r'3'PictureBoxes一次'3'是底部，'1'是顶部PictureBox。我需要的是当用户向下拖动表单时它会捕捉到下一个PictureBoxes位置，所以它在块中下降这是我到目前为止所做的相当远的工作。

    If Me.Height <= (1079) Then
        Me.Height = (732)

    ElseIf Me.Height <= (732) Then
        Me.Height = (424)
    ElseIf 
    ...
    End If

我还以为如果我新创建一个像这样的变量

，我可能会想出来

    If Me.Height <= (1079 to 733) Then
        Me.Height = (732)

我知道这不是正确的语法，但这是一种想法

如果你能从我不太好的描述中理解并指出正确的方向/代码示例，我将非常感激：）

感谢您的帮助

Answer 1

您可以尝试使用Select声明：

Select Case Me.Height

    Case 425 To 732
        Me.Height = 424

    Case 733 To 1079
        Me.Height = 732

End Select

回答你的进一步问题。如果您要使用Form Resize事件，您所拥有的任何动画都会变得有趣，因为当您更改表单高度时，它将重新触发事件。就个人而言，如果我是你，我会坚持你最初的想法，捕捉到下一个高度，如果你想要动态形式高度，我会认真研究WPF。但是这里是SubRoutine，我说我会告诉你，我用三个按钮来启动调整大小。如果你没有阻止事件重新运行子程序它会冻结你的计算机，如果你把它放在你的表单调整大小事件中，请小心。

Public Class Form1

    Private Sub Form1_Resize(sender As Object, e As System.EventArgs) Handles Me.Resize
        Me.Text = Me.Height
    End Sub

    Public Sub ChangeFormHeight(fromHeight As Integer, toHeight As Integer)
        If fromHeight > toHeight Then
            For newHeight As Integer = fromHeight To toHeight Step -1
                Me.Height = newHeight
            Next
        Else
            For newHeight As Integer = fromHeight To toHeight
                Me.Height = newHeight
            Next
        End If
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        ChangeFormHeight(Me.Height, 424)
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        ChangeFormHeight(Me.Height, 733)
    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        ChangeFormHeight(Me.Height, 1080)
    End Sub

End Class

如何在垂直调整窗体大小时使窗体捕捉到某些高度？

1 个答案: