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

• #2595 salmiakki tag Delila_1 #2594

  Új Válasz 2015-02-26 16:43:19 #2595

  Ú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

  válasz Delila_1 #2594 üzenetére

  Igen, ez volt az alap koncepció, de valahogy sehogy sem akart sikerülni. Egy for ciklusban lefuttattam az összes táblázatban szereplő adatot, minden alkalommal, amikor az adott objektum mozgatása véget ért, de nem sikerült megoldani a problémát.

• #2593 salmiakki tag Delila_1 #2592

  Új Válasz 2015-02-26 16:17:36 #2593

  Ú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

  válasz Delila_1 #2592 üzenetére

  Egy táblázatban le vannak mentve az adatai, onnantól egyszerűen Dim btn As New Button, megadom az adatait és Me.Controls.Add(btn)

• #2591 salmiakki tag Delila_1 #2590

  Új Válasz 2015-02-25 17:42:55 #2591

  Ú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

  válasz Delila_1 #2590 üzenetére

  Az alábbi képen látszik maga a program. Mint írtam, az objektumoknak csak a Left, Top, Width és Height adatai vannak meg, mellesleg végtelen objectről lehet szó, szóval amit az 1. válaszban írtál, hogy csak a legutóbbi objectet nézni, nem hinném, hogy jó lesz.
  Továbbá csak hogy egyértelmű legyen, az A esetben jelölt fedést szeretném csak ellenőrizni, ha 2 object érintkezik (B eset), azt nem feltétlen.

  

• #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