Question

我正在编写一个程序，需要像Windows 10 Xbox应用程序中的垂直菜单栏。但我坚持认为如果再次点击图片框（点击它以放大面板之后）面板将恢复原始尺寸。我已经使用了一个If语句来检查Panel是否是放大的尺寸，然后将其更改回来，但它确保了面板不会变大。这是我的代码：

    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
    Panel1.Size = New Size(243, 1080)

    If Panel1.Size = New Size(243, 1080) Then
        Panel1.Size = New Size(81, 1080)
    End If
End Sub

但现在当我点击图片框时，面板保持相同的大小。

Answer 1

相反

If Panel1.Size = New Size(243, 1080) Then

使用

Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
    If Panel1.Width = 243 And Panel1.Height = 1080 Then
        Panel1.Size = New Size(81, 1080)
    Else
        Panel1.Size = New Size(243, 1080)
    End If
End Sub

而且，顺便说一下。当width完全没有变化时（通过您的代码），为什么不仅仅更改height ...

代码：

Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
        If Panel1.Width = 243 Then
            Panel1.Width = 81
        Else
            Panel1.Width = 243
        End If
    End Sub

如果再次点击pictureBox，请更改面板的大小vb.net

1 个答案: