[浏览完整版]
标题：修理美化yang版的"猜数字游戏"按钮
1楼
擎天柱 发表于：2009/9/8 14:48:00精华帖子，目前你无权浏览！
2楼
狐狸爸爸 发表于：2009/9/8 14:52:00给你一个精化
3楼
yangming 发表于：2009/9/8 14:52:00哦,我学习学习,呵呵,先谢谢楼主了!
[此贴子已经被作者于2009-9-8 14:55:30编辑过]
4楼
yangming 发表于：2009/9/8 14:53:00我的美工不行,呵呵
5楼
yangming 发表于：2009/9/8 15:04:00效果不错,真是可以乱真,呵呵
6楼
kylin 发表于：2009/9/8 16:09:00报告一个错误：
此主题相关图片如下：spximage2.jpg
此主题相关图片如下：spximage2.jpg7楼
yangming 发表于：2009/9/8 16:32:00以下是引用kylin在2009-9-8 16:09:00的发言：
报告一个错误：
此主题相关图片如下：spximage2.jpg
报告一个错误：
此主题相关图片如下：spximage2.jpg做什么操作时出现的?
8楼
kylin 发表于：2009/9/8 16:43:00输入一个数字（当然有可能是非法的字母字符吧）按按钮正常，第二次输入后按按钮就错误了
提示：应该是数值转换问题
9楼
yangming 发表于：2009/9/8 17:01:00以下是引用kylin在2009-9-8 16:43:00的发言：
输入一个数字（当然有可能是非法的字母字符吧）按按钮正常，第二次输入后按按钮就错误了
提示：应该是数值转换问题
噢,我看看
10楼
czy 发表于：2009/9/8 20:47:00全局Click事件这样似乎简单点
Select Case e.Sender.Name
Case "Button1","Button2","Button3","Button4","Button5","Button6","Button7","Button8","Button9","Button10"
e.Form.Controls("TextBox1").Value = e.Form.Controls("TextBox1").Value & Right(e.Sender.Name,1)
End Select
Select Case e.Sender.Name
Case "Button1","Button2","Button3","Button4","Button5","Button6","Button7","Button8","Button9","Button10"
e.Form.Controls("TextBox1").Value = e.Form.Controls("TextBox1").Value & Right(e.Sender.Name,1)
End Select
[此贴子已经被作者于2009-9-8 20:47:34编辑过]