在X1等于0的时候它就会溢出
建议你在
x1 = CInt(wmp.currentMedia.duration)
后面加一句
if x1=0 then exit sub '如果X1等于0退出。
'南软 南软医院管理软件 南软科技 出品
sldplay.Value = 10 * x2 / x1（为什么这一句老提示溢出，请教高手）
更改为以下语句试试
dim temp as long=10 * x2 / x1
sldplay.Value =temp
看不懂。。不过看看X1有没有等于零的时候吧。。这种一般都是除法错造成的溢出
内容全部来源于网络收集，如有侵权，请联系网站删除！
QQ：24596024