标题:求助:想把由上自下改为水平移动.
取消只看楼主
刘仔很忙
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2009-9-15
结帖率:100%
已结贴  问题点数:10 回复次数:0 
求助:想把由上自下改为水平移动.
Private Sub Command1_Click()
Timer1.Interval = 200
End Sub

Private Sub Command2_Click()
Timer1.Interval = 0
Call mymove

End Sub

Private Sub Form_Load()
Timer1.Interval = 0
End Sub

Private Sub Timer1_Timer()
Call mymove

End Sub
Sub mymove()
Label1.Move Label1.Left, Label1.Top + 50
If Label1.Top > Form1.Height Then Label1.Top = 0
End Sub
想改成水平移动
他这是自上而下的~~新手求助~~
搜索更多相关主题的帖子: 水平 
2009-09-22 12:07



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




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

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