在VB中，通过命令按钮输入数字

答案:4 悬赏:80 手机版

解决时间 2021-03-28 06:07

提问者网友：杀生予夺
2021-03-27 11:06

在VB中，通过命令按钮输入数字

最佳答案

五星知识达人网友：零点过十分
2021-03-27 11:12

Private Sub Command1_Click()
Text1.Text = Text1.Text + Str(Command1.Caption)
End SubPrivate Sub Command2_Click()
Text1.Text = Text1.Text + Str(Command2.Caption)
End Sub 如此就好了

全部回答

1楼网友：拾荒鲤
2021-03-27 15:04

Text1.Text = Text1.Text & "你点击的数字"

2楼网友：山君与见山
2021-03-27 13:37

从你说明的来看，你应该是在做一个计算器，你这描述只是计算器的一个输入功能。需要这样，定义一个控制变量：f As Boolean，全局类型。然后在输入的时候先判断这个f，如果为true则text1是增加数字，否则是覆盖数字：Option ExplicitDim f As BooleanPirvate Sub Form_Load() f = TrueEnd Sub Private Sub CmdNum_Click() '按钮0~9任意一个点击事件 If f Then Text1.Text = "你点击的数字" f = False Else Text1.Text = Text1.Text & "你点击的数字" End IfEnd Sub Private Sub CmdEqu_Click() '加减乘除等于，任何一个运算按钮点击的时候把f重新设定为true '其他代码 f = TrueEnd Sub

3楼网友：鸽屿
2021-03-27 12:03

这个容易，第一命令按钮这样写:text1.text=1
第二个命令这样写:text2.text=2

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！