Vb.net 带值的Visual Basic按钮

我是新来的等，我想如果你能使一个按钮等于一个值点击。以下是我们得到的一个例子：

公开课表格1

    Private Sub BuyButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuyButton.Click

        Dim MoneyBtn1 As String
        Btn10p.PerformClick = MoneyBtn1
        MoneyBtn1 = 0.1 + AmountTextBox.Text

        Dim Cost, Amount, Change As Decimal
        Dim Pennies, Pounds As Integer
        Dim msg As String

        Cost = Decimal.Parse(CostTextBox.Text)
        Amount = Decimal.Parse(AmountTextBox.Text)
        Change = (Amount - Cost)

        If Change < 0 Then

            msg = "You don't have enough Money"

        Else

            Pounds = Math.Floor(Change)
            Pennies = (Change - Pounds) * 100

            msg = "Your change is: " & Change.ToString("##.00") & Environment.NewLine
            msg += "Pounds: " & Pounds & vbNewLine
            msg += "Pennies: " & Pennies & vbNewLine

        End If
        ChangeLabel.Text = msg
    End Sub
End Class

Private Sub BuyButton\u单击（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理BuyButton。单击
作为字符串的Dim MoneyBtn1
Btn10p.PerformClick=MoneyBtn1
MoneyBtn1=0.1+AmountTextBox.Text
Dim成本、金额、更改为十进制
暗便士，磅为整数
作为字符串的Dim msg
Cost=Decimal.Parse（CostTextBox.Text）
Amount=Decimal.Parse（AmountTextBox.Text）
变更=（金额-成本）
如果变化小于0，则
msg=“你没有足够的钱”
其他的
磅=数学地板（变化）
便士=（换成英镑）*100
msg=“您的更改是：”&change.ToString（“##.00”）&Environment.NewLine
msg+=“磅：”&lbs&vbNewLine
msg+=“便士：”&Pennies&vbNewLine
如果结束
changelab.Text=msg
端接头
末级

我使用的答案是： 私有子Btn10p_Click（ByVal发送方作为System.Object，ByVal e作为System.EventArgs）处理Btn10p。单击 AmountTextBox.Text=AmountTextBox.Text+0.1

---

结束子按钮

您是指按钮上的文本吗？或者您只是想让多个单击事件执行相同的增量例程？如果是后者那么

Private Sub BuyButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuyButton.Click

    IncrementValue()

    --Other stuff.

End Sub

Private Sub SomeOtherButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SomeOtherButton.Click
    IncrementValue()
End Sub

Private Sub IncrementValue()
    TextBox.Text = (Decimal.Parse(TextBox.Text) + 0.1).ToString
End Sub

---

如果这不是你想要的，那么你需要更详细地准确地解释你想要什么。

一些提示。将代码放入代码块（高亮显示并按cntl+k）。还有，这是vb.net还是vba？他们是不同的语言。请编辑您的问题，以便您能够从正确的人那里得到关注。或者通过回滚这些问题来抵制旨在帮助您的编辑。}

使按钮等于值的目的/意义是什么？你想达到什么目标？按钮的作用是在单击后触发事件，而不是用作变量来保存随机值。事件虽然您的变量名称中有一个
btn
，但这不会使变量成为按钮！因此，您的
MoneyBtn
是一个包含文本的字符串，而不是一个按钮。我试图制作一个按钮，每次单击它时，它都会将设置的数字添加到文本框中的另一个数字上。每次点击它都会再次添加它。使用逐字逐句（没有修复故意的遗漏，这意味着你没有真正阅读和理解评论！）有点厚颜无耻，不接受或投票支持答案，然后寻求帮助。。。