| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1920 人关注过本帖
标题:如何实现点击次数累加(已经解决)
只看楼主 加入收藏
adsdomain
Rank: 2
等 级:论坛游民
威 望:1
帖 子:127
专家分:54
注 册:2008-5-15
结帖率:50%
收藏
 问题点数:0 回复次数:7 
如何实现点击次数累加(已经解决)
我想做一个小程序,功能很简单就是点击一下按钮,计数就增加一个,在文本框中显示出来,我自己写的代码如下,不知道为什么实现不了这个效果?请大虾帮忙看一下是怎么回事?


Private Sub Command1_Click()
Text1.Text = i
i = i + 1
End Sub

Private Sub Form_Load()
Dim i As Integer
End Sub

界面如下
图片附件: 游客没有浏览图片的权限,请 登录注册


[[it] 本帖最后由 adsdomain 于 2008-10-1 21:07 编辑 [/it]]
搜索更多相关主题的帖子: 累加 
2008-10-01 18:41
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
阅读书上关于“变量的作用域”或者“变量的生存周期”一节。没有书请自行搜索。
2008-10-01 19:17
adsdomain
Rank: 2
等 级:论坛游民
威 望:1
帖 子:127
专家分:54
注 册:2008-5-15
收藏
得分:0 
但是定义为public提示出错
2008-10-01 19:31
我是菜鸟哦
Rank: 6Rank: 6
等 级:贵宾
威 望:22
帖 子:921
专家分:209
注 册:2007-5-4
收藏
得分:0 
。。。。。。。。。。两个private.......两个sub
请问楼主那是同一个i吗?

偶是菜鸟鸟偶惧WHO?!!!!
2008-10-01 19:38
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
[bo][un]adsdomain[/un] 在 2008-10-1 19:31 的发言:[/bo]

但是定义为public提示出错

难道书上告诉你在Sub和Function里面可以用Public来定义变量?

难道Public的意思是Sub外可以访问Sub内的变量?那模块外可以访问模块内的变量用什么访问修饰符?
2008-10-01 20:03
adsdomain
Rank: 2
等 级:论坛游民
威 望:1
帖 子:127
专家分:54
注 册:2008-5-15
收藏
得分:0 
本问题已经解决,原来是过程级变量和模块级变量的问题啊~
把代码改成
Dim i As Integer
Private Sub Command1_Click()
Text1.Text = i
i = i + 1
End Sub
就行了!
谢谢multiple1902 的提示了!
2008-10-01 21:06
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
如果你这个i仅仅是这里用,那么可以简化一下:

Private Sub Command1_Click()
Static i As Integer
Text1.Text = i
i = i + 1
End Sub
2008-10-01 21:17
blueearth99
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2008-10-13
收藏
得分:0 
果然可以用静态变量啊.
2008-10-13 16:04
快速回复:如何实现点击次数累加(已经解决)
数据加载中...
 
   



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

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