Jgynm проблема с рисунками

[neic]

Как сделать так чтобы загруженный рисунок принимал размеры Picture1?

[Александр80]

AutoSize установи в true но тогда PictureBox примит размер картинки. А для втискивания картинки в PictureBox используй PaintPicture или BitBlt (это работает быстрей API функия)

Короче читайте про PaintPicture и BitBlt

[Александр80]

Кинь на форму четыре элемента 2 PictureBox, 1 TextBox и 1 кнопка
в моем варианте в Picture1 = картинка уменьшается на 50 "Text1.Text = "50" "процентов от картинки размещенной в Picture2.

Код: Выделить всё

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

[Шурик]

Тогда юзай Image или если я не ошибаюсь, то StrechBlt

[Александр80]

Александр80 ты понял всё наоборот! Мне нужно чтобы НЕ Picture1 прнимал значения римунка, а рисунка значения Picture1

В моем примере оба варианта, подумай немного и все будет ок...

1- Picture2 принимает значение рисунка (прости забыл сказать AutoSize надо установить в true и его можно сделать невидимым)

2 - Picture1 принимает заданный размер в % от загруженной картинки (Picture2). Размер в процентах можно вводить в Text1.Text.

Все картинки могут иметь разный размер, определи размер загруженной картинки (Picture2) и вычисли соотношение Picture1 и Picture2 (X и Y). Найди процентное соотношение и в Picture1 ты сможешь отобразить картинку нужного тебе размера (Picture1 может и не менять свой размер, хотя может и менять все зависит от тебя...)



Идею я тебе подкинул, а дальше думай сам мне кажется, что нужно работать с PaintPicture или BitBlt, StrechBlt ... Решать тебе!!!