VB要求在窗体上一小球(shape1)从左到右移动,到右边界后反向移动,如此往复
2个回答
2014-12-16 · 知道合伙人软件行家
yfcp
知道合伙人软件行家
采纳数：1748
获赞数：5545
有多年网站建设相关工作经验。熟悉ASP、ASP.net、VB、JavaScript、HTML等语言和CSS、Ajax等相关技术。
向TA提问 私信TA
关注
![]()
展开全部
'窗体加一个timer1
Dim x As Boolean
Private Sub Form_Load()
Timer1.Interval = 50
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer() '
If x Then
Shape1.Left = Shape1.Left - 100
Else
Shape1.Left = Shape1.Left + 100
End If
If Shape1.Left >= Me.ScaleWidth - Shape1.Width Then
x = True
ElseIf Shape1.Left <= 0 Then
x = False
End If
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
