|
|
Postada em 05/07/2004 17:27 hs
O caso eh o seguinte: imagine que tenho uma picture box na dimensao 3x4. Agora a imagem que vai ser carrega esta em 5x5 - teoricamente a foto vai distorcer. O que eu quero fazer eh gerar um calculo onde a foto caiba nesse 3x4 sem distorcer. Eu teria de redimencionar o tamnho da foto para 3x3 e nesse caso ficaria uns espacos vazios. Alguem tem nocao de como eu faco esses calculos???? Valeu |
|
|
|
|
|
|
|
Postada em 05/07/2004 17:46 hs
'Primeiro coloque um controle Image dentro de seu Picturebox
Dim x As Integer, y As Integer, z As Double
x = Image1.Height - Picture1.ScaleHeight
y = Image1.Width - Picture1.ScaleWidth
Image1.Stretch = True
If x > y Then
z = Image1.Width / Image1.Height
Image1.Height = Image1.Height - x
Image1.Width = Image1.Width - (x * z)
Else
z = Image1.Height / Image1.Width
Image1.Height = Image1.Height - (y * z)
Image1.Width = Image1.Width - y
End If
________________________ Té + Que NIMB role bons Dados! 
|
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 05/07/2004 17:52 hs
se preferir Centralizar depois:
x = Picture1.ScaleHeight - Image1.Height
y = Picture1.ScaleWidth - Image1.Width
If x < y Then
Image1.Left = y / 2
Else
Image1.Top = x / 2
End If
________________________ Té + Que NIMB role bons Dados!
|
|
TÓPICO EDITADO
|
|
|
|
defende
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 05/07/2004 18:02 hs
Valeu ai Waldir, brigadao. E a terrinha ai, como vai. Lugar bom esse ai viu - Pocos - conheco muitos lugares ai.... []'s |
|
|
|
