您的位置：程序门 -> vb -> 基础类

也许很简单的一个if问题

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

也许很简单的一个if问题[已结贴,结贴人:lengx7]

发表于：2007-04-10 16:44:55 楼主

设置一个按钮，我想第1次点击按钮的时候label1显示0，第2次点击显示800，第3次再是0，第4次是800，第5次是0，第6次是800……这样两个数来回变换
我写的代码却第一次点是0，再点也永远不会变了：
private sub command1_click（)
if ts = 0 then
label1.caption = 0
ts = 800
else
label1.caption = 800
ts = 0
end if
end sub

private sub form_load（)
dim ts as integer
ts = 0
end sub

哪里错了啊？

发表于：2007-04-10 16:46:411楼得分:7

private ts as integer
private sub command1_click（)
'或者
static ts as integer
if ts = 0 then
label1.caption = 0
ts = 800
else
label1.caption = 800
ts = 0
end if
end sub

private sub form_load（)
dim ts as integer
ts = 0
end sub

发表于：2007-04-10 16:54:542楼得分:3

我把ts定義為全局才可以跑，可以實現阿。

发表于：2007-04-10 16:57:563楼得分:0

ts应设为窗体级变量或静态变量。

发表于：2007-04-10 16:58:404楼得分:0

搞定~~多谢啦

发表于：2007-04-10 16:59:445楼得分:0

dim ts as integer
private sub command1_click（)
if ts = 0 then
label1.caption = 0
ts = 800
else
label1.caption = 800
ts = 0
end if
end sub

private sub form_load（)

ts = 0
end sub

下一篇：vb调用dll问题,很急,请大家帮帮忙,谢谢
上一篇：在线等一个问题!一小时后结贴!

其他资讯