Question

如何让标签从按钮接受多个数字，例如，如果我按下一个标有“1”的按钮，标签显示我1，但如果我按下另一个按钮，如“2”，标签将替换为2的1 ......它应该显示“12”不能代替数字......

这是我的标签代码，当我按下按钮

时会显示结果

Dim intNum1 As Integer
Dim intNum2 As Integer
Dim intNum3 As Integer
Dim intNum4 As Integer
Dim intNum5 As Integer
Dim IntNum6 As Integer
Dim IntNum7 As Integer
Dim IntNum8 As Integer
Dim IntNum9 As Integer





Me.txtEntry_Result.Text = intNum1 & intNum2

Answer 1

如果txtEntry_Result是标签

然后你应该使用该对象的.Caption属性。

就像这个Me.txtEntry_Result.Caption = intNum1 & Me.txtEntry_Result.Caption一样，它会将Me.txtEntry_Result.Caption与新号码连接起来并将其分配给它。

如何让标签从按钮接受多个数字，例如，如果我按下了一个按钮，其中包含＆＃34; 1＆＃34;标签显示我1，但如果我按下另一个按钮，如＆＃34; 2＆＃34;标签取代了2的1 ...它应该显示我＆＃34; 12＆＃34;不能替换数字..

你可以这样做，例如Button1

Private Sub CommandButton1_Click()
    Me.txtEntry_Result.Caption = Me.txtEntry_Result.Caption & Me.CommandButton1.Caption 
End Sub

同样对于其他每个按钮，您都可以这样做。

在vba中构建一个简单的计算器

1 个答案: