пересечение граф объектов

[785412]

есть два объекта - нарисованные в vs шэйпы или пикчербоксы(в них картинки). Как определить пересеаются они в данный момент или нет? Или если они пересекутся то сработает событие?

[785412]

Или пересечение спрайтов?

[Nord777]

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

      If PBox1.Bounds.IntersectsWith(PBox2.Bounds) Then
         MsgBox("Пересекаются")
      Else
         MsgBox("Не пересекаются")
      End If

[785412]

Спасибо, работает. А если у меня будет круг? Может получать массив координат точек и убирать не нужные?

[Nord777]

Если не прямоугольник - посмотри на методы класса GraphicsPath

[785412]

Вроде не нашел...

[Nord777]

А чего искал то?

[785412]

смотрел в msdn функции, которые могли бы следить за пересечением.

[Nord777]

смотрел в msdn функции, которые могли бы следить за пересечением

Для чего искать в MSDN, когда у тебя есть имя класса? Смотреть надо было в Object Browser'e.

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

Imports System.Drawing.Drawing2D

Public Class Form1
   Dim Circle1 As New GraphicsPath()
   Dim Circle2 As New GraphicsPath()

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      Circle1.AddArc(10, 10, 50, 50, 0.0!, 360.0!)
      Circle2.AddArc(70, 70, 50, 50, 0.0!, 360.0!)
   End Sub

   Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
      If Circle1.IsVisible(e.X, e.Y) Then
         Me.Cursor = Cursors.Hand
         If Me.Capture Then
            Circle1 = New GraphicsPath()
            Circle1.AddArc(e.X - 25, e.Y - 25, 50, 50, 0.0!, 360.0!)
            Me.Invalidate()
         End If
      Else
         Me.Cursor = Cursors.Default
      End If
   End Sub

   Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
      If Circle1.PointCount = 0 Then Exit Sub
      With e.Graphics
         .DrawPath(Pens.Red, Circle1)
         .DrawPath(Pens.Blue, Circle2)

         Dim Rgn As New Region(Circle1)
         Rgn.Intersect(Circle2)
         If Rgn.GetBounds(e.Graphics).IsEmpty Then
            .DrawString("Не пересекаются", Me.Font, Brushes.Black, 0, 0)
         Else
            .DrawString("Пересекаются", Me.Font, Brushes.Red, 0, 0)
         End If
      End With
   End Sub

End Class

[785412]

А можно картинку из файла грузить?

[Nord777]

А можно картинку из файла грузить?

Угадай....

[785412]

ххгхгмхмх....мммм.мм.......да???!!!??!?

[Nord777]

Да! Да! Вы стали победителем нашей викторины!!
Оставьте ваше координаты, чтобы мы смогли выслать вам приз.

[785412]

Ура!! X=500053,Y=78778, Z=259

[Nord777]

Ура!! X=500053,Y=78778, Z=259

Уважаемый участник викторины!
К сожалению, по указанным вами координатам, мы не можем выслать вам приз,
т.к. наши курьерские челноки не летают в систему Альфа Центавра.
Искренне приносим вам свои извинения за причиненные неудобства и
просим подъехать за призом к нам в офис.

Адрес офиса:
Планета Земля,
89°25'С.Ш.,
78°40'З.Д.

[MIT]

Адрес офиса:
Планета Земля,
89°25'С.Ш.,
78°40'З.Д.

В Арктике?

[Nord777]

В Арктике?

Это конфиденциальная информация.