Вообще то это кусок из моего UserControl_a. Сохранение происходит, но если была широкая картинка, а затем высокая, то сохраняеся она все равно как широкая. Ошибка гдето здесь.
- Код: Выделить всё
Public Function AutoSizeFoto()
Dim kF As Currency
kF = Picture1.Width / Picture1.Height '
If kF > 1.33 Then '
Picture2.Height = Picture3.Width / kF
Picture2.Width = Picture2.Height * kF
'MoveWindow Picture2.Picture, 0, 0, (Picture2.Height * kF) / 15, (Picture3.Width / kF) / 15, 1
Else
Picture2.Width = Picture3.Height * kF
Picture2.Height = Picture2.Width / kF
End If
Picture2.Left = (Picture3.Width - Picture2.Width) / 2
Picture2.Top = (Picture3.Height - Picture2.Height) / 2
If GetStretchBltMode(Picture2.hdc) <> HALFTONE Then
SetStretchBltMode Picture2.hdc, HALFTONE '
End If
Me.Caption = Picture2.Height / 15 & "---Picture2.Width " & Picture2.Width / 15 & " --Pic2.Left" & Picture2.Left
StretchBlt Picture2.hdc, 0, 0, Picture2.Width, Picture2.Height, Picture1.hdc, 0, 0, Picture1.Width, Picture1.Height, SRCCOPY
Picture2.Refresh '
End Function
Вот при вызове этой функции вмдно в заголовке разночтение размеров.
Picture2.Width и Picture2.Image.Width не совподают.
- Код: Выделить всё
Public Function SaveFoto()
Me.Caption = "Picture2.Image.Width-" & Picture2.Image.Width & " Picture2.Width-" & Picture2.Width
SavePicture Picture2.Image, App.Path & "\" & Timer & ".bmp"
End Function
[/syntax][/code]
