| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 534 人关注过本帖
标题:[求助]这个的怎么实现?
只看楼主 加入收藏
lubin542397
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2007-1-8
收藏
 问题点数:0 回复次数:9 
[求助]这个的怎么实现?
比如我第一次按按纽时在LABEL1上显示的是1在第2次按时LABEL1上显示的是2在第3次按是又变回1这样的效果怎么实现?
搜索更多相关主题的帖子: 效果 
2007-09-26 20:38
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
If
2007-09-26 20:49
lubin542397
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2007-1-8
收藏
得分:0 
怎么判断这个是第一次还是第2次呢还有这个是要加在一个循环里的!
2007-09-26 21:04
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 

以下是引用lubin542397在2007-9-26 21:04:17的发言:
怎么判断这个是第一次还是第2次呢还有这个是要加在一个循环里的!

看书。

2007-09-26 21:05
盖世豪侠
Rank: 1
等 级:新手上路
威 望:1
帖 子:444
专家分:0
注 册:2007-7-15
收藏
得分:0 
static aa as integer
aa=aa+1
if aa=3 then aa=1

[此贴子已经被作者于2007-9-26 21:40:47编辑过]


[flash][/flash]
2007-09-26 21:36
zouyf1982hf
Rank: 1
等 级:新手上路
帖 子:63
专家分:0
注 册:2007-9-19
收藏
得分:0 
如果你只是在1和2之间转换,那就可以:
if label1.caption=1 then
label1.caption=2
else: label1.caption=1
end if

新手上路,左碰右磕!
2007-09-26 21:44
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
label1.caption=3-label1.caption
2007-09-26 21:47
缘吇弹
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:地球
等 级:版主
威 望:43
帖 子:3038
专家分:27
注 册:2007-7-2
收藏
得分:0 
LZ主也得开动下脑筋嘛

Repeat  Life=Study;Until (death);
2007-09-26 22:51
yuimo
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2007-9-15
收藏
得分:0 

设置个计数器 在判断奇偶就行了

2007-09-26 22:52
那边有朵蘑菇云
Rank: 1
来 自:很……那啥的一个地方
等 级:新手上路
威 望:1
帖 子:390
专家分:0
注 册:2007-9-3
收藏
得分:0 

static 一个变量 然后拿它做记数器(STATIC 知道啥意思伐?) 下面的代码你可以自己拿去实验 不行 我给钱
比如

Private Sub Label1_Click()
Static a As Integer
a = a + 1
Label1.Caption = a
End Sub
看错了 不好意思 看成按一次加一点了
要是那样就改为
Private Sub Label1_Click()
Static a As Integer
a = a + 1
If a Mod 2 = 0 Then
Label1.Caption = 2
Else
Label1.Caption = 1
End If
End Sub

[此贴子已经被作者于2007-9-27 10:35:47编辑过]


身不残 志更不坚
2007-09-27 10:28
快速回复:[求助]这个的怎么实现?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.013410 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved