- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Microsoft Excel topic
- Crypto Trade
- Súlyos adatvédelmi botrányba kerülhet a ChatGPT az EU-ban
- MinDig TV
- Rendszergazda topic
- Mindenki AI-t akar, már 2025-re is eladták a HBM chipeket
- Proxmox VE
- Kapnak egy rakás reklámot a Roblox játékosai
- ArchiCAD és Artlantis topik
Új hozzászólás Aktív témák
-
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!
[ Szerkesztve ]
-
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. -
Új hozzászólás Aktív témák
- Gördeszka topic
- Az NVIDIA szerint a partnereik prémium AI PC-ket kínálnak
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Xbox Series X|S
- Anglia - élmények, tapasztalatok
- Konzolokról KULTURÁLT módon
- BestBuy ruhás topik
- Milyen billentyűzetet vegyek?
- 3D nyomtatás
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- További aktív témák...