Question

我在屏幕顶部有一组带有按钮的水平滚动条。当点击上面的一个按钮时，我希望按钮显示在下面。

Answer 1

Private Sub ArtyCalculator_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    rBtnMortar.Checked = True
End Sub
Private Sub rBtnMortar_CheckedChanged(sender As Object, e As EventArgs) Handles rBtnMortar.CheckedChanged
    If rBtnMortar.Checked Then
        Min = 45
        Max = 65
        NameofArty = "Mortar"
        txtMinimum.Text = "Minimum Distance: " & Min
        txtMaximum.Text = "Maximum Distance: " & Max
        txtMinimum.Refresh()
        txtMaximum.Refresh()
    End If
End Sub

Private Sub rBtnHowitzer_CheckedChanged(sender As Object, e As EventArgs) Handles rBtnHowitzer.CheckedChanged
    If rBtnHowitzer.Checked Then
        Min = 75
        Max = 150
        NameofArty = "Howitzer"
        txtMinimum.Text = "Minimum Distance: " & Min
        txtMaximum.Text = "Maximum Distance: " & Max
        txtMinimum.Refresh()
        txtMaximum.Refresh()
    End If
End Sub

Private Sub rBtnFieldArtillery_CheckedChanged(sender As Object, e As EventArgs) Handles rBtnFieldArtillery.CheckedChanged
    If rBtnFieldArtillery.Checked Then
        Min = 75
        Max = 150
        NameofArty = "Field Artillery"
        txtMinimum.Text = "Minimum Distance: " & Min
        txtMaximum.Text = "Maximum Distance: " & Max
        txtMinimum.Refresh()
        txtMaximum.Refresh()
    End If
End Sub

Private Sub rBtnGunBoat_CheckedChanged(sender As Object, e As EventArgs) Handles rBtnGunBoat.CheckedChanged
    If rBtnGunBoat.Checked Then
        Min = 50
        Max = 100
        NameofArty = "Gun Boat"
        txtMinimum.Text = "Minimum Distance: " & Min
        txtMaximum.Text = "Maximum Distance: " & Max
        txtMinimum.Refresh()
        txtMaximum.Refresh()
    End If
End Sub

Private Sub rBtnTank_CheckedChanged(sender As Object, e As EventArgs) Handles rBtnTank.CheckedChanged
    If rBtnTank.Checked Then
        Min = 1
        Max = 40
        NameofArty = "Tank"
        txtMinimum.Text = "Minimum Distance: " & Min
        txtMaximum.Text = "Maximum Distance: " & Max
        txtMinimum.Refresh()
        txtMaximum.Refresh()
    End If
End Sub

Answer 2

您必须将按钮放在顶部和底部，然后根据点击事件设置可见性

如何在单击第一个按钮时显示另一个按钮，然后在单击第二个按钮时允许它自动消失？

2 个答案: