Hi,
ich habe einen Map Editor (einfach gemacht)und möchte nun wenn ich im menüstrip save auswähle das er die map speichert hier ist der code für den Map Editor
Public Class Form1
Private rect As Rectangle
Private rect2 As Rectangle
Private graph As Graphics
Private bitmap As Bitmap = New Bitmap(1000, 1000)
Private Sub GenerateToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GenerateToolStripMenuItem.Click
Me.WindowState = FormWindowState.Maximized
For tilex = 1 To 10
For tiley = 1 To 10
rect = New Rectangle(tilex * 70, tiley * 70, 70, 70)
graph = Graphics.FromHwnd(Me.Handle)
graph.DrawRectangle(Pens.Black, rect)
Next
Next
End Sub
Private Sub Form1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Click
Me.WindowState = FormWindowState.Maximized
For tilex = 1 To 10
For tiley = 1 To 10
rect = New Rectangle(tilex * 70, tiley * 70, 70, 70)
graph = Graphics.FromHwnd(Me.Handle)
graph.DrawRectangle(Pens.Black, rect)
If Form1.MousePosition.X < rect.Location.X + rect.Width And Form1.MousePosition.X > rect.Location.X And Form1.MousePosition.Y < rect.Location.Y + rect.Height And Form1.MousePosition.Y > rect.Location.Y Then
rect = New Rectangle(rect.Location.X, rect.Location.Y, rect.Width, rect.Height)
graph = Graphics.FromHwnd(Me.Handle)
graph.FillRectangle(Brushes.BlueViolet, rect)
End If
Next
Next
End Sub
End Class
gruß vber
ich habe einen Map Editor (einfach gemacht)und möchte nun wenn ich im menüstrip save auswähle das er die map speichert hier ist der code für den Map Editor
Public Class Form1
Private rect As Rectangle
Private rect2 As Rectangle
Private graph As Graphics
Private bitmap As Bitmap = New Bitmap(1000, 1000)
Private Sub GenerateToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GenerateToolStripMenuItem.Click
Me.WindowState = FormWindowState.Maximized
For tilex = 1 To 10
For tiley = 1 To 10
rect = New Rectangle(tilex * 70, tiley * 70, 70, 70)
graph = Graphics.FromHwnd(Me.Handle)
graph.DrawRectangle(Pens.Black, rect)
Next
Next
End Sub
Private Sub Form1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Click
Me.WindowState = FormWindowState.Maximized
For tilex = 1 To 10
For tiley = 1 To 10
rect = New Rectangle(tilex * 70, tiley * 70, 70, 70)
graph = Graphics.FromHwnd(Me.Handle)
graph.DrawRectangle(Pens.Black, rect)
If Form1.MousePosition.X < rect.Location.X + rect.Width And Form1.MousePosition.X > rect.Location.X And Form1.MousePosition.Y < rect.Location.Y + rect.Height And Form1.MousePosition.Y > rect.Location.Y Then
rect = New Rectangle(rect.Location.X, rect.Location.Y, rect.Width, rect.Height)
graph = Graphics.FromHwnd(Me.Handle)
graph.FillRectangle(Brushes.BlueViolet, rect)
End If
Next
Next
End Sub
End Class
gruß vber