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

然后我想通过commandbutton加载到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属性获取图形。

是否可以在picturebox2上加载我的图形，然后加载到picturebox1？

1 个答案: