Question

vb中label的caption问题.

开始label.caption的数值是0.
然后每按一次按钮.label.caption的数值就加1.
我是这样写的.

Private Sub Command1_Click()
Label1.Caption = t
t = t + 1
End Sub

Private Sub Form_Load()
t = 0
End Sub
但是每次的label都是空的.请问原因及解决方法.thx.

Answer 1

Dim t As Long '//你没有定义这个全局变量,导致Command1_Click里和Form_Load里的t不是同一个变量
Form_Load
Private Sub Command1_Click()
Label1.Caption = t
t = t + 1
End Sub

Private Sub Form_Load()
t = 0
End Sub

Answer 2

Private Sub Command1_Click()
Label1.Caption = Label1.Caption + 1
End Sub

Private Sub Form_Load()
Label1.Caption = 0
End Sub

或着

Dim t As Single
Private Sub Command1_Click()
t = t + 1
Label1.Caption = t
End Sub

Private Sub Form_Load()
Label1.Caption = 0
End Sub