Új hozzászólás Aktív témák

• #2587 salmiakki tag

  Új Válasz 2015-02-24 21:43:22 #2587

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  salmiakki

  tag

  Sziasztok!

  Adott egy olyan helyzet, amikor egy új Control kerül a programba, és szeretném megnézni, hogy az takarásban van-e azon többi Control-al, melyek Top, Left, Height és Width adatai állnak rendelkezésemre.
  Hogyan tudnám ezt a lehető legegyszerűbben kivitelezni?

  Jelenlegi kód:
  Dim Collision As Boolean = False
  
  Dim _top As Integer = MovingObject.top
  Dim _left As Integer = MovingObject.left
  Dim _width As Integer = MovingObject.width
  Dim _height As Integer = MovingObject.height
  
  For i As Integer = 0 To Objects.Rows.Count - 1
  Dim oTop As Integer = Objects.Rows(i).Cells("top").Value
  Dim oLeft As Integer = Objects.Rows(i).Cells("top").Value
  Dim oWidth As Integer = Objects.Rows(i).Cells("width").Value
  Dim oHeight As Integer = Objects.Rows(i).Cells("height").Value
  Next
  
  If Collision = True Then
  MovingObject.BackColor = Color.Red
  Else
  MovingObject.BackColor = Color.ForestGreen
  End If

  '_ 'előtaggal jelölt változók az újonnan programba kerülő Control adatai.
  'o' előtaggal jelöl változók a meglévő Control-ok adatai.

  Segítségeteket előre is köszönöm!

Új hozzászólás Aktív témák