每次单击按钮更新文本框答案

【问题标题】：Update text box with each click of a button每次单击按钮更新文本框
【发布时间】：2015-06-30 21:06:19
【问题描述】：

我正在尝试设置一个用于接受订单的用户表单。例如每次单击 Cappuccino 按钮时，文本框都会加一，表示您正在订购 1、2、3 等。

据我所知，只填充一次文本框。每一次额外的点击似乎都没有做任何事情。这是我目前拥有的代码。我尝试将num 声明为公开。我认为这可能是问题的一部分，但似乎没有什么不同。可能是类型转换问题，因为它是一个“文本”框，我试图将其视为整数？

Private Sub Capuccino_Click()

   If (Cap_qty.Value = Null) Then
    Dim num As Integer
    num = 1
    Cap_qty.Value = Cap_qty.Value + num
    ElseIf (Cap_qty.Value = IsNotNull) Then
        num = num + 1
        Cap_qty.Value = num
        'Cap_qty.Value = num + 1
        'num = Cap_qty.Value

    End If
End Sub

【问题讨论】：

为什么不直接使用旋转按钮呢？ stackoverflow.com/questions/11116808/…
另外，Null 和 IsNotNull 在 VBA 中不存在，请尝试 vbNullString 和 <>（不等于）运算符。

标签： vba button textbox onclick

【解决方案1】：

嗯，这会有所不同。我看到某处告诉我使用 Null，IsNotNull。我能够让它与以下内容一起工作，目前这对我来说没有意义，我将不得不弄清楚为什么它会以这种方式工作。我想有一些背景动作正在发生，让我用刺痛做数学

私有子命令按钮1_Click()

如果 (TextBox1.Value = vbNullString) 那么

TextBox1.Value = 1 否则

TextBox1.Value = TextBox1.Value + 1 结束如果

结束子

【讨论】：