VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 3674|回复: 13

[推荐] 请问怎么让textbox里的数字+1?

[复制链接]
 楼主| 发表于 2010-1-24 12:21:10 | 显示全部楼层 |阅读模式
本帖最后由 yy461530593 于 2010-1-24 12:24 编辑

请问怎么让textbox里的数字+1?比如原来text1里的text数字是1,
我想让按下按钮1后+1,就变成2,再按下按钮1就变成3,这样怎么弄?
菜鸟求救:)
发表于 2010-1-24 12:58:52 | 显示全部楼层
确保text1中是数字的前提下, 按钮1_Click 事件中 text1=Val(text1)+1
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-1-24 13:08:51 | 显示全部楼层
谢谢您,论坛的回复效率很高,可以解释下Val是什么意思吗
回复 支持 反对

使用道具 举报

发表于 2010-1-24 14:19:43 | 显示全部楼层
VB 帮助

Val 函数
      
返回包含于字符串内的数字,字符串中是一个适当类型的数值。

语法

Val(string)

必要的 string 参数可以是任何有效的字符串表达式.

说明

Val 函数,在它不能识别为数字的第一个字符上,停止读入字符串。那些被认为是数值的一部分的符号和字符,例如美圆号与逗号,都不能被识别。但是函数可以识别进位制符号 &O(八进制)和 &H(十六进制)。空白、制表符和换行符都从参数中被去掉。

下面的返回值为 1615198:

Val("    1615 198th Street N.E.")

在下面的代码中,Val 为所示的十六进制数值返回十进制数值 -1。

Val("&HFFFF")

注意 Val 函数只会将句点(.)当成一个可用的小数点分隔符。当使用不同的小数点分隔符时,如在国际版应用程序中,代之以 CDbl 来把字符串转换为数字。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-1-24 14:22:05 | 显示全部楼层
恩,谢谢专家
回复 支持 反对

使用道具 举报

发表于 2010-1-24 14:37:05 | 显示全部楼层
text1=1+ text1 '这样就行了
回复 支持 反对

使用道具 举报

发表于 2010-1-24 14:52:41 | 显示全部楼层
上面有些人用了默认属性,有些人用了数据类型的隐式转换,都是不好的编程习惯,容易导入难以察觉的逻辑错误。

最严谨的写法是:
text1.text = CStr(Val(text1.text) + 1)
自己要搞好溢出检测,太大了就不要再加了或者返回最小值;
另外可以用 UpDown 控件,把 Buddy 属性填上 TextBox 的名字即可。
回复 支持 反对

使用道具 举报

发表于 2010-1-24 22:31:44 | 显示全部楼层
自己要搞好溢出检测
最简单就是加一个On Error Resume Next
回复 支持 反对

使用道具 举报

发表于 2010-1-24 23:16:16 | 显示全部楼层
text1=1+ text1 '这样就行了
download 发表于 2010-1-24 14:37


果然导致了一个“Type Mismatch” 的错误。。。
回复 支持 反对

使用道具 举报

发表于 2010-1-24 23:17:16 | 显示全部楼层
最简单就是加一个On Error Resume Next
acme_pjz 发表于 2010-1-24 22:31


如果在老汉代码的基础上加一个 On Error Resume Next 其后果就是按了按钮什么反应都没有
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2022-6-29 20:14

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表