VB Check.changed在表单加载时运行并添加到我的标签

Question

我在VB编程。每当选中一个复选框并且取消选中它以将其返回到原始价格时，我需要将25添加到变量中。它正在工作，虽然每当我的表单加载并且未选中复选框时它将减去25。 这是我的代码：

如果checkbox1.checked那么

 price += 25

否则

 price -=25

结束如果

Answer 1

使用活动：CheckBox1_CheckedChanged，而不是将您的代码放在表单Load的事件中：

Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
    If CheckBox1.Checked Then
        price += 25
    Else
        price -= 25
    End If
End Sub