VB如何实现用Label移动不同位置的效果?
还记得上微软网站更新系统补丁时,每当勾选一个升级项时,在当前勾选的位置会出现一个带文字的黑框平滑的飞向已选数量的位置上并加1,当取消勾选时以相反的方向从已选数量的位置上飞...
还记得上微软网站更新系统补丁时,每当勾选一个升级项时,在当前勾选的位置会出现一个带文字的黑框平滑的飞向已选数量的位置上并加1,当取消勾选时以相反的方向从已选数量的位置上飞回并减1,这个效果动感有个性,现在我想在VB也想实现这种效果,请问用VB如何实现?用什么算法?
请各位大虾帮帮忙,VB6或VB.Net都可以!效果显著的加加分。 展开
请各位大虾帮帮忙,VB6或VB.Net都可以!效果显著的加加分。 展开
2个回答
展开全部
要加一个计时器 timer1
Private Sub Form_Load()
Timer1.Interval = 100
Timer1.Enabled = True
'每100 毫秒检查一次
End Sub
Private Sub Timer1_Timer()
'利用if语句判断Label的位置
If Label1.Left < Val(Form1.Width) Then 'Label尚未完全左移出窗体时
Label1.Left = Label1.Left + 100
Else
Label1.Left = 0 - Val(Label1.Width) 'Label从窗体左侧出现
End If
End Sub
Private Sub Form_Load()
Timer1.Interval = 100
Timer1.Enabled = True
'每100 毫秒检查一次
End Sub
Private Sub Timer1_Timer()
'利用if语句判断Label的位置
If Label1.Left < Val(Form1.Width) Then 'Label尚未完全左移出窗体时
Label1.Left = Label1.Left + 100
Else
Label1.Left = 0 - Val(Label1.Width) 'Label从窗体左侧出现
End If
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询