Question

vb制作 一个label1.caption 数量变换问题

Private Sub command1_Click()
label1.caption=label1.caption + 10
End Sub
当我点击3次command2时 label1.caption 恢复到+10以前的数据
问 怎么做？
代码是什么？

Answer 1

label1.caption = val(label1.caption) +10

dim coun as integer
private sub command2_click()
coun = coun +1
if coun = 3 then label1.caption = val(label1.caption)-10:coun =0
'如果不是减10，那就提前设置一个变量保存label1的caption属性
end sub

Answer 2

先在form的代码区写
dim x as intrger
x=label1.caption

然后在写command2的代码
Private Sub command2_Click()
static i as integer
i=i+1
if i=3 then
label1.caption=x
End Sub