1

私のグラフィックは以下のようなものです:

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 にロードしたいと思います。何か案が？

よろしく、チャン

4

1 に答える 1

2

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() イベントの 1 行目で、 がAutoRedrawTrue に設定されています。 MSDNによると、これを True に設定すると、PictureBox コントロールは、UI だけでなくメモリ内の Image オブジェクトにグラフィックを書き込むようになります。これにより、後でプロパティを介してグラフィックを取得できますImage。

于 2013-06-25T17:40:20.783 に答える