Private Sub Command1_Click()
Picture2.Picture = LoadPicture("C:\1.jpg")
Text1.Text = "50" ' Попробуй убрать это и вводить значения в ручную
Dim SrcWidth As Single, SrcHeight As Single
Dim DestWidth As Single, DestHeight As Single
SrcWidth = Picture2.ScaleWidth
SrcHeight = Picture2.ScaleHeight
DestWidth = SrcWidth * (Val(Text1.Text) / 100)
DestHeight = SrcHeight * (Val(Text1.Text) / 100)
Picture1.PaintPicture Picture2, 0, 0, DestWidth, DestHeight, 0, 0, SrcWidth, SrcHeight, vbSrcCopy
End Sub
neic писал(а):Александр80 ты понял всё наоборот! Мне нужно чтобы НЕ Picture1 прнимал значения римунка, а рисунка значения Picture1
Сейчас этот форум просматривают: Google-бот, SemrushBot, Yandex-бот и гости: 169