Суббота, 09 Ноября 2024, 04:23

Приветствую Вас Гость

[ Новые сообщения · Игроделы · Правила · Поиск ]
  • Страница 1 из 1
  • 1
Помогите с VB 6
NAVДата: Четверг, 21 Июня 2012, 11:08 | Сообщение # 1
частый гость
Сейчас нет на сайте
У меня тут маленькая проблемка ( тот, кто программирует на VB, тот поймет):

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

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

If Picture1 = Picture2 Then

Не предлагать, ведь это бред.
JusterДата: Четверг, 21 Июня 2012, 13:42 | Сообщение # 2
частый гость
Сейчас нет на сайте
Надо подумать
-Mikle-Дата: Четверг, 21 Июня 2012, 14:40 | Сообщение # 3
Изобретатель велосипедов
Сейчас нет на сайте
Проверка пересечения 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
почетный гость
Сейчас нет на сайте
-Mikle-, спасибо, ты очень выручил happy Лови +

GCup.ru ? Не, не слышал!
  • Страница 1 из 1
  • 1
Поиск:

Все права сохранены. GcUp.ru © 2008-2024 Рейтинг