VB中如何使字上下来回移动
4个回答
展开全部
首先添加一个Timer控件和一个Label控件。在label1的caption中写入自己要写的字。双击打开书写以下函数:
dim i%
timer1.interval=100 '每0.1秒触发一次
if i >form1.height then i=0
i=i+10
label.move 10,i
dim i%
timer1.interval=100 '每0.1秒触发一次
if i >form1.height then i=0
i=i+10
label.move 10,i
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2012-04-26
展开全部
用timer控制字体lable的坐标就好了。当到达某个值后开始加,到达另外一个之后在慢慢的减少。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Dim d As Boolean
Private Sub Form_Load()
Label1.Top = Me.Height - Label1.Height
Timer1.Interval = 100
d = True
End Sub
Private Sub Timer1_Timer()
If d Then
Label1.Top = Label1.Top - 90
Else
Label1.Top = Label1.Top + 90
End If
If Label1.Top <= 0 Then
d = False
End If
If Label1.Top >= Me.Height - Label1.Height - 240 Then
d = True
End If
End Sub
Private Sub Form_Load()
Label1.Top = Me.Height - Label1.Height
Timer1.Interval = 100
d = True
End Sub
Private Sub Timer1_Timer()
If d Then
Label1.Top = Label1.Top - 90
Else
Label1.Top = Label1.Top + 90
End If
If Label1.Top <= 0 Then
d = False
End If
If Label1.Top >= Me.Height - Label1.Height - 240 Then
d = True
End If
End Sub
更多追问追答
追问
还有其它的方法吗,这个有点复杂了
追答
这个效果好些,很简单了
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询