切割一個Container中的圖片

前幾天在網路上閑逛時，看到有人問了這樣的問題：想要寫拼圖程式，又不想用已經切割好的圖片，不知要如何把一個完整的圖片利用程式來切割。以下的程式只是示范切割圖片的方法，而不是教你如何寫拼圖程式。

需求物件：

Form, PictureBox

請建立一個新專案，并在表單中放入上述物件，再把以下程式碼復制到表單的程式碼視窗，最後按下F5來執行。(注意圖片路徑可能要修改)

Private Sub Form_Activate()

'詳細閱讀PaintPicture的說明就可了解,在來源圖和目的圖中,

'可以指定某個特定區域來繪圖,亦即可以將圖片切割或放大,縮小

Picture1.PaintPicture Picture, 10, 10, 1000, 1000, 0, 0, 500, 500

End Sub

Private Sub Form_Load()

AutoRedraw = True

'以下路徑可能要修改

Picture = LoadPicture("e:\win95\bubbles.bmp")

With Picture1

.Left = 1000

.Top = 1000

.Width = 2000

.Height = 2000

.AutoRedraw = True

End With

End Sub