| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 706 人关注过本帖
标题:[求助]这个问题该怎样解决啊?
只看楼主 加入收藏
gzr272914
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2007-3-15
收藏
 问题点数:0 回复次数:6 
[求助]这个问题该怎样解决啊?
我希望一个LABEL沿着指定的路线移动
应该怎么办呢?
大概意思就是:从起点开始移动
到达一定高度后,停止高度方向的移动,转而向左移动
thisform.label1.top=thisform.label1.top-2

DO CASE
CASE thisform.label1.Top=90
thisform.label1.Left=thisform.label1.Left-30
thisform.label1.Top=90
ENDCASE
我这就是向高度方向停不了啊
一直向上运动
希望大家能给我解答一下
谢谢
2007-06-10 11:49
wzxc
Rank: 9Rank: 9Rank: 9
来 自:齐鲁大地
等 级:贵宾
威 望:39
帖 子:985
专家分:1296
注 册:2006-4-25
收藏
得分:0 
thisform.label1.top=thisform.label1.top-2
初始值是多少?每次减少2,会不会有个点上是值=90?
比方说,91-2=89,不满足CASE thisform.label1.Top=90 这个条件,其结果......

认真看书学习,弄通Fox主义。
2007-06-10 14:47
gzr272914
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2007-3-15
收藏
得分:0 
回复:(gzr272914)[求助]这个问题该怎样解决啊?

初值我是在INIT事件里面设置的
thisform.label1.top=100
thisform.label1.left=100
不知道这样行吗?
QQ:122745406

2007-06-10 16:26
wzxc
Rank: 9Rank: 9Rank: 9
来 自:齐鲁大地
等 级:贵宾
威 望:39
帖 子:985
专家分:1296
注 册:2006-4-25
收藏
得分:0 
是不是这样:
CASE thisform.label1.Top=<90
能不能把代码全部发上来,让大家帮你看看,代码不全,只是猜测。

认真看书学习,弄通Fox主义。
2007-06-10 16:55
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
If ThisForm.Label1.Top>=90
ThisForm.Label1.Left=ThisForm.Label1.Left-30
If ThisForm.Label1.Left<=0
*...
Else
*...
EndIf
Else
ThisForm.Label1.Top=ThisForm.Label1.Top+2
EndIf

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2007-06-10 17:23
gzr272914
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2007-3-15
收藏
得分:0 
IF thisform.label1.Top>90
thisform.label1.top=thisform.label1.top-1
ELSE
thisform.label1.Left=thisform.label1.Left-1
IF thisform.label1.Left<60
thisform.label1.Top=thisform.label1.Top+1
ENDIF
ENDIF
我想让它在LEFT=60的时候在向下运动
但是它向上的运动停不了啊
有什么方法可以解决?
2007-06-10 17:55
wzxc
Rank: 9Rank: 9Rank: 9
来 自:齐鲁大地
等 级:贵宾
威 望:39
帖 子:985
专家分:1296
注 册:2006-4-25
收藏
得分:0 
Do Case
Case Thisform.label1.Top>90 AND Thisform.label1.Left>60
Thisform.label1.Top=Thisform.label1.Top-1
Case Thisform.label1.Top=90 And Thisform.label1.Left>60
Thisform.label1.Left=Thisform.label1.Left-1
Case Thisform.label1.Left<=60
Thisform.label1.Top=Thisform.label1.Top+1
Endcase

认真看书学习,弄通Fox主义。
2007-06-10 19:27
快速回复:[求助]这个问题该怎样解决啊?
数据加载中...
 
   



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

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