Tile Map mit Drag

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Tile Map mit Drag

    Moin zusammen,

    ich stehe vor einem Problem, bei dem ich nicht weiter komme. Ich muss eine 2D Map in einen Tile Mapeditor packen und dementsprechend zoomen, Koordinaten kennzeichnen usw...
    Mir ist klar das Forms nicht gut dafür ist, trotzdem möchte ich das mit Forms realisieren.
    Hier mein Problem:

    Die Tile Map zu erstellen ist ja kein Problem, ich kriege das Drag and Drop nicht hin.
    Hier der Source vom Laden:

    VB.NET-Quellcode

    1. Private Sub p_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs)
    2. Debug.WriteLine(e.X.ToString & e.Y.ToString)
    3. End Sub
    5. Private Sub Form1_Load_1(sender As Object, e As EventArgs) Handles MyBase.Load
    6. Dim tileWidth As Integer = 30
    7. Dim tileHeight As Integer = 30
    8. Dim tileRows As Integer = 60
    9. Dim tileCols As Integer = 60
    11. Using sourceBmp As Bitmap = New Bitmap("C:\cc\mapeditor\basic.jpg")
    12. Dim s As Size = New Size(tileWidth, tileHeight)
    13. Dim destRect As Rectangle = New Rectangle(Point.Empty, s)
    15. For row As Integer = 0 To tileRows - 1
    17. For col As Integer = 0 To tileCols - 1
    18. Dim p As PictureBox = New PictureBox()
    19. p.Size = s
    20. Dim loc As Point = New Point(tileWidth * col, tileHeight * row)
    21. Dim srcRect As Rectangle = New Rectangle(loc, s)
    22. Dim tile As Bitmap = New Bitmap(tileWidth, tileHeight)
    23. Dim G As Graphics = Graphics.FromImage(tile)
    24. G.DrawImage(sourceBmp, destRect, srcRect, GraphicsUnit.Pixel)
    25. p.Image = tile
    26. p.Location = loc
    27. p.Tag = loc
    28. p.Name = String.Format("Col={0:00}-Row={1:00}", col, row)
    29. Me.Controls.Add(p)
    30. Next
    31. Next
    32. End Using
    33. End Sub
    34. ​


    Kann mir dabei jemand helfen? Wäre super!
    ~Wir leben zwar alle unter dem gleichen Himmel, aber es haben nicht alle den gleichen Horizont~

    @razzzer530i Was soll denn passieren?
    Mach doch das ganze mal ein 1x1-Tile-Map im Designer und sieh Dir an, was in der Prozedur InitializeComponents() in der FormX.Designer.vb steht.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Vielen Dank,

    leider bin ich meinem Ziel nicht näher gekommen.

    Ich benötige nur die Möglichkeit ein Panel mit der Maus innerhalb eines zweiten Panels zu bewegen, ohne dass ich dabei die MouseEvents der inneren Pictureboxen abgreife. Das funktioniert nicht und ich finde die Lösung einfach nicht.
    ~Wir leben zwar alle unter dem gleichen Himmel, aber es haben nicht alle den gleichen Horizont~

    @razzzer530i Wenn ich Dich richtig verstehe: So geht das nicht.
    Ich nehme mal an, Du willst das innere Panel mit der Maus anfassen und dann schieben.
    Dazu brauchst Du die MouseEvents Down und Move des inneren Panels:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private x As Integer
    3. Private y As Integer
    4. Private Sub Panel1_MouseDown(sender As Object, e As MouseEventArgs) Handles Panel1.MouseDown
    5. x = Control.MousePosition.X - Panel1.Location.X
    6. y = Control.MousePosition.Y - Panel1.Location.Y
    7. End Sub
    9. Private Sub Panel1_MouseMove(sender As Object, e As MouseEventArgs) Handles Panel1.MouseMove
    10. If e.Button = MouseButtons.Left Then
    11. Dim newpoint = Control.MousePosition
    12. newpoint.X -= x
    13. newpoint.Y -= y
    14. Panel1.Location = newpoint
    15. End If
    16. End Sub
    17. End Class
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende