覆盖面板与另一个

Private Sub frmitem_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    pnldeposit.Visible = False 
    pnlwithdraw.Visible = False 
End Sub 

Private Sub cmdideposit_Click(sender As Object, e As EventArgs) Handles cmdideposit.Click 
    pnldeposit.Visible = True 
    pnlwithdraw.Visible = False 
End Sub 

Private Sub cmdiwithdraw_Click(sender As Object, e As EventArgs) Handles cmdiwithdraw.Click 
    pnlwithdraw.Visible = True 
    pnldeposit.Visible = False 
End Sub

//我对此表单有问题。我想显示第一个面板是成功的，但问题是显示第二个面板。它不工作，即时通讯按钮顺便说一句。帮我。预先感谢您：D覆盖面板与另一个

来源

2017-07-28 Arjim Jimenez

您是否尝试过使用'BringToFront'方法？ – OneFineDay

我试过了，但没有成功。 –

Private Sub cmdideposit_Click(sender As Object, e As EventArgs) Handles cmdideposit.Click 
    pnldeposit.Visible = True 
    pnlwithdraw.Visible = False 
    pnlreport.Visible = False 
End Sub 

Private Sub cmddcancel_Click(sender As Object, e As EventArgs) 
    pnldeposit.Hide() 
End Sub 

Private Sub cmdiwithdraw_Click(sender As Object, e As EventArgs) Handles cmdiwithdraw.Click 

    pnlwithdraw.Visible = True 
    pnlreport.Visible = False 
End Sub 

Private Sub cmdwclear_Click(sender As Object, e As EventArgs) Handles cmdwclear.Click 
    pnlwithdraw.Visible = False 
End Sub 

Private Sub cmdireport_Click(sender As Object, e As EventArgs) Handles cmdireport.Click 
    pnlreport.Visible = True 
End Sub

//谢谢分享你的想法！我发现它是如何工作的。谢谢！：D

来源

2017-07-28 04:00:26

这是一个使用BringToFront的快速示例。两个面板具有相同的位置和相同的尺寸。

Public Class Form1 
    Private switchPanels As Boolean 
    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click 
    switchPanels = Not switchPanels 
    If switchPanels Then 
     Panel1.BringToFront() 
    Else 
     Panel2.BringToFront() 
    End If 
    End Sub 
End Class

来源

2017-07-28 03:35:47 OneFineDay

谢谢你分享你的想法：D我找到了另一种方式：D谢谢！ –

覆盖面板与另一个

回答

相关问题