Vb6 是否可以将我的图形加载到picturebox2，然后再加载到picturebox1？

我的图表如下：

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中。有什么想法吗

问候,， Chan

使用中的示例，它完全符合您的要求，我对您的代码进行了一些修改：

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（）事件的第1行，其中

AutoRedraw

设置为True。表示将其设置为True，将告诉PictureBox控件将图形写入内存中的图像对象，而不是仅写入UI。这允许您以后通过

图像

属性抓取图形。

izit i cnt使用.paintpicture？？例如：带有mainbox.Cls的私有子ShowPictureAtPosition（pX为单体，pY为单体）PaintPicture mPic、pX+1、pY+1、mPicWidth、带有末端子体的mPicHeight End