可能有一个简单的答案,但我已经尝试了很多东西,除非我只是手动显示图像,否则似乎没有任何效果,但我想要的是将此子用于其他图片以及我将在稍后修复它显示这些图像。我的代码如下
Private Sub updateStandardToolbar()
'Draws the sprites to the pictureboxes
Dim bit As New Bitmap(gridSize, gridSize)
Dim dest_rect As Rectangle = New Rectangle(0, 0, gridSize, gridSize)
Dim i As Integer = 0
' Associate a Graphics object with the Bitmap
Dim gr As Graphics = Graphics.FromImage(bit)
For y As Integer = 0 To standardNum.Y
For x As Integer = 0 To standardNum.X
Call getSrcRect(x, y)
'Copy that part of the image.
gr.DrawImage(bmpStandardTile, dest_rect, src_rect, GraphicsUnit.Pixel)
'Display the result.
pb(i).Image = bit
i += 1
Next
Next
End Sub
这段代码的问题是所有图片框(pb())都显示相同的图片,这是我图像上的最后一张。StandardNum.x 和 standardNum.y 是分别持有 3 和 1 的变量。bmpStandardTile 是我要从中复制的图像,希望 dest_rect 和 src_rect 是不言自明的 =)。任何帮助表示赞赏。