Už jsem to zvládl, není potřeba opovídat.
Dim image As New Bitmap(400, 400)
image.FromFile("data\sachovnice.jpg")
Dim gr As Graphics = Graphics.FromImage(image)
gr.DrawImage(PictureBox1.Image, 0, 0, 400, 400)
For i = 1 To 8
For y = 1 To 8
Try
gr.DrawImage(sachovnice(i, y).Image, sachovnice(i, y).Location.X, sachovnice(i, y).Location.Y, 42, 42)
Catch ex As Exception
End Try
Next
Next
gr.Dispose()
image.Save("C:\Chess excercise creator\" & txt_nazev.Text & ".png")
image.Dispose()
MsgBox("Ulozeno do: C:\Chess excercise creator\" & txt_nazev.Text & ".png")
Jen pro inspiraci, jsem si vytvoril novou bitmapu, udelal z ni platno a vklozil jsem jenotlive obrazky podle pozic
|