- Luck Dragon: Asszociációs játék. :)
- btz: Internet fejlesztés országosan!
- hege8888: Retro Kocka Kuckó 3
- eBay-es kütyük kis pénzért
- sziku69: Fűzzük össze a szavakat :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Gurulunk, WAZE?!
- gerner1
- gban: Ingyen kellene, de tegnapra
- Meggyi001: RTX 5060 - Az új népkártya?
Hirdetés
Köszönjük a sok biztatást, támogatást! Egy rövid ideig még féláron tudsz hirdetni, előfizetni!
Ú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!
Új hozzászólás Aktív témák
- Azonnali készpénzes AMD Radeon RX 7000 sorozat videokártya felvásárlás személyesen/csomagküldéssel
- Azonnali készpénzes AMD Radeon RX 9000 sorozat videokártya felvásárlás személyesen/csomagküldéssel
- ASUS RTX 3080 10GB GDDR6 TUF GAMING OC Eladó!
- Azonnali készpénzes nVidia RTX 5000 sorozat videokártya felvásárlás személyesen / csomagküldéssel
- Azonnali készpénzes nVidia RTX 4000 sorozat videokártya felvásárlás személyesen / csomagküldéssel
- Szép állapotban levő Apple iPhone 15 256GB / 12 hó jótállás
- Gamer PC-Számítógép! Csere-Beszámítás! I7 6700 / Rog RX580 8GB / 32GB DDR4 / 500GB SSD
- LG K61 128GB, Kártyafüggetlen, 1 Év Garanciával
- Bomba ár! Lenovo ThinkPad L13 G3 - i5-1245U I 16GB I 256SSD I 13,3" FHD Touch I NBD Gari!
- GYÖNYÖRŰ iPhone 13 Pro 128GB Graphite -1 ÉV GARANCIA - Kártyafüggetlen, MS3083
Állásajánlatok
Cég: FOTC
Város: Budapest