Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: !!! HILFE !!!
Autor: MasterM
Datum: 24.03.02 14:47
!!! DANKE DANKE DANKE !!! Mein hoffentlich richtiger Quellcode: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyLeft If colli = 0 Then bild.Move bild.Left - 20 End If Case vbKeyRight If collirechts = 0 Then bild.Move bild.Left + 20 End If Case vbKeyUp If collioben = 0 Then bild.Move bild.Left, bild.Top - 20 End If Case vbKeyDown If collidown = 0 Then bild.Move bild.Left, bild.Top + 20 End If End Select End Sub Function colli() If wand.Left + wand.Width >= bild.Left And wand.Top + wand.Height > bild.Top _ And wand.Top <= bild.Top + bild.Height And wand.Left <= bild.Left Then colli = 1 Else colli = 0 End If End Function Function collirechts() If bild.Left + bild.Width > wand.Left And wand.Top + wand.Height > bild.Top _ And wand.Top <= bild.Top + bild.Height And wand.Left >= bild.Left Then collirechts = 1 Else coliirechts = 0 End If End Function Function collioben() If wand.Top + wand.Height >= bild.Top And wand.Left <= bild.Left + bild.Width _ And wand.Left + wand.Width >= bild.Left And wand.Top <= bild.Top Then collioben = 1 Else collioben = 0 End If End Function Function collidown() If wand.Top <= bild.Top + bild.Height And wand.Left <= bild.Left + bild.Width _ And wand.Left + wand.Width >= bild.Left And wand.Top >= bild.Top Then collidown = 1 Else collidown = 0 End If End Function mfg Häkes

!!! HILFE !!!	59	MasterM	24.03.02 13:28
Re: !!! HILFE !!!	318	unbekannt	24.03.02 13:49
Re: !!! HILFE !!!	45	MasterM	24.03.02 14:47
Re: !!! HILFE !!!	497	unbekannt	24.03.02 15:01
!!! OK !!!!	27	MasterM	24.03.02 15:06
Collisionserkennung ala VB@RCHIV	586	unbekannt	24.03.02 19:37
Und so gehts weiter:	297	unbekannt	24.03.02 20:07
Tjaja, das ist ooP (oT)	282	unbekannt	24.03.02 20:19
Ups Formatierung verrutscht	325	unbekannt	24.03.02 20:33
!!! DANKE !!!	28	MasterM	24.03.02 20:53
Ups, aber nicht die Class:clsWall	305	unbekannt	24.03.02 21:58
Na bitte: So ein Umsetzung von RectInRegion hat nicht mal Al...	361	unbekannt	24.03.02 22:06

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen