Question

VB 单击开始 图片0.5秒随机移动一次 单击停止 图片停止移动

速度 不明白题再问下~~~谢
还有一个 框为空 拖动滚动条时 框里显示水平滚动条的当前值。。。

Answer 1

两个按钮,一个ImageBox,一个Timer
Private Sub Form_Load()
Timer1.Interval = 500
Timer1.Enabled = False
End Sub
Private Sub Command1_Click() '开始
Timer1.Enabled = True
End Sub
Private Sub Command2_Click() '停止
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Image1.Move Int(Rnd * (Me.ScaleWidth - Image1.Width)), Int(Rnd * (Me.ScaleHeight - Image1.Height))
End Sub

Answer 2

Private Sub Command1_Click()
Timer1.Interval = 500
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Dim rndL!, rndT!
rndL = (Rnd * (Form1.Width - Picture1.Width))
rndT = (Rnd * (Form1.Height - Picture1.Height)) * 0.8
Picture1.Left = rndL: Picture1.Top = rndT
End Sub

Answer 3

不会,用易语言写简单