PictureBox 2

[Algol]

А как мне можно узнать первоначальные размеры картинки в Picture (ну там Width, Height). Очень надо. Please

[hCORe]

А вот и функция. Клади на форму Picture1, делай ему Visible = False. Остальное - дело техники:

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

Private Sub GetPicInfo (FilePath as String)
On Error Resume Next
Dim lWidth as Long, lHeight as Long, lTmp (1) as Long
   Picture1.Picture = LoadPicture(FilePath)
   lTmp(0) = Picture1.Width
   lTmp(1) = Picture1.Height
   Picture1.AutoSize = True
   lWidth = Picture1.Width \ Screen.TwipsPerPixelX - 4
   lHeight = Picture1.Height \ Screen.TwipsPerPixelY - 4
   Picture1.AutoSize = False
   Picture1.Width = lTmp(0)
   Picture1.Height = lTmp(1)
   MsgBox "Width = " & Trim(Str(lWidth)) & _
   ", Height = " & Trim(Str(lHeight))
End Sub


Пример вызова:
GetPicInfo "<путь к файлу>"

[Algol]

А можно так сделать :
Нажал на кнопку и у тебя Width повышается на 2, еще нажал >> еще на 2 и т. д. Ну и соответственно и изображение растягивается.

[Amed]

Ну да. Используй либо контрол ImageBox, либо PictureBox с апи-функцией StretchBlt (поищи её по форуму или смотри в API-Guide)...

[Algol]

а вот если я сразу растягиваю рисунок до больших размеров, то рисунок исчезает и остается только фон. Что это такое?

[GSerg]

А чего это вы тут делаете, а?

Размеры пикчербокса:

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

Picture1.Width
Picture1.Height

Размеры картинки в пикчербоксе

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

Picture1.Picture.Width
Picture1.Picture.Height

[Algol]

Ну и как изменять Width, Height (ну например прибавить на 2).

[Algol]

В Picture можно хоть по вертикали или по горизонтали растянуть по нормальному и потом сохранить а?
Использовал StretchBlt, после него остаются куски изображения.

[Boris_BGB]

Ну вы мазохисты!
Прибавлять\убавлять размер:

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

Private Sub Command1_Click()
Image1.Height = Image1.Height + 2
End Sub

Аналогично с шириной (поменять Height на Width) и убавлением(знак + на -).

[Algol]

Вы че вообще что ли уже...

Прибавлять\убавлять размер:

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

Private Sub Command1_Click()
Image1.Height = Image1.Height + 2
End Sub

Мне нужно поменять размер картинки а не Imag`a. Может вы че нибудь мне исправите а? Please

[Cyrax]

если бы еще можно было понять, что же это такое

[Algol]

Ну так там сначала Image был, ну а теперь Picture >> так что надо все переделывать под Picture.

[Algol]

Как поменять местоположение Picture на форме?

[Cyrax]

боже мой! что же это делается-то? а?
на держи пример наклепаный минут за 10
без применения какил либо API-функций
потому как разобратся в твоем коде - не представляется возможным

вся функциональность реализована в процедуре RedrawPicture

а контролы по форме таскать дык это

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

control.Move x, y, [Width], [Height]

где control - имя контрола (например Picture1)

[Algol]

Если мне сказали это делать, я что виноват что ли. Я же не для себя пишу. А за прогу спасибо. Но ты все таки скажи Как поменять местоположение Picture на форме?

[Cyrax]

ну написал-же

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

Picture1.Move x, y, [Width], [Height]

где
Picture1 - имя PictureBox (или любого другого контрола);
x и y - координаты верхнего левого угла контрола;
Width и Height - необязателные ширина и высота контрола

[Algol]

Значит просмотрел. Увлекся прогой которую ты мне прислал. Thanks