为什么此组隐藏/显示代码不起作用？

我想编写代码，当单击复选框时，会显示隐藏的组合框，然后执行简单的计算。这里是我的代码：为什么此组隐藏/显示代码不起作用？

Public Class frmMenu 
    Private Sub btnCompute_Click(sender As Object, e As EventArgs) Handles btnCompute.Click 
     Dim Burgers, Fries, Drinks, sum As Double 
     If chkBurgers.Checked Then 
      grpBurgers.Visible = True 
      If radRegular.Checked Then 
       Burgers = 4.19 
      ElseIf radWcheese.Checked Then 
       Burgers = 4.79 
      ElseIf radWbacon.Checked Then 
       Burgers = 4.79 
      ElseIf radWbcheese.Checked Then 
       Burgers = 5.39 
      End If 
     End If 
     If chkFries.Checked Then 
      grpFries.Visible = True 
      If radSmall.Checked Then 
       Fries = 2.39 
      ElseIf radMedium.Checked Then 
       Fries = 3.09 
      ElseIf radLarge.Checked Then 
       Fries = 4.99 
      End If 
     End If 
     If chkDrinks.Checked Then 
      grpDrinks.Visible = True 
      If radSoda.Checked Then 
       Drinks = 1.69 
      ElseIf radBottled.Checked Then 
       Drinks = 1.49 
      End If 
     End If 
     sum = Burgers + Fries + Drinks 
     txtCost.Text = sum.ToString("C") 
    End Sub 
End Class

我用

If chkBurgers.Checked Then 
    grpBurgers.Visible = True

显示隐藏组中，但它并没有在VB 2012工作，有什么错我的代码？这对我来说很好。

来源

2014-09-30 Ave Maleficum

您是否希望在您选中该框后立即显示隐藏的群组？ – user3510227 2014-09-30 15:02:28

是不是可见的其他东西里面的组框？ '当单击复选框时'：您想要使用CheckBox的CheckedChanged事件。 – LarsTech 2014-09-30 15:02:35

@ user3510227的确，是的，只要我选中该框，我想要显示隐藏的组。 – 2014-09-30 15:07:17

问题是，您正在管理按钮按下的可见性，而应该在检查复选框时完成。我会按照以下进行;

Public Class frmMenu 

Private Burgers, Fries, Drinks, sum As Double 

Private Sub chkBurgers_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkBurgers.CheckedChanged 


     grpBurgers.Visible = chkBurgers.Checked 
     If chkBurgers.Checked then 
     Select case True 
     Case radRegular.Checked 
       Burgers = 4.19 
     Case radWcheese.Checked 
       Burgers = 4.79 
     Case radWbacon.Checked 
       Burgers = 4.79 
     Case radWbcheese.Checked 
       Burgers = 5.39 
     Case else 
       Burgers = 0.00 
     End Case 

     End If 
End Sub 

Private Sub chkFries_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkFries.CheckedChanged 

     grpFries.Visible = chkFries.Checked 
     If chkFries.Checked then 
     Select case True 
     Case radSmall.Checked 
       Fries = 2.39 
     Case radMedium.Checked 
       Fries = 3.09 
     Case radLarge.Checked 
       Fries = 4.99 
     Case else 
       Fries = 0.00 
     End Case 

     End If 
End Sub 

Private Sub chkDrinks_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkDrinks.CheckedChanged 

     grpDrinks.Visible = chkDrinks.Checked 
     If chkDrinks.Checked then 
     Select case True 
     Case radSoda.Checked 
       Drinks = 1.69 
     Case radBottled.Checked 
       Drinks = 1.49 
     Case else 
       Fries = 0.00 
     End Case 

     End If 
End Sub 

Private Sub btnCompute_Click(sender As Object, e As EventArgs) Handles btnCompute.Click 

     sum = Burgers + Fries + Drinks 
     txtCost.Text = sum.ToString("C") 

End Sub 

End Class

来源

2014-09-30 16:18:36

为什么此组隐藏/显示代码不起作用？

回答

相关问题