vb中label的caption问题.
开始label.caption的数值是0.然后每按一次按钮.label.caption的数值就加1.我是这样写的.PrivateSubCommand1_Click()La...
开始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. 展开
然后每按一次按钮.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. 展开
2个回答
展开全部
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
Form_Load
Private Sub Command1_Click()
Label1.Caption = t
t = t + 1
End Sub
Private Sub Form_Load()
t = 0
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
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
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询