Private Sub 블록이동(bm As Byte)
For 임시저장1 = 0 To 8
For 임시저장2 = bm To 0 Step -1
x = 임시저장1 * 30
y = 임시저장2 * 30
위치 = Picture1.Point(x + 9, y + 9)
If 위치 = Picture1.BackColor Then
Picture1.Line (x, y + 30)-Step(29, 29), 위치, BF
Else
Picture1.Line (x + 29, y + 30)-(x, y + 30), RGB(255, 255, 128)
Picture1.Line -Step(0, 29), RGB(255, 128, 255)
Picture1.Line -Step(29, 0), RGB(128, 255, 255)
Picture1.Line -Step(0, -28), RGB(128, 128, 0)
Picture1.Line (x + 1, y + 31)-Step(27, 27), 위치, BF
End If
Next 임시저장2
Next 임시저장1
점수 = 점수 + 30
Image2.Picture = LoadPicture(D:＼Technical self study 비주얼베이직 6 프로젝트로 Level Up!＼소스＼제1부＼3주제＼kebi_1.bmp)
Label2.Caption = Int(점수 / 300)
End Sub여기서 변수가 정의되지 않았습니다.라고 뜨는데요어떻게 고쳐야 되나요?
댓글 0