在vb中设置欢迎词从左移向右侧代码及注释
1个回答
展开全部
Private Sub Form_Load()
Label1.AutoSize = True '让标签根据内容调整大小
Label1.Caption = "欢迎使用vb!"
Timer1.Interval = 500
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label1.Left = Label1.Left + 200
If Label1.Left > Me.ScaleWidth Then Label1.Left = -Label1.Width '如果标签超过窗体范围，则在左边重新出现
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
