Ich habe ein Problem mit meinem jetzigen Projekt habe auch für das was ich vor hatte eine gute Lösung erstellt doch laggt diese in meinem Programm ganz schön und wenn ich mir dann vorstelle das ich noch wesentlich mehr überprüfe dann denk ich das wird nichts....
Nun zum Problem ich Überprüfe ob eine Picturebox die andere Berührt dies bewerkstellige ich mit 4 Schleifen.............
2 Jeweils um halt jede Koordinate von der Picturebox rauszufinden aber das ist halt sehr laggi...
Hier der Code vll wisst irh wie ich das gestalten kann das er nicht laggt..
Code:
Private Sub kollision() '---------------------------Kollision Prüfen----------------------------- Dim ccheckx As Integer 'CCheck = ControlCheck X/Y Dim cchecky As Integer For ccheckx = Controlx To Val(Controlx) + Val(controlw) For cchecky = Controly To Val(Controly) + Val(controlh) Dim pcheckx As Integer 'PCheck = PlayerCheck X/Y Dim pchecky As Integer For pcheckx = playerx To Val(playerx) + Val(playerw) For pchecky = playery To Val(playery) + Val(playerh) If pcheckx = ccheckx Then If pchecky = cchecky Then kollidiert = 1 MsgBox("Verloren!" + vbNewLine + "Sie haben das schwarze Viereck berührt") GoTo exitloop End If ElseIf pchecky = cchecky Then If pcheckx = ccheckx Then kollidiert = 1 MsgBox("Verloren!" + vbNewLine + "Sie haben das schwarze Viereck berührt") GoTo exitloop End If End If Next Next Next Next '---------------------------Kollision Prüfen Ende--------------------- exitloop: End Sub 'Code © by Algaten