Grafik verschwindet

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von Wipf1000.

    Grafik verschwindet

    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

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Integer
    3. Dim taste As String
    5. Dim adobjekt As Boolean = False
    6. Dim objekt As String = "standard.png"
    7. Dim playerlocation As Point
    8. Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    10. If GetAsyncKeyState(Keys.Left) = -32767 Then
    12. playerlocation.X -= 10
    13. ElseIf GetAsyncKeyState(Keys.Right) = -32767 Then
    14. playerlocation.X += 10
    15. ElseIf GetAsyncKeyState(Keys.Up) = -32767 Then
    16. playerlocation.Y -= 10
    17. ElseIf GetAsyncKeyState(Keys.Down) = -32767 Then
    18. playerlocation.Y += 10
    19. ElseIf GetAsyncKeyState(Keys.Space) = -32767 Then
    20. adobjekt = True
    22. End If
    24. Me.Refresh()
    25. Me.Text = adobjekt.ToString
    27. End Sub
    29. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    30. playerlocation.X = 10
    31. playerlocation.Y = 10
    32. End Sub
    34. Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    35. Dim g As Graphics = e.Graphics
    38. g.DrawImage(Image.FromFile("img/player.png"), playerlocation)
    39. If adobjekt = True Then
    40. g.DrawImage(Image.FromFile("img/objekts/" & objekt), playerlocation.X + 32, playerlocation.Y)
    42. adobjekt = False
    43. End If
    45. End Sub
    48. End Class

    Also erst mal, bevor wir Dein Problem genauer betrachten, baue bitte was um:
    1. ist GetAsyncKeyState unnötig:

    VB.NET-Quellcode

    1. Protected Overrides OnKeyDown(e As KeyEventArgs)
    2. Select Case e.KeyCode
    3. Case Keys.Left
    4. '...
    5. Case Keys.Space
    6. '...
    7. End Select
    8. End Sub


    2. Lade die Bilder einmal beim Start des Programmes in Variablen und verwende diese anschließend in der Paint-Methode. Das Laden der Bilder dauert seine Zeit und in der Paint-Methode sollte man generell so wenig wie möglich machen.

    3. Me.Refresh ist unnötig. Dadurch erzwingst Du das sofortige Neuzeichnen. Verwende Me.Invalidate. Dann kann das System selbst entscheiden, wann genau es neuzeichnen sollte.
    "Luckily luh... luckily it wasn't poi-"
    -- Brady in Wonderland, 23. Februar 2015, 1:56
    Desktop Pinner | ApplicationSettings | OnUtils

    GetAsyncKeyState hab ich raus genommen...


    Niko Ortner schrieb:

    2. Lade die Bilder einmal beim Start des Programmes in Variablen und verwende diese anschließend in der Paint-Methode. Das Laden der Bilder dauert seine Zeit und in der Paint-Methode sollte man generell so wenig wie möglich machen.
    Was genau ist damit jetzt gemeint? bzw wie mach ich dass?


    me.refresh hab ich jetzt durch invalidate ersetzt...

    VB.NET-Quellcode

    1. Class FormMitSinnvollemNamen
    3. Dim PlayerImage As Bitmap
    4. Dim ObjectImage As Bitmap
    6. Public Sub New()
    7. InitializeComponent()
    8. PlayerImage = New Bitmap(Pfad)
    9. ObjectImage = New Bitmap(Pfad)
    10. End Sub
    12. Overrides OnPaint(...)
    13. e.Graphics.DrawImage(PlayerImage, PlayerLocation)
    14. End Sub
    16. End Class

    Dadurch wird das Bild nur einmal von der Platte gelesen und dann bleibt's im Arbeitsspeicher.
    Übrigens müssen Bilder mit einem Aufruf an Dispose verworfen werden. Das heißt, wenn Du das machst:

    VB.NET-Quellcode

    1. e.Graphics.DrawImage(New Bitmap("img/player.png"), playerlocation)

    Dann wird immer wieder eine neue Bitmap-Instanz im Arbeitsspeicher abgelegt. Und diese Instanzen verschwinden nicht, wenn Dispose nicht aufgerufen wird. Irgendwann geht dem Programm der Arbeitsspeicher aus.

    Da würde sich auch eine eigene Klasse anbieten, die die Bilder verwaltet:

    VB.NET-Quellcode

    1. Public Class BitmapResources
    3. Private Shared _PlayerImage As Bitmap
    5. Public Shared ReadOnly Property PlayerImage As Bitmap
    6. Get
    7. If _PlayerImage Is Nothing Then
    8. _PlayerImage = New Bitmap(Pfad)
    9. End If
    10. Return _PlayerImage
    11. End Get
    12. End Property
    14. End Class
    15. 'Oder so:
    16. Public Class BitmapResources
    18. Private Shared _PlayerImage As Bitmap
    20. Public Shared ReadOnly Property PlayerImage As Bitmap
    21. Get
    22. Return _PlayerImage
    23. End Get
    24. End Property
    26. Public Shared Sub Load()
    27. _PlayerImage = New Bitmap(Pfad)
    28. End Sub
    30. End Class


    Dadurch hast Du die Verwaltung der Bilder aus dem übrigen Code raus und es wird aufgeräumter.
    Nochwas: Verwende nicht Image.FromFile() sondern New Bitmap(). Das ist wesentlich schneller.
    [VB 2010] GDI+ Bitmap Vergrößern -> Bitmap wird abgeschnitten
    "Luckily luh... luckily it wasn't poi-"
    -- Brady in Wonderland, 23. Februar 2015, 1:56
    Desktop Pinner | ApplicationSettings | OnUtils

    Niko Ortner schrieb:


    Könntest Du bitte den Code posten, wie Du ihn jetzt hast?


    also der jetzige code sieht genau so aus:

    VB.NET-Quellcode

    1. Public Class Form1
    4. Dim adobjekt As Boolean = False
    6. Dim playerlocation As Point
    8. Dim playerimage As Bitmap
    9. Dim objekt As Bitmap
    12. Protected Overrides Sub OnKeyDown(ByVal e As KeyEventArgs)
    13. Select Case e.KeyCode
    14. Case Keys.Left
    15. playerlocation.X -= 10
    16. Case Keys.Right
    18. playerlocation.X += 10
    19. Case Keys.Up
    20. playerlocation.Y -= 10
    21. Case Keys.Down
    22. playerlocation.Y += 10
    23. Case Keys.Space
    24. adobjekt = True
    25. End Select
    26. Me.Invalidate()
    27. End Sub
    29. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    30. playerlocation.X = 10
    31. playerlocation.Y = 10
    32. InitializeComponent()
    33. playerimage = New Bitmap("img/player.png")
    34. objekt = New Bitmap("img/objekts/standard.png")
    35. End Sub
    37. Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    38. Dim g As Graphics = e.Graphics
    41. g.DrawImage(playerimage, playerlocation)
    42. playerimage = New Bitmap("img/player.png")
    44. If adobjekt = True Then
    46. g.DrawImage(objekt, playerlocation.X + 32, playerlocation.Y, Me.Width - Me.Width - 32, Me.Height - Me.Height - 64)
    48. adobjekt = False
    49. End If
    51. End Sub
    54. End Class

    Da gibt's noch ein paar Sachen, die mir nicht einleuchten.

    Bei Zeile 42 lädst Du erneut ein Bild. Das ist unnötig, denn Du lädst es ja schon im Konstruktor.

    Bei Zeile 46, was soll Me.Width - Me.Width - 32, Me.Height - Me.Height - 64 bedeuten?
    Du rechnest zum Beispiel 100 - 100 - 32, was in -32 resultiert. Das bedeutet übrigens, dass das Bild umgedreht wird. Also was davor links war ist jetzt rechts.

    Und es ist jetzt auch klar, warum das gezeichnete wieder verschwindet.

    Zuerst wird per Druck auf die Leertaste adobjekt auf True gesetzt und es wird neu gezeichnet. In der Zeichenroutine wird jetzt adobjekt geprüft. Es ist true, deshalb wird Zeile 46 ausgeführt. Aber jetzt hast Du adobject = False in diesem Block stehen. Das bedeutet, adobject ist ab sofort wieder False. Wenn jetzt nochmal neu gezeichnet wird, wird das Bild nicht mehr gezeichnet. Du müsstest nochmal Leertaste drücken, damit es nochmal ein einziges Mal gezeichnet wird. Und dann verschwindet es wieder.

    Was hast Du denn da überhaupt vor?
    "Luckily luh... luckily it wasn't poi-"
    -- Brady in Wonderland, 23. Februar 2015, 1:56
    Desktop Pinner | ApplicationSettings | OnUtils

    Zeile 42 gehört da nicht hin... werd ich gleich rauswerfen genauso wie zeile 46 da hab ich grad was ausprobiert (denkfehler)
    Qas ich vor hab ist dass man ein bild hin und her bewegt (dass funktikniert ja auch) und mit der leertaste immer neben dem bild ein weiteres plaziert (da ist dass problem)
    Ich hab nur noch nicht oft sowas gemacht und mit controls will ich garnicht erst anfangen...
    Iergendwie muss dass doch gehen oder?

    Dann musst Du eine Liste von Positionen erstellen, an denen das Bild gezeichnet werden soll.
    Das sieht dann in etwa so aus:

    VB.NET-Quellcode

    1. Dim CurrentPosition As Point
    2. Dim SavedPositions As New List(Of Point)
    4. Public Sub New()
    5. InitializeComponent()
    6. 'Startposition festlegen
    7. 'Bilder laden
    8. End Sub
    10. Overrides OnKeyDown(...)
    11. Select Case e.KeyCode
    12. Case Keys.Up
    13. CurrentPosition.Y -= ...
    14. Case Down
    15. '...
    16. Case Space
    17. SavedPositions.Add(CurrentPosition) 'Dadurch wird die aktuelle Position der Liste hinzugefügt.
    18. End Select
    19. Me.Invalidate()
    20. End Sub
    22. Overrides OnPaint(...)
    23. e.Graphics.DrawImage(..., CurrentPosition)
    24. For Each i In SavedPositions
    25. e.Graphics.DrawImage(..., i)
    26. Next
    27. End Sub
    "Luckily luh... luckily it wasn't poi-"
    -- Brady in Wonderland, 23. Februar 2015, 1:56
    Desktop Pinner | ApplicationSettings | OnUtils

Facebook