SMFL Sprite Problem

  • VB.NET

    SMFL Sprite Problem

    Hallo liebe leute,

    ich habe mir die SMFL Version 1.6 hier aus dem Forum geladen (SFML: einfache 2D GrafikEngine) und wollte nun eine JPG Datei laden was einfach nicht klappen will.

    Fehler:
    Eine Ausnahme (erste Chance) des Typs "System.DllNotFoundException" ist in sfmlnet-graphics.dll aufgetreten.
    Eine Ausnahme (erste Chance) des Typs "System.DllNotFoundException" ist in sfmlnet-graphics.dll aufgetreten.

    VB.NET-Quellcode

    1. Imports SFML
    3. Public Class Form1
    4. Public WithEvents RenderWindow As Graphics.RenderWindow
    5. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    7. End Sub
    8. Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
    9. Me.Hide()
    10. RunRenderEngine()
    11. End Sub
    12. Dim Sprite As Graphics.Sprite
    13. Sub RunRenderEngine()
    14. 'Unser RenderWindow wird mit einer Zeile erstellt und ist dann einsatzbereit
    15. RenderWindow = New Graphics.RenderWindow(New Window.VideoMode(800, 600), "SFML TEST")
    16. 'Hier können einige Einstellungen vorgenommen werden
    17. With RenderWindow
    18. '.SetFramerateLimit(120) 'Framerate auf 120 FPS begrenzen
    19. '.UseVerticalSync(True) 'Verticale Sync - geringere Framerate!
    20. .ShowMouseCursor(False) 'lässt den mouseCursor verschwinden
    21. End With
    22. 'Grafiken etc werden geladen
    23. Sprite = New Graphics.Sprite(New Graphics.Image("C:\Users\Daniel\Desktop\10f4c37facbb40dc8fd423697f5e9eda.bmp"))
    24. 'Der RenderLoop..
    25. Do While RenderWindow.IsOpened
    26. 'Die Zeile lässt die Events ausführen (z.b. Tastatureingaben etc)
    27. RenderWindow.DispatchEvents()
    28. 'ZEICHENOPERATIONEN:
    29. 'färbt den Bildschirm schwarz
    30. RenderWindow.Clear(New Graphics.Color(0, 0, 0))
    31. 'zeichnet ein sprite auf den bildshcrim
    32. RenderWindow.Draw(Sprite)
    33. 'Zeichnet die FPS zahl auf den Bildschrim
    34. RenderWindow.Draw(New Graphics.String2D("FPS: " & (Math.Round(1 / RenderWindow.GetFrameTime).ToString)))
    36. 'Aktualisiert den Bildschirm
    37. RenderWindow.Display()
    38. 'verhindert ein "einfrieren" der GUI. Man könnte den Renderloop sicherlich auch in einem Thread auslagern..
    39. Application.DoEvents()
    40. Loop
    41. End Sub
    42. Private Sub RenderWindow_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles RenderWindow.Closed
    43. RenderWindow.Close()
    44. Me.Close()
    45. End Sub
    46. Private Sub RenderWindow_KeyPressed(ByVal sender As Object, ByVal e As SFML.Window.KeyEventArgs) Handles RenderWindow.KeyPressed
    47. 'einige tasten funsen nciht - ESC, PFeiltasten ..
    48. 'hier kann die position des sprite mittels WASD verändert werden
    49. Dim _x As Single = Sprite.Position.X
    50. Dim _y As Single = Sprite.Position.Y
    51. If e.Code = Window.KeyCode.W Then _y -= 10
    52. If e.Code = Window.KeyCode.S Then _y += 10
    53. If e.Code = Window.KeyCode.A Then _x -= 10
    54. If e.Code = Window.KeyCode.D Then _x += 10
    55. Sprite.Position = New Graphics.Vector2(_x, _y)
    56. End Sub
    58. End Class


    Die Datei Existiert natürlich auf dem Desktop.

    Wenn ich aus dem Form_Shown Event das Me.hide Lösche dann sieht man das sieht die Form beim Start aufhängt!

    Es geht mir nicht darum den ganzen Code zu Kopieren sondern zu verstehen.

    Kann mir einer Tipps geben?

    Danke
    Liebe Grüße,
    C.O.D.E

    Testautomatisierung (TA):
    5%
    Du findest meinen Beitrag Hilfreich? :thumbup: Dann drück auf Hilfreich!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „pc-werkstatt“ ()

Facebook
Telefonspende