| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 391 人关注过本帖
标题:帮忙一下纠正错误,麻烦~
只看楼主 加入收藏
hyp625
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2010-5-7
结帖率:75%
收藏
已结贴  问题点数:20 回复次数:3 
帮忙一下纠正错误,麻烦~
Private Sub Command1_Click()
HScroll1.Value = Val(Text1.Text)'这里提示错误,错误380 属性值无效~
If HScroll1.Value < HScroll1.Min Then
MsgBox "输入值太小"
End If
If HScroll1.Value > HScroll1.Max Then
MsgBox "输入值太大"
End If
If Val(Text1.Text) = "" Then
MsgBox "请输入数值"
End If
End Sub
题目:6、在文本框中输入一个数,按移动按钮,文本框中是正数则滚动条向右移动相应刻度,超过最大刻度则MsgBox提示“输入值太大” ;负数则向左移,超过最小刻度则不再动,并MsgBox提示。      
搜索更多相关主题的帖子: 麻烦 
2010-05-11 10:51
hyp625
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2010-5-7
收藏
得分:0 
或者给我修改得更简单~
2010-05-11 10:52
hyp625
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2010-5-7
收藏
得分:0 
图片附件: 游客没有浏览图片的权限,请 登录注册
2010-05-11 10:52
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:20 
Private Sub Command1_Click()
dim i as long
i = Val(Text1.Text)'这里提示错误,错误380 属性值无效~
if i=0 then                '输入的不是数值时,i=0
  MsgBox "请输入数值"
elseIf i < HScroll1.Min Then   '太小
  MsgBox "输入值太小"
elseIf i > HScroll1.Max Then   '太大
  MsgBox "输入值太大"
else                           '合适
  HScroll1.Value=i
End If
End Sub

授人于鱼,不如授人于渔
早已停用QQ了
2010-05-11 13:16
快速回复:帮忙一下纠正错误,麻烦~
数据加载中...
 
   



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

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