???????????

AN

????????????????????
???????
For i=1 to ????????
   For j=1 to ????????
      If  ??(i).??<??(j).?? And ??(i).??>??(j).?? _
          ??(i).??<??(j).?? And ??(i).??>??(j).?? Then
          ----??????????
      End
   Next j
Next i
???????????????????30?????10????????????300?????????????????1???????????????????????????????????????????????????????????????????????????????????????????????????????????????????7???

zc1982213

??????????????????
??????(????????????)??????????(?????,?????,??????????),???????????????????????????????(??????),????????????????.?????????,???????????????????????(?????????????????).?????????????...

csj_alan

??????????
????????????????????????????????
?????????????????

zc1982213

csj_alan

???????? AN ???????.??????????????????????????????????????????????

????

?winapi????.?~~
IntersectRect
What is IntersectRect?
This function takes to RECT types and determines whether they overlap each other. Let�s take a look at this function.



Public Declare Function IntersectRect Lib "user32" (lpDestRect As RECT, lpSrc1Rect As RECT, lpSrc2Rect As RECT) As Long



lpDestRect ? This RECT will receive the area that the 2 RECTs crossed over. You would be able to use this RECT for pixel perfect detection. More on that in a later lesson (maybe�)

lpSrc1Rect ? The first source RECT

lpSrc2Rect ? The second source RECT



[Code Start]

Dim tmpRECT as RECT
Dim PlayerX as Integer, PlayerY As Integer

Dim CompX As Integer, CompY as Integer

Dim PlayerRect as RECT, CompRect As RECT



�//We are assuming the dimenions of the player are 50x50 and the comp 50x50

�//createrect is a helper function I wrote for creating rects.

PlayerRect = CreateRect(PlayerX, PlayerY, PlayerX +50, PlayerY + 50)

CompRect = CreateRect(CompX,CompY,CompX + 50, CompY + 50)



If IntersectRect(tmpRECT,PlayerRect,CompRect) = True Then �//there was an overlap between the 2 rects

            �//code here

End If

[Code Stop]

lights

????????200????150????????????200,150??????????????????

????

2??????????????????---??????????????????????????????????????????
?????????????30?????10?????????????300??
??????????????????????????Collection??????????????????????
dim ZDcoll as collection'????
set ZDcoll=new collection
dim ZDNum as long
ZDNum=ZDcoll.count'????????
for i=1 to ZDNum'????????
'???????
next
?????????

sandy_zc_1

7??Collection????????????????????????????????????????

????????Collection???????????????????VB?????????
?????????????????????????????????????????????????????Collection????????

yinxiaodan

Collection?????????????,????????,????

sandy_zc_1

?????????????????????????

???????????????????????????????
????????????????????????????????
???????????????????????????????
?????????????????