单击一个按钮更改面板

我目前正在制作一个程序，并且正在添加一个实用程序窗体，并且我有按钮和面板。 1个面板的按钮，所以我有代码，如果他们点击一个按钮，而另一个面板是可见的隐藏和显示其他面板。出于某种原因，我必须点击按钮两次才能切换到不同的面板，不知道为什么。单击一个按钮更改面板

代码：

Private Sub btnAbout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbout.Click 
    If pnlAbout.Visible = False Then 
     pnlAbout.Visible = True 
    Else 
     If pnlProfile.Visible = True Then 
      pnlProfile.Visible = False 
      pnlAbout.Visible = True 

      If pnlUpdates.Visible = True Then 
       pnlUpdates.Visible = False 
       pnlAbout.Visible = True 
      End If 
     End If 
    End If 
End Sub 
Private Sub btnProfile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProfile.Click 
    If pnlProfile.Visible = False Then 
     pnlProfile.Visible = True 
    Else 
     If pnlAbout.Visible = True Then 
      pnlAbout.Visible = False 
      pnlProfile.Visible = True 

      If pnlUpdates.Visible = True Then 
       pnlUpdates.Visible = False 
       pnlProfile.Visible = True 
      End If 
     End If 
     End If 
End Sub 
Private Sub btnUpdates_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdates.Click 
    If pnlUpdates.Visible = False Then 
     pnlUpdates.Visible = True 
    Else 
     If pnlAbout.Visible = True Then 
      pnlAbout.Visible = False 
      pnlUpdates.Visible = True 

      If pnlProfile.Visible = True Then 
       pnlProfile.Visible = False 
       pnlUpdates.Visible = True 
      End If 
     End If 
    End If 
End Sub

来源

2015-03-31 Rogueleet

您的代码可以总结到：

Private Sub btnAbout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbout.Click 
    pnlAbout.Visible = True 
    pnlProfile.Visible = False 
    pnlUpdates.Visible = False 
End Sub 
Private Sub btnProfile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProfile.Click 
    pnlAbout.Visible = False 
    pnlProfile.Visible = True 
    pnlUpdates.Visible = False 
End Sub 
Private Sub btnUpdates_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdates.Click 
    pnlAbout.Visible = False 
    pnlProfile.Visible = False 
    pnlUpdates.Visible = True 
End Sub

需要两次导致第一次点击，使正确的面板可见，第二（如果你是幸运的）的一个这是可见的不可见。

来源

2015-03-31 02:26:52

谢谢，这完美地工作。 – Rogueleet 2015-03-31 21:21:51

你的代码可以总结成这样：

private sub button1_click(Byval sender as System.Object, ByVAl e AS System.EventArgs)Handles buttonUpdates.click 

    panel1.Visible = true 
    panel2.Visible = false 

End Sub

来源

2017-01-09 02:06:23

单击一个按钮更改面板

回答

相关问题