VB 中怎样让一个图片移动 只要启动图片就会移动 随意方向
2个回答
展开全部
满足了你所有的要求,窗体名字就是系统时间 启动时图片自己移动,希望能采纳
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
h = Me.Height
w = Me.Width
Image1.Top = Int(h * Rnd + 1)
Image1.Left = Int(w * Rnd + 1)
Me.Caption = Now
End Sub
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
h = Me.Height
w = Me.Width
Image1.Top = Int(h * Rnd + 1)
Image1.Left = Int(w * Rnd + 1)
Me.Caption = Now
End Sub
展开全部
private sub timer1_timer()
image1.top=image1.top+int(500*rnd)
image1.left=image1.left+int(500*rnd)
end sub
image1.top=image1.top+int(500*rnd)
image1.left=image1.left+int(500*rnd)
end sub
追问
怎样在窗体上设置一个计时器 和系统时间一样?O(∩_∩)O谢谢
追答
timer1的interval设置成1000
timer的事件里写:cls
print now
前面那个答案改一下。。。
Private Sub timer1_timer()
Randomize
Image1.Top = Image1.Top + Int(500 * Rnd - 250)
Randomize
Image1.Left = Image1.Left + Int(500 * Rnd - 250)
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询