Picture1.PaintPicture?

[Juriev]

Из первой картинки во вторую рисует, а из второй в первую - нет. Сообщение- invalid picture. Или как-то можно по другому растянуть часть на всю картинку? Подскажите, пожалуйста.

Private Sub p1_Click()
p2.PaintPicture p1.Picture, 0, 0, p2.Width/2, p2.Height/2, 0, 0, p1.Width, p1.Height
End Sub
Private Sub p2_Click()
p1.PaintPicture p2.Picture, 0, 0, p1.Width, p1.Height, 0, 0, p2.Width, p2.Height
End Sub

[Amed]

Тут дело в том, что Picture1.Picture - не то, что на пикчурбоксе нарисовано, а то что в него загружено (LoadPicture и т.п.)

А то, что "нарисовано" - Picture1.Image

А растянуть часть на всю картинку можно и API StretchBlt (см. API-Guide)

[Sur]

после PaintPicture дай P1.Picture = P1.Image