Hi.
Mein Bild flackert wenn ich es bewege:
Was kann ich da verbessern?
Über das KeyDown-Event gehts nicht, weil das nicht mehr funktioniert wenn ich ein Button drücke oder so..
Mfg. TGS
Mein Bild flackert wenn ich es bewege:
VB.NET-Quellcode
- Public Class Form1
- Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Int32) As Short
- Dim g As Graphics = Me.CreateGraphics
- Sub Render()
- Dim g As Graphics = Me.CreateGraphics
- paintPlayer(g)
- End Sub
- Private Sub paintPlayer(ByVal g As Graphics)
- Dim playerSprite As New Bitmap("C:\Unten.png")
- g.DrawImage(playerSprite, XPOS, YPOS, 41, 126)
- End Sub
- Dim XPOS As Integer
- Dim YPOS As Integer
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- Label3.Text = XPOS
- Label4.Text = YPOS
- Dim hotkey1 As Boolean
- hotkey1 = GetAsyncKeyState(Keys.W)
- If hotkey1 = True Then
- XPOS = XPOS - 3
- Refresh()
- paintPlayer(g)
- End If
- End Sub
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- XPOS = 191
- YPOS = 131
- End Sub
- End Class
Was kann ich da verbessern?
Über das KeyDown-Event gehts nicht, weil das nicht mehr funktioniert wenn ich ein Button drücke oder so..
Mfg. TGS