Boa tarde.

Tenho uma foto aqui em 800x600 gostaria de fazer comq ela aparecece no sistema no tamanho 300x400. Não preciso aterar o tamanho do arquivo, so deverá ser aberta em uma picturebox ou image no tamanho 300x400.

 

Algeum pode me ajudar???

Agradeço desde já

Eu tenho esse codigo aqui que acho que pode te ajudar. Eh soh vc deixar o objeto image com as medidas que vc quiser e usar este codigo para carregar.

 

Public Function Redimencionar(img As Image, pict As PictureBox, Caminho As String)
Dim X As Integer, Y As Integer, z As Double

On Error Resume Next

img.Stretch = False
Set img.Picture = LoadPicture(Caminho)
img.Stretch = True

   X = img.Height - pict.ScaleHeight
   Y = img.Width - pict.ScaleWidth
  
   If X > Y Then
      z = img.Width / img.Height
      img.Height = img.Height - X
      img.Width = img.Width - (X * z)
    Else
      z = img.Height / img.Width
      img.Height = img.Height - (Y * z)
      img.Width = img.Width - Y
   End If

    X = pict.Height - img.Height
   Y = pict.Width - img.Width
  
   If X < Y Then
      img.Left = Y / 2
    Else
      img.Top = X / 2
   End If

img.Left = (pict.Width / 2) - (img.Width / 2)
img.Top = (pict.Height / 2) - (img.Height / 2)

If Err.Number <> 0 Then
    MsgBox "Tipo de figura inválido.", vbInformation, "Aviso."
    Exit Function
End If
On Error GoTo 0
End Function

 

Qualquer duvida posta ai

Valeu, erra isso mesmo q eu queria