! Also ich würde gerne mein Ovalshape mit den Tasten W,A,S & D bewegen! Das klappt auch Prima! Ich habe es auch hinbekommen das wenn ich met dem Ovalshape außerhalb der Form will das er einfach am Rand stehen bleibt! Nun würde ich gerne 3 Sachen hinbekommen:


Benutzerinformationen überspringen
Dabei seit: 4. Juli 2008
Wohnort: C:\Program Files (x86)\Microsoft Visual Studio 9.0\Common7\IDE\
die X und Y Kordinaten bekommst du in dem du den Punkt (Ovalshape) in die mitte des Roten schiebs und die Location aus der Einstellung Kopierst..|
|
Visual Basic Quellcode |
1 2 3 |
If Ovalshape.Location = New Point(x, y) Then MsgBox("Spiel erfolgreich") End If |

Benutzerinformationen überspringen
Dabei seit: 4. Juli 2008
Wohnort: C:\Program Files (x86)\Microsoft Visual Studio 9.0\Common7\IDE\
|
|
Visual Basic Quellcode |
1 2 |
Public Function Beruehrt(ByVal t1 As Control, ByVal t2 As Control) As BooleanDim sx, sy As Boolean sx = t1.Left <= (t2.Left + t2.Width) And (t1.Left + t1.Width) >= t2.Left sy = (t1.Top + t1.Height) >= t2.Top And t1.Top <= (t2.Top + t2.Height) Beruehrt = sx And sy End Function |



Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »PascalN« (13. Juli 2010, 23:43)
Zitat
ich brauch aber denn pfad denn ich denn stream weiter gebe zum lesen.
Forensoftware: Burning Board®, entwickelt von WoltLab® GmbH