标题:帮忙找下错
只看楼主
go9787
Rank: 1
等 级:新手上路
帖 子:31
专家分:0
注 册:2007-3-9
 问题点数:0 回复次数:7 
帮忙找下错
dim s as integer
private sub form_load()
s=1
end sub
private sub timer1_timer()
select case s
case 1
shape1.move shape1.left-20,shape1.top-20
if shape1.left<=0then
s=2
else
s=3
end if
case 2
shape1.move shape1.left+20,shape1.top-20
if shape1.top<=0
s=3
else: s=4
end if
case 3
shape1.move shape1.left+20,shape1.top+20
if shape1.left+shape1.width>=form1.width then
s=4
else
s=1
end if
case 4
shape1.move shape1.left-20,shape1.top+20
if shape1.left<=0
s=2
else
s=1
end if
end select
end sub
谁可以告诉为在最下端的时候运动有问题
搜索更多相关主题的帖子: private 
2007-03-30 11:37
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
得分:0 

你没有在vb里试过吗?.
那些字没有变大写?你没有在vb里运行过?


我的msn: myfend@
2007-03-30 11:39
go9787
Rank: 1
等 级:新手上路
帖 子:31
专家分:0
注 册:2007-3-9
得分:0 
我在宿舍运行过,在最下端的时候,它不是靠边就上弹

2007-03-30 11:41
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
得分:0 
那你看我的代码吧.
我之前有贴过.

我的msn: myfend@
2007-03-30 11:42
Kendy123456
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:62
帖 子:2720
专家分:0
注 册:2007-1-3
得分:0 
这个光用看的看不出来。。。你跟踪调试一下

2007-03-30 11:43
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
得分:0 
是的.

我的msn: myfend@
2007-03-30 11:45
Kendy123456
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:62
帖 子:2720
专家分:0
注 册:2007-1-3
得分:0 
简单看了看 觉得逻辑有问题呀

case 1
shape1.move shape1.left-20,shape1.top-20
if shape1.left<=0then
s=2
else
s=3
end if

case 3
shape1.move shape1.left+20,shape1.top+20
if shape1.left+shape1.width>=form1.width then
s=4
else
s=1
end if

如果form很大 shape很小 岂不就是s在1 和 3 跳来跳去 左移20 下移20 再右移20 上移20 反复这个循环

2007-03-30 11:49
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
得分:0 
我之前就贴过代码啊..找找吧.

我的msn: myfend@
2007-03-30 11:50



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




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

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