| |
автор: ?????? (08.06.2006 в 00:00) |
|
| | | |
| |
| |
| |
автор: ginik (09.06.2006 в 00:00) |
|
| | Re: Хорошо, как узнать размеры загруженной в Рисунок фотографии? Access же как то узнает прежде чем подстроить ее под рамку? сам не пробовал
http://www.activex.net.ru/activex/more5.shtml#picsize | |
| |
| |
| |
автор: ?????? (09.06.2006 в 00:00) |
|
| | Спасибо, попробывал, работает. А стандартных, значит, нет методов? | |
| |
| |
| |
|
|
| | блин как его прикрутить подскажите ?  | |
| |
| |
| |
автор: ????? (09.06.2006 в 00:00) |
|
| | Re: А стандартных, значит, нет методов? http://www.dcs.ed.ac.uk/home/mxr/gfx/2d-hi.html
http://home.onego.ru/~chiezo/gif.htm
http://jenyay.wallst.ru/index.php?id=bmp
http://www.compression.ru/download/jpeg2000.html | |
| |
| |
| |
|
|
| | Этот вопрос уже обсуждался. Поищите на форуме. Посмотрите в конструкторе свойства. По результатам обсуждения я делаю так
(Это в отчете)
Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
Dim dk As Double, h As Long, w As Long
w = 13.5 * 567 'Начальная высота фото
h = w * 3 / 4
On Error Resume Next
Me.RIS.Picture = Me.Filename 'загнали фото
'масштабирование по реальным значениям
dk = Me.RIS.ImageHeight / Me.RIS.ImageWidth
If dk >= 1 Then
Me.RIS.Height = h
Me.RIS.Width = h / dk
Else
Me.RIS.Height = w * dk
Me.RIS.Width = w
End If
End Sub
|
| |
| |
| |
