Hallo
Ich hab folgendes Problem...
Ich will immer wenn die leertaste gedrückt wird eine grafik zeichnen...
Dass funktioniert anfangs auch gut aber sobald ich mich dann bewege wird diese wieder entfernt!
Gibt es eine möglichkeit dass die grafik dauerhaft bleibt?
Hier mal der code den ich verwende:
Spoiler anzeigen
Ich hab folgendes Problem...
Ich will immer wenn die leertaste gedrückt wird eine grafik zeichnen...
Dass funktioniert anfangs auch gut aber sobald ich mich dann bewege wird diese wieder entfernt!
Gibt es eine möglichkeit dass die grafik dauerhaft bleibt?
Hier mal der code den ich verwende:
VB.NET-Quellcode
- Public Class Form1
- Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Integer
- Dim taste As String
- Dim adobjekt As Boolean = False
- Dim objekt As String = "standard.png"
- Dim playerlocation As Point
- Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
- If GetAsyncKeyState(Keys.Left) = -32767 Then
- playerlocation.X -= 10
- ElseIf GetAsyncKeyState(Keys.Right) = -32767 Then
- playerlocation.X += 10
- ElseIf GetAsyncKeyState(Keys.Up) = -32767 Then
- playerlocation.Y -= 10
- ElseIf GetAsyncKeyState(Keys.Down) = -32767 Then
- playerlocation.Y += 10
- ElseIf GetAsyncKeyState(Keys.Space) = -32767 Then
- adobjekt = True
- End If
- Me.Refresh()
- Me.Text = adobjekt.ToString
- End Sub
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- playerlocation.X = 10
- playerlocation.Y = 10
- End Sub
- Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
- Dim g As Graphics = e.Graphics
- g.DrawImage(Image.FromFile("img/player.png"), playerlocation)
- If adobjekt = True Then
- g.DrawImage(Image.FromFile("img/objekts/" & objekt), playerlocation.X + 32, playerlocation.Y)
- adobjekt = False
- End If
- End Sub
- End Class