Помогите с VB 6 - Программирование - Basic

Помогите с VB 6

Дата: Четверг, 21 Июня 2012, 11:08 | Сообщение # 1

частый гость

Сейчас нет на сайте

У меня тут маленькая проблемка ( тот, кто программирует на VB, тот поймет):

Допустим у меня есть два PictureBox'а. Одним я управляю, а второй двигается за счет таймера.
Как сделать, что бы при касании друг друга в ЛЮБОЙ точке, происходило что-то. Не важно что-то, пусть тот самый MsgBox даже.
Как осуществить выше сказаное?

Примеры типа:

If Picture1 = Picture2 Then

Не предлагать, ведь это бред.

Juster

Дата: Четверг, 21 Июня 2012, 13:42 | Сообщение # 2

частый гость

Сообщений: 38

Сейчас нет на сайте

Надо подумать

-Mikle-

Дата: Четверг, 21 Июня 2012, 14:40 | Сообщение # 3

Изобретатель велосипедов

Сообщений: 198

Сейчас нет на сайте

Проверка пересечения PictureBox-ов:

Code

Private Function Intersect(pic1 As PictureBox, pic2 As PictureBox) As Boolean
   If (pic1.Left < pic2.Left + pic2.Width) And (pic1.Left + pic1.Width > pic2.Left) Then
     If (pic1.Top < pic2.Top + pic2.Height) And (pic1.Top + pic1.Height > pic2.Top) Then
       Intersect = True
     End If
   End If
End Function

If Intersect(Picture1, Picture2) Then ...

Сообщение отредактировал -Mikle- - Четверг, 21 Июня 2012, 14:45

FSO

Дата: Пятница, 22 Июня 2012, 09:59 | Сообщение # 4

почетный гость

Сообщений: 86

Сейчас нет на сайте

-Mikle-, спасибо, ты очень выручил happy

Лови +

GCup.ru ? Не, не слышал!