是否可以將我的圖形加載到picturebox2上，然後加載到picturebox1中？

Question

我的圖形是象下面這樣：

Private Sub pin8_Paint() 
pin8.Line (48, 48)-(168, 96), vbBlack, B 
pin8.Line (56, 48)-(72, 32), vbBlack, B 
pin8.Line (82, 48)-(98, 32), vbBlack, B 
pin8.Line (108, 48)-(124, 32), vbBlack, B 
pin8.Line (134, 48)-(150, 32), vbBlack, B 
pin8.Line (56, 96)-(72, 112), vbBlack, B 
pin8.Line (82, 96)-(98, 112), vbBlack, B 
pin8.Line (108, 96)-(124, 112), vbBlack, B 
pin8.Line (134, 96)-(150, 112), vbBlack, B 
End Sub 

然後我想通過命令按鈕加載到PIC1。任何想法？

問候， 陳

Answer 1

從MSDN，這不正是你所尋找的使用示例，我修改您的代碼與一對夫婦的變化：

Private Sub pin8_Paint() 
    pin8.AutoRedraw = True 
    pin8.Line (48, 48)-(168, 96), vbBlack, B 
    pin8.Line (56, 48)-(72, 32), vbBlack, B 
    pin8.Line (82, 48)-(98, 32), vbBlack, B 
    pin8.Line (108, 48)-(124, 32), vbBlack, B 
    pin8.Line (134, 48)-(150, 32), vbBlack, B 
    pin8.Line (56, 96)-(72, 112), vbBlack, B 
    pin8.Line (82, 96)-(98, 112), vbBlack, B 
    pin8.Line (108, 96)-(124, 112), vbBlack, B 
    pin8.Line (134, 96)-(150, 112), vbBlack, B 
End Sub 

Private Sub Command1_Click() 
    pin8Clone.Picture = pin8.Image 
End Sub 

這裏的關鍵是第一Paint（）事件的一行，其中AutoRedraw設置爲True。 MSDN表示將此設置爲True，告訴PictureBox控件將圖形寫入內存中的Image對象，而不僅僅寫入UI。這允許您稍後通過Image屬性獲取圖形。