vb6 - 是否可以在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属性获取图形。