PLEASE HELP !!!!!

[t4lli]

1) Есть два PictureBox'a , как сделать шоб если они пересекутся воскочил msgbox(ОНИ ДВИЖУТСЯ ПО ФОРМЕ)????
2) Чтоб один PictureBox двигался по напровлению к другому (ВТАРОЙ PictureBox МОЖЕТ НАХОДИТСЯ В ЛЮБОМ МЕСТЕ ФОРМЫ)????
3) Есть две ехе'шки на одной Label у каторого .Caption = "50" , во втарой проге кнопка , вапрос как сделать чтоб при нажатие на кнопку в адной проге изменился Caption Label'a первой проги дапустим на "10" Я идиот! Убейте меня, кто-нибудь!

[GSerg]

1. Проверять пересечение по координатам на каждом сдвиге. Функцией IntersectRect.
2. А, так ты этого ещё не сделал? Зачем тогда вопрос 1? Метод Move зацени.
3. Ну это вряд ли, не окно Label, не окно... Разве что межпроцессной коммуникацией заняться... Покопай в сторону CreateFileMapping.

[t4lli]

Можна кодам на первые два вопроса ? Please GSerg !

[GSerg]

Предполагается, что и у формы, и у картинок scalemode = vbpixels.

Код: Выделить всё

Private Declare Function IntersectRect Lib "user32" (lpDestRect As RECT, lpSrc1Rect As RECT, lpSrc2Rect As RECT) As Long
Private Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

private type RECT
  left as long
  top as long
  right as long
  bottom as long
end type

private function PicturesCollision(byval p1 as picturebox, byval p2 as picturebox) as boolean
  dim r1 as rect, r2 as rect, r as rect
 
  if p1.parent is p2.parent then
    setrect r1, p1.scaleleft, p1.scaletop, p1.scaleleft+p1.scalewidth, p1.scaletop+p1.scaleheight
    setrect r2, p2.scaleleft, p2.scaletop, p2.scaleleft+p2.scalewidth, p2.scaletop+p2.scaleheight
    picturescollision=cbool(intersectrect(r,r1,r2))
  end if
end function


Код: Выделить всё

picture1.move x,y 'остальное сам...