我花了很長時間編寫的嗎,和妳的類似,
參考改壹下,應該對妳有用
Dim aq
Dim a(4) As Integer
Dim b(4) As Integer
Dim n, k, c As Integer, d As Integer
Private Sub Command1_Click()
Unload Form1
End Sub
Private Sub Form_Load()
App.TaskVisible = False
App.Title = " 123"
Form1.Visible = False
Form1.WindowState = 2
Call keybd_event(44, 0, 0, 0)
F
End Sub
Private Sub Form_Resize()
Picture1.Left = 0
Picture1.Top = 0
Picture1.Width = Form1.Width
Picture1.Height = Form1.Height
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Circle (X, Y), 70, QBColor(1)
End Sub
Private Sub Timer1_Timer()
If aq = 2 Then
Form1.Visible = True
Picture1.Picture = Clipboard.GetData()
End If
aq = aq + 1
End Sub
Private Sub qq()
n = 0
On Error Resume Next
k = Int(Rnd() * 4)
Select Case k
Case 0
c = a(4): d = Val(Shape1(0).Height) + b(4)
Case 1
c = a(4): d = (-1) * Val(Shape1(0).Height) + b(4)
Case 2
d = b(4): c = Val(Shape1(0).Width) + a(4)
Case 3
d = b(4): c = (-1) * Val(Shape1(0).Width) + a(4)
End Select
For i = 0 To 3
For j = 0 To 3
If a(i) = c And b(j) = d Then
n = 1
End If
Next j
Next i
If c < 0 Or c > Form1.Width Or d < 0 Or d > Form1.Height Then
n = 1
End If
If n = 1 Then
Else
a(4) = c
b(4) = d
End If
End Sub
Private Sub F()
For i = 0 To 4
a(i) = 500
b(i) = 500
Next i
Form1.WindowState = 2
'DrawMode = 7
For i = 1 To 4
'Load Shape1(i)
Next i
End Sub
Private Sub Timer2_Timer()
For i = 0 To 3
a(i) = a(i + 1)
b(i) = b(i + 1)
Next i
For i = 0 To 4
Shape1(i).Left = a(i)
Shape1(i).Top = b(i)
Next i
End Sub