Question

vb编程,编写程序使小球沿着窗体四边滚动

vb编程,编写程序使小球沿着窗体四边滚动

Answer 1

在窗体中放入一个Shape1和一个Timer1，编程如下：

Private Sub Form_Load()
Shape1.FillStyle = 0
Shape1.FillColor = vbRed
Shape1.Shape = 3
Shape1.Move 0, 0, 450, 450
Timer1.Interval = 30
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Static mx As Integer, my As Integer
Dim cx As Single, cy As Single
cx = Shape1.Left
cy = Shape1.Top
If (cx = 0 And cy <= 0) Or (mx = 0 And my = 0) Then
    mx = 30
    my = 0
    cx = 0
    cy = 0
ElseIf cx >= Me.ScaleWidth - Shape1.Width And cy = 0 Then
    mx = 0
    my = 30
    cx = Me.ScaleWidth - Shape1.Width
    cy = 0
ElseIf cx = Me.ScaleWidth - Shape1.Width And cy >= Me.ScaleHeight - Shape1.Height Then
    mx = -30
    my = 0
    cx = Me.ScaleWidth - Shape1.Width
    cy = Me.ScaleHeight - Shape1.Height
ElseIf cx <= 0 And cy = Me.ScaleHeight - Shape1.Height Then
    mx = 0
    my = -30
    cx = 0
    cy = Me.ScaleHeight - Shape1.Height
End If
Shape1.Move cx + mx, cy + my
End Sub

Answer 2

这个以前做过。
什么时候要？