标题:[求助]VB中代码错误在哪
只看楼主
wulai8377
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2006-1-6
 问题点数:0 回复次数:4 
[求助]VB中代码错误在哪
Private Sub Command6_Click()
MediaPlayer1.Volume = MediaPlayer1.Volume + 400
End Sub






这里一个按钮控制音量增大的代码,可是不知道为什么当按两次或者按几次总会弹出如图一样的错误

搜索更多相关主题的帖子: 代码 Sub 音量 Click 
2006-01-16 13:27
leon2
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:731
专家分:0
注 册:2005-3-18
得分:0 

Volume 不能加 400 那么多,它的取值范围只能是 0 ~ 100。所以在加之前,你要检测 Volume 的值加上你要加的数后会不会超出范围。

2006-01-16 21:54
wulai8377
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2006-1-6
得分:0 

不是吧,我看到的是在VB中mediaplayer控件的取值在-9640~0之间


2006-01-17 15:32
leon2
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:731
专家分:0
注 册:2005-3-18
得分:0 

那这个错误一定是在 Volume 属性 + 400 超出了范围的情况下发生的了。

2006-01-17 18:20
wulai8377
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2006-1-6
得分:0 
是在超出范围时发生的
我加了一句
On Error Resume Next
就解决了!

2006-06-04 13:25



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-43027-1-1.html




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

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